如何用VBA从公开Google Drive下载文档？需解决.click事件语法问题

问题根源 #

你当前的代码直接请求Google Docs的编辑页面URL，返回的是网页HTML代码，并非实际的文件二进制内容，所以保存后的文件无法正常打开。

最优方案：使用Google Docs导出API #

Google Docs提供了公开的导出接口，只需构造对应格式的导出URL，就能直接下载文件，无需模拟点击操作，比浏览器模拟更稳定可靠。

核心步骤

1. 提取文档ID：从你的编辑URL中提取文档ID，即1RaIps4g70ZWalb2UkLticEHM0OGcZF6h
2. 构造导出URL：根据需要的文件格式替换参数，示例如下：
   • Docx格式：https://docs.google.com/document/d/{文档ID}/export?format=docx
   • PDF格式：https://docs.google.com/document/d/{文档ID}/export?format=pdf
   • TXT格式：https://docs.google.com/document/d/{文档ID}/export?format=txt

修改后的完整VBA代码

Sub downloadGoogleDoc()
    Const FOLDER = "C:\temp\"
    Dim fso As Object: Set fso = CreateObject("Scripting.FileSystemObject")
    Dim wb As Workbook: Set wb = ThisWorkbook
    Dim ws As Worksheet: Set ws = wb.Sheets(1)
    
    ' 确保目标文件夹存在
    If Not fso.FolderExists(FOLDER) Then MkDir FOLDER
    
    Dim oWinHttp As Object: Set oWinHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
    Dim oStream As Object: Set oStream = CreateObject("ADODB.Stream")
    
    ' 从工作表获取原始编辑URL，也可直接写死文档ID
    Dim originalURL As String: originalURL = ws.Cells(2, 1).Value
    Dim docID As String
    Dim exportURL As String
    Dim ext As String: ext = ".docx" ' 可修改为.pdf/.txt等格式
    
    ' 自动从编辑URL中提取文档ID（适配两种URL格式）
    docID = Split(Split(originalURL, "/d/")(1), "/")(0)
    
    ' 构造对应格式的导出URL
    exportURL = "https://docs.google.com/document/d/" & docID & "/export?format=" & Replace(ext, ".", "")
    
    On Error Resume Next
    oWinHttp.Open "GET", exportURL, False
    oWinHttp.Send
    On Error GoTo 0
    
    If oWinHttp.Status = 200 Then
        With oStream
            .Open
            .Type = 1 ' 二进制模式写入
            .Write oWinHttp.ResponseBody
            .SaveToFile FOLDER & "导出文件" & ext, 2 ' 2表示覆盖已有文件
            .Close
        End With
        MsgBox "文件已保存至：" & FOLDER & "导出文件" & ext, vbInformation
    Else
        MsgBox "下载失败，状态码：" & oWinHttp.Status & vbCrLf & "请确认文档为公开可访问状态", vbExclamation
    End If
    
    ' 释放对象资源
    Set oWinHttp = Nothing
    Set oStream = Nothing
    Set fso = Nothing
End Sub

关于模拟点击的补充说明 #

如果确实需要通过浏览器模拟点击下载按钮，可以使用InternetExplorer.Application控件，但该控件已被微软逐步弃用，且Google Docs页面结构随时可能变化，代码极易失效。以下是简化示例（仅作参考框架）：

Sub simulateClickDownload()
    Const FOLDER = "C:\temp\"
    Dim ie As Object: Set ie = CreateObject("InternetExplorer.Application")
    Dim docID As String: docID = "1RaIps4g70ZWalb2UkLticEHM0OGcZF6h"
    Dim editURL As String: editURL = "https://docs.google.com/document/d/" & docID & "/edit"
    
    ie.Visible = True
    ie.Navigate editURL
    
    ' 等待页面加载完成
    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop
    
    ' 点击"文件"菜单（页面结构变化后此代码可能失效）
    ie.Document.querySelector("div[aria-label='文件']").Click
    ' 后续需等待菜单展开，再点击对应下载选项，此处仅为示例
    
    ' 关闭浏览器（按需启用）
    ' ie.Quit
    ' Set ie = Nothing
End Sub

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