我在excel vba中使用QueryTable从网站检索数据 . 当工作簿不在“共享工作簿”模式下时,此工作正常 . 一旦我打开“共享工作簿”并运行vba代码excel就会返回一条错误消息 - “Microsoft Excel - 此命令在共享工作簿中不可用” . vba停止的代码是
Dim query As QueryTable
设置query = Application.ActiveSheet.QueryTables.Add(Connection:= url,Destination:= Range(“A1”))
...
query.Name =“获取数据”< - HERE
还有另一种检索数据的方法吗?
1 回答
您可以刷新共享工作簿中的查询表 . 因此,如果它符合您的情况,您可以在模板未设置共享时设置查询,然后共享,然后通过VBA进行刷新 . 这是最简单的方法 .
如果您无法事先进行设置,则可以使用MSXML获取Web数据并使用VBA将其粘贴到工作表中 . 您需要为Microsoft XML,v5.0和Microsoft Forms 2.0对象库(用于剪贴板)设置引用(VBE - 工具 - 引用) . 然后你可以运行这样的代码来从网页中获取一个表 .
那里没有错误检查 . 您可能需要添加一些代码以确保找到该网页并且它包含您想要的数据 .