0

请帮助我使此代码有效。我想使用 Powerpoint VBA 打开一个外部 EXE 文件。

Sub open_test()
Dim FileName, FSO, MyFile
FileName = "C:\test.exe"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set MyFile = FSO.OpenTextFile(FileName, 1)
End Sub

没有编译器错误,但是当我执行宏时,它什么也不做……我还有其他替代代码吗?请帮助我,谢谢

4

1 回答 1

4

如果您只想启动程序,请尝试使用

Sub open_test()
    Dim sFullPathToExecutable as String
    sFullPathToExecutable = "C:\test.exe"
    Shell sFullPathToExecutable 
End Sub
于 2012-09-23T15:00:18.427 回答