Ðề: 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ở
Khu dự án cao cấp Moonlight Avenue được phát triển bởi Tập đoàn Hưng Thịnh phù hợp khách hàng đẳng cấp nhất tiện ích phù hợp. Moonlight Thủ Đức phù hợp khách hàng khu an ninh phong cách nghỉ dưỡng....
Moonlight Avenue Dự án chung cư không gian thoáng mát thoải mái nhất