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

我有一个可执行文件“Operate.exe”，它从文本文件“Weightings.txt”中读取数据并对其执行一些操作。 独立执行时运行良好。

我试图从Excel中使用VBA的button来执行此操作。 该程序运行，但“weightings.txt”没有被打开/find。

这是我在VBA中使用的代码：

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

该文件夹包含Operate.exe，Operate.pdb，Game.xlsm和Weightings.txt。

没有findWeightings.txt，因为exe程序是从VBA运行的？

Answer 1

将当前的默认工作目录更改为ThisWorkbook.Path。

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