第一次在这里发帖导致我第一次在Stack上找不到答案。
我正在摆弄的程序进入API网站 - 获取护照密钥 - 并使用它来加载XML格式的信息,然后解析它。代码很长,所以我只发布导致错误的位。
myURL = "https://api.smartbidnet.com/project?PassportKey=" & PassportKey & "&ResultType=xml" 'This is the API URL where we use our passport key to get our data
IE.Navigate myURL 'Go to Webpage
Dim XDoc As Object
Set XDoc = CreateObject("MSXML2.DOMDocument")
XDoc.async = False
XDoc.validateOnParse = False
XDoc.Load (ThisWorkbook.Path & myURL) 'Here we will load the XML info from the web page
Set lists = XDoc.DocumentElement 'lists will be used to access XML nodes
Set Projects = lists.SelectNodes("//root/projects")
现在这是一个奇怪的部分:
如果我通过选择"空白工作簿"打开excel;代码在编辑器中运行得很好。
如果我保存空白工作簿然后尝试运行它,或者如果我只是右键单击桌面并打开一张空白工作表而不是工作簿并尝试运行它。最后一行导致
运行时91错误
当然,非常感谢任何帮助。
上面的代码之前只是导航到站点以获取API的护照密钥并构建myURL变量。