如何通过VBA将Excel表单数据直接写入Google Sheets文档

完全可以实现将Excel表单数据直接写入Google Sheets，不需要大幅改动你已有的表单配置和VBA逻辑，以下是两种适配不同场景的可行方案：

前置准备 #

• 打开你要作为数据库的Google Sheets文档，点击右上角「共享」，你可以选择设置为「知道链接的所有人都可编辑」用于测试，正式使用建议创建专属服务账号并授予编辑权限，同时复制文档ID：即Google Sheets链接中d/和/edit之间的字符串。
• 若选择VBA对接方案，需要提前在Google Cloud控制台开通Google Sheets API，生成服务账号的JSON密钥文件，存储到你的Excel表单同目录下即可。

方案1：VBA调用API对接（改动最小，适配现有逻辑） #

你原有的映射配置、表单交互逻辑完全不用改，只需要替换写入本地文件的代码段即可：

1. 打开VBA编辑器，点击「工具」→「引用」，勾选Microsoft Scripting Runtime、Microsoft XML, v6.0两个依赖，用于发送HTTP请求和解析鉴权信息。
2. 新增API调用和鉴权函数，核心代码示例如下：

' 鉴权函数，通过服务账号密钥获取访问令牌，可直接复用公开的VBA Google OAuth鉴权代码实现
Function GetAccessToken() As String
    ' 此处省略鉴权逻辑，仅需要替换为你自己的服务账号密钥参数即可
End Function

' 通用写入Google Sheets函数
Sub WriteToGoogleSheet(sheetID As String, rowNum As Integer, colNum As Integer, value As Variant)
    Dim apiUrl As String
    Dim rangeStr As String
    ' 拼接要写入的单元格位置，用R1C1格式适配你原有的行列索引
    rangeStr = "Data!R" & rowNum & "C" & colNum
    apiUrl = "https://sheets.googleapis.com/v4/spreadsheets/" & sheetID & "/values/" & rangeStr & "?valueInputOption=RAW"
    
    Dim xhr As MSXML2.XMLHTTP60
    Set xhr = New MSXML2.XMLHTTP60
    xhr.Open "PUT", apiUrl, False
    xhr.setRequestHeader "Authorization", "Bearer " & GetAccessToken()
    xhr.setRequestHeader "Content-Type", "application/json"
    
    Dim body As String
    body = "{""values"":[[""" & Replace(value, """", """""") & """]]}"
    xhr.send body
End Sub

3. 修改你原有SaveClick子程序中的写入逻辑，将原来写入本地Excel的代码行：

destinationBook.Sheets("Data").Cells(dataIdx, dataCol).Value = newValue

替换为调用上述写入函数即可：

Call WriteToGoogleSheet("你的Google Sheets文档ID", dataIdx, dataCol, newValue)

方案2：Power Query无代码对接（适合不会修改VBA的场景） #

如果你不想改动现有VBA代码，可以用Excel自带的Power Query工具对接：

• 打开你的Form表单Excel，点击「数据」选项卡→「获取数据」→「从其他源」→「从OData Feed」，按提示完成Google Sheets身份验证后，即可将云端的Google Sheets数据表加载到本地Excel中。
• 你只需要将原来写入本地数据库文件的逻辑改为写入这张加载的云端表，点击「上载」即可同步数据到Google Sheets，缺点是同步实时性弱于VBA触发，适合非高频写入的场景。

注意事项 #

• 该方案需要你的设备可以正常访问Google服务，若网络受限，你可以替换为国内可访问的在线文档（如飞书多维表格、腾讯文档）作为云端数据库，对接逻辑和上述方案完全一致，仅需要替换为对应平台的开放API地址即可。
• 你原有的_mappings映射表、表单交互逻辑完全可以复用，用户操作端不会有任何感知变化。

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