如何从Excel在线检索数据？

我pipe理一个由不同位置（互联网连接通常不可靠）的数百名用户使用的excel文件。

这个文件包含一个“主数据表”，用户需要更新几次计算中使用的数据，每年几次的数据。

今天，这张表中的数据是手动更新的（我们通过电子邮件发送另一个工作簿，其中包含复制粘贴在此表中的信息）。

我想自动化这个过程，并将我的主数据表中的信息放在一个公共的excel在线文件中，并使用VBA连接到这个文件并将数据下载到“主数据表”中。

我很容易设法通过创build一个networking连接到谷歌文档，但谷歌电子表格实现这一点，但我真的很难做到这一点与Excel在线（我们有微软的公司帐户，会更容易坚持到在线的Excel） 。

用户都在win7 + excel 2010上

我用来检索谷歌的数据的代码如下

Sub GetDataFromGoogle() Dim i As Integer With Sheet1 .Cells.Clear With .QueryTables.Add(Connection:="URL;https://docs.google.com/spreadsheets/addressXYZ", Destination:=Range("$A$1")) .Name = "MasterData" .PreserveFormatting = True .BackgroundQuery = False .WebFormatting = xlWebFormattingNone .Refresh BackgroundQuery:=False End With DoEvents End With For i = 1 To ThisWorkbook.Connections.Count If ThisWorkbook.Connections.Count = 0 Then Exit Sub ThisWorkbook.Connections.Item(i).Delete i = i - 1 Next i End Sub 

谢谢！