Option Explicit
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
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "e;考生文档\第一题.ppt", vbNullString, vbNullString, 3
End Sub
Private Sub Command2_Click()
Dim pptApp As powerpoint.Application
Set pptApp = New powerpoint.Application
pptApp.Documents.Add ("e:考生文档\第一题.ppt")
pptApp.Visible = True
Set WordApp = Nothing
End Sub
哪位大虾给看一下 为什么还是无法打开PPT文档 e:考生文档\第一题.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
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", "e;考生文档\第一题.ppt", vbNullString, vbNullString, 3
End Sub
Private Sub Command2_Click()
Dim pptApp As powerpoint.Application
Set pptApp = New powerpoint.Application
pptApp.Documents.Add ("e:考生文档\第一题.ppt")
pptApp.Visible = True
Set WordApp = Nothing
End Sub
哪位大虾给看一下 为什么还是无法打开PPT文档 e:考生文档\第一题.ppt
请问如果我要打开combo组合框中选定的PPT文档怎么办