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 に答える