Question

我在运行exe文件的userform中运行一个sub，如下所示：

Sub RunProcessor()
    If MsgBox("Run simulation?", vbYesNo) = vbNo Then
      Exit Sub
    Else
      ChDir ThisWorkbook.Path
      Shell ("runsims.exe")
    End If
End Sub

这在我的本地驱动器上工作正常，但是当我将所有内容移动到服务器驱动器时（Shell函数调用行上的运行时错误5），它开始失败。

我知道在cmd中，当您使用C：驱动器并进行cd L:\...\...\调用时，您还需要输入L:，所以我尝试在上面插入这行代码另一个Shell调用：Shell (Left(ThisWorkbook.Path, 2))但这也失败了。我怎么能运行“runsims.exe”，因为它总是在当前工作的驱动器中？

Answer 1

ChDir只能将当前目录更改为同一驱动器上的另一个目录 - 如果要切换到其他驱动器上的文件夹，则需要先使用ChDrive。

更好的是，将完整路径传递给Shell并跳过更改当前目录。

Sub RunProcessor()
    If MsgBox("Run simulation?", vbYesNo) = vbYes Then
        Shell (ThisWorkbook.Path & "\runsims.exe")
    End If
End Sub

使用Shell函数运行exe时发现文件未找到错误

1 个答案: