VBA中Shell函数执行外部EXE时工作路径异常的解决方案咨询

以下是几种不需要固定路径的解决方案，按可靠性优先排序：

方案1：修改C++程序，获取自身所在目录（最推荐） #

直接让EXE自己定位同目录的TXT文件，完全不依赖启动时的工作目录，这是最稳定的解决方式，不管EXE被什么方式启动都能正常找到文件。

用Windows API GetModuleFileName获取EXE的完整路径，然后剥离文件名得到所在目录，再拼接TXT文件名：

#include <windows.h>
#include <string>
#include <fstream>

std::wstring GetExeFolder() {
    wchar_t exeFullPath[MAX_PATH];
    GetModuleFileNameW(NULL, exeFullPath, MAX_PATH);
    std::wstring pathStr(exeFullPath);
    // 找到最后一个反斜杠的位置，截取前面的部分就是目录
    size_t slashPos = pathStr.find_last_of(L"\\/");
    return pathStr.substr(0, slashPos);
}

int main() {
    std::wstring exeDir = GetExeFolder();
    // 拼接同目录下的TXT文件路径
    std::wstring txtFilePath = exeDir + L"\\target.txt";
    
    // 读取文件示例
    std::wifstream file(txtFilePath);
    if (file.is_open()) {
        // 处理文件内容
        file.close();
    }
    return 0;
}

方案2：VBA中先切换工作目录再启动EXE #

先从EXE的完整路径中提取所在目录，用ChDir切换到该目录后再启动EXE，这样EXE的工作目录就会和自身所在目录一致：

Sub RunExeWithCorrectDir()
    Dim exeFullPath As String
    Dim exeDir As String
    
    ' 这里可以动态获取EXE路径，比如从单元格读取或其他方式
    exeFullPath = "D:\Test\a.exe"
    
    ' 提取EXE所在目录
    exeDir = Left(exeFullPath, InStrRev(exeFullPath, "\"))
    
    ' 切换到EXE所在目录
    ChDir exeDir
    
    ' 启动EXE（此时直接用文件名即可，因为工作目录已切换）
    Shell "a.exe", vbNormalFocus
End Sub

注意：如果你的VBA程序后续有依赖原工作目录的操作，切换后记得切换回去。

方案3：用WScript.Shell指定启动目录 #

通过VBA创建WScript.Shell对象，设置其CurrentDirectory为EXE所在目录后再启动程序，不需要修改VBA自身的工作目录：

Sub RunExeWithWsh()
    Dim wsh As Object
    Dim exeFullPath As String
    Dim exeDir As String
    
    exeFullPath = "D:\Test\a.exe"
    exeDir = Left(exeFullPath, InStrRev(exeFullPath, "\"))
    
    Set wsh = CreateObject("WScript.Shell")
    wsh.CurrentDirectory = exeDir
    ' 启动EXE，第二个参数是窗口状态，第三个参数False表示不等待程序结束
    wsh.Run exeFullPath, vbNormalFocus, False
    
    Set wsh = Nothing
End Sub

内容的提问来源于stack exchange，提问作者劉啟玄