excel - 如何使用 VBA 将 Google 表格中的数据导入 Excel

Question

我正在尝试将数据从 Google 表格导入 Excel，但我认为问题出在我计算机中的安全设置上。

已尝试创建新查询 > 从其他来源 > 从 Web 并使用 https://docs.google.com/spreadsheets/d/export?format=xlsx 更改共享链接但它没有向我显示任何信息

还尝试运行宏，但它没有检索到任何信息

Sub Import_Data()
 Dim conn As String
 conn = "URL;https://docs.google.com/spreadsheets/d/edit#gid=0"
 With 
     ActiveSheet.QueryTables.Add(Connection:=conn, Destination:=Range("$A$1"))
    .WebTables = "1,2"
    .Refresh True
 End With
End Sub

我希望将进入此 Google 工作表的所有信息连接到 Excel 工作表，以自动填充我可以更轻松地处理这些数据的位置，而无需将其复制粘贴到 Excel 中。关于安全设置，我无法直接登录谷歌帐户，我公司的计算机设置为使用 Windows ID 和密码登录您需要的所有内容。我还尝试在“编辑权限”窗口中为 https://docs.google.com/spreadsheets 编辑数据源设置。使用我的 Windows 凭据，但我没有运气。关于解决方法的任何想法？

Answer 1

上面来自 Peh 的原始代码只会从 Google 表格中导入前 100 行数据。使用以下代码将所有行导入 Excel。您只需要更改以下代码中的 keyString 和 gidString 值。 keyString 指定您要从中提取数据的特定 Google 表格。 gidString 指定您要从中提取数据的 Google 表格上的哪个选项卡。

Sub importGsheetLads()


 Dim keyString As String
  
 Dim gidString As String
 
 
 
 '' change the below keyString and gidString values as required
 
 
 keyString = "14hOICbxkYfCPpwpf8E6kwQHjrp2b33KjWfjMzjqGG8E"
 
 gidString = "493421964"
 
 
 
 
 
  
     With ActiveSheet.QueryTables.Add(Connection:="URL;https://spreadsheets.google.com/tq?tqx=out:html&tq=&key=" & keyString & "&gid=" & gidString, Destination:=Range("$A$1"))
        .Name = "q?s=goog_2"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "1,2"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        
        
 End With


End Sub