Ðề: Các viết lệnh trong AC
Mã nguồn PHP:
[COLOR=#000000]
Sub MoExcel[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]Dim fileEx [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]String
fileEx [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CurrentProject[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Path [/COLOR][COLOR=#007700]& [/COLOR][COLOR=#DD0000]"\" & Me.TextBox1 & "[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]xls[/COLOR][COLOR=#DD0000]"
If (Dir(fileEx) <> "") Then
Shell "[/COLOR][COLOR=#0000BB]Excel[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]exe [/COLOR][COLOR=#DD0000]" & """" & fileEx & """", vbMaximizedFocus
Else
MsgBox "[/COLOR][COLOR=#0000BB]File [/COLOR][COLOR=#DD0000]" & fileEx & " [/COLOR][COLOR=#0000BB]khong ton tai[/COLOR][COLOR=#DD0000]",,"[/COLOR][COLOR=#0000BB]Thong Bao[/COLOR][COLOR=#DD0000]"
End If
End Sub[/COLOR]
Trong Form có một TextBox1 chứa file Excel cần mở
Khi quan tâm đến thẩm mỹ vùng kín. Nhiều chị em hay tìm hiểu: Bác sĩ thẩm mỹ vùng kín giỏi và thẩm mỹ vùng kín ở đâu an toàn Đà Nẵng. Bài viết này sẽ giới thiệu đến các bạn một trong số những bác sĩ...
Các bác sĩ thẩm mỹ vùng kín giỏi và địa chỉ an toàn tại Đà Nẵng