本文介绍了一段使用VBA代码调用ShellExecute函数来打开指定文件的示例。该函数位于shell32.dll中，可以用于启动与文件类型关联的应用程序。示例展示了如何通过VBA编写按钮点击事件来打开PPT文件。
任何文件都可以，只要关联了相关的程序
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'调用打开c:a.ppt
Private Sub Command1_Click()
Dim pat
pat = "c:a.ppt" '假设是你所放文件的路径
ShellExecute Me.hwnd, "open", pat, pat, vbNull, 3
End Sub
'调用打开c:a.ppt
Private Sub Command1_Click()
Dim pat
pat = "c:a.ppt" '假设是你所放文件的路径
ShellExecute Me.hwnd, "open", pat, pat, vbNull, 3
End Sub
扫一扫
1万+
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
