Ðề: 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ở
Râu rồng – Thuật ngữ tiếng Anh là laugh line/smile line là nếp nhăn khoé miệng được hình thành theo thời gian và được nhìn thấy rõ nhất khi chúng ta cười. Râu rồng sẽ xuất hiện càng ngày càng rõ...
Râu rồng - Mối đe dọa nghiêm trọng với dung nhan của các cô