VBS路径拼接调用Excel RefreshAll功能时出现数据源文件找不到问题

这个问题的核心原因是Excel的当前工作目录没有切换到你的工作簿所在的D:\TEST文件夹。当你硬编码路径打开工作簿时，Excel会自动将当前目录设置为工作簿的所在路径；但通过fullpath拼接路径打开时，Excel默认保留了它的启动目录（也就是你看到的C:\Users\my-username\Documents），而你的查询使用的是相对路径链接外部文件，Excel就会去这个默认目录找，自然找不到实际在D:\TEST里的文件。

下面是修正后的完整脚本，我会逐一解释关键修改点：

' 创建文件系统对象，获取脚本所在文件夹路径
Dim fso, fullpath
Set fso = CreateObject("Scripting.FileSystemObject")
fullpath = fso.GetParentFolderName(WScript.ScriptFullName)

Set objExcel = CreateObject("Excel.Application")
' 切换Excel的默认文件路径到工作簿所在文件夹
objExcel.DefaultFilePath = fullpath
' 同时切换系统当前目录，确保相对路径解析正确
CreateObject("WScript.Shell").CurrentDirectory = fullpath

' 打开目标工作簿，直接使用fullpath拼接
Set objWorkbook = objExcel.Workbooks.Open(fullpath & "\Master_Workbook.xlsx")

' 直接使用objWorkbook对象，避免依赖ActiveWorkbook（更可靠）
objWorkbook.RefreshAll
' 等待刷新完成（如果查询是异步的，需要加这一步，否则可能保存未刷新的数据）
objExcel.CalculateUntilAsyncQueriesDone

objWorkbook.Save
' 关闭前设置DisplayAlerts，避免弹出提示
objExcel.DisplayAlerts = False
objWorkbook.Close False
objExcel.Quit

' 释放对象
Set objWorkbook = Nothing
Set objExcel = Nothing
Set fso = Nothing

关键修改说明： #

• 正确获取脚本所在路径：用Scripting.FileSystemObject获取脚本的完整路径，再提取父文件夹，确保fullpath是准确的D:\TEST路径。
• 切换当前目录：同时设置objExcel.DefaultFilePath和系统当前目录，双保险让Excel知道要从哪个文件夹解析相对路径的外部链接。
• 避免依赖ActiveWorkbook：直接使用我们创建的objWorkbook对象操作，防止因为其他工作簿激活导致的错误。
• 等待异步查询完成：添加CalculateUntilAsyncQueriesDone，确保所有刷新操作完成后再保存，避免保存未更新的数据。
• 对象释放：脚本结束前释放所有创建的对象，避免Excel进程残留。

额外注意事项： #

• 确保你的查询链接使用的是相对路径（如果是绝对路径的话，这个问题不会出现，但相对路径更适合同一文件夹下的文件管理）。
• 运行脚本时，确保有D:\TEST文件夹的读写权限，避免保存或刷新时出现权限错误。

内容的提问来源于stack exchange，提问作者christian