编写VBS脚本从Google Drive下载文件并运行宏遇错求助

我看到你在把Excel宏转成VBScript时遇到了几个关键问题，尤其是Dir那行的错误，让我一步步帮你梳理和修正：

核心错误分析 #

1. vbDirectory常量未定义：VBScript里没有VBA的内置vbDirectory常量，你需要直接用它对应的数值16来替代。
2. 缺失文件保存步骤：你的代码只获取了Google Drive文件的响应内容（ResponseBody），但没有把它写入到本地文件中，导致后面打开Excel文件时找不到目标文件。
3. 逻辑结构混乱：创建下载文件夹的代码和后续打开Excel的代码缩进错误，导致逻辑分支混乱。

修正后的完整代码 #

Option Explicit

Dim oShell, strHomeFolder, downloadPath
Dim WHTTP, fileUrl, responseData
Dim fso, ts, xlApp, xlBook

' 获取用户下载文件夹路径
Set oShell = CreateObject("WScript.Shell")
strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
downloadPath = strHomeFolder & "\Downloads\External Linking.xlsm"

' 初始化文件系统对象
Set fso = CreateObject("Scripting.FileSystemObject")

' 确保Downloads文件夹存在
If Not fso.FolderExists(strHomeFolder & "\Downloads") Then
    fso.CreateFolder strHomeFolder & "\Downloads"
End If

' 从Google Drive下载文件
fileUrl = "https://drive.google.com/uc?export=download&id=1Hx5DymjrhaiM8Rb7NMP_Sde_JU2N2Rau"
' 注意：原链接是预览链接，需要改成直接下载链接（添加export=download参数）

Set WHTTP = CreateObject("WinHTTP.WinHTTPRequest.5.1")
WHTTP.Open "GET", fileUrl, False
WHTTP.Send

' 将响应内容写入本地文件
responseData = WHTTP.ResponseBody
Set ts = fso.CreateTextFile(downloadPath, True)
ts.Write responseData
ts.Close

' 启动Excel并执行宏
Set xlApp = CreateObject("Excel.Application")
xlApp.DisplayAlerts = False
xlApp.Visible = False ' 后台运行，不显示Excel窗口

Set xlBook = xlApp.Workbooks.Open(downloadPath, 0, False) ' 取消只读模式，确保宏能正常执行
xlApp.Run "BridgeHit"

' 关闭文件和Excel
xlBook.Close False
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing

' 清理对象
Set WHTTP = Nothing
Set fso = Nothing
Set oShell = Nothing

WScript.Echo "操作完成！"
WScript.Quit

关键修正点说明 #

• Google Drive链接调整：原链接是网页预览链接，无法直接下载文件，需要改成带export=download参数的直接下载链接。
• 文件系统对象（FSO）替代Dir：用Scripting.FileSystemObject的FolderExists和CreateFolder方法来处理文件夹，比VBS的Dir函数更可靠。
• ResponseBody写入文件：通过CreateTextFile和Write方法把下载到的二进制内容保存为本地Excel文件。
• Excel运行模式：添加xlApp.Visible = False让Excel在后台运行，避免弹出窗口；打开文件时用False取消只读模式，确保宏能正常执行。

内容的提问来源于stack exchange，提问作者cd-6