从VBA Excel宏调用后，可执行文件无法正确运行

Question

I have an executable "Operate.exe" which reads data from a text file "Weightings.txt" and performs some operations on it. This runs fine when executed independently.

I'm trying to execute this from a button in excel using VBA. The program runs, but "weightings.txt" is not being open/found.

This is the code I'm using in VBA:

Sub TextBox1_Click()
Shell ThisWorkbook.Path & "\Operate.exe", vbNormalFocus
End Sub

The folder contains Operate.exe, Operate.pdb, Game.xlsm and Weightings.txt.

Is Weightings.txt not being found because the exe program is being run from VBA?

Answer 1

Change the current default working directory to the ThisWorkbook.Path.

Sub TextBox1_Click()
    Debug.Print CurDir
    ChDir ThisWorkbook.Path
    Debug.Print CurDir
    Shell ThisWorkbook.Path & "\Operate.exe", vbNormalFocus
End Sub