用小脚本编译错误

我试图在Excel 2007中写入一个cls，代码如下：

Dim JiraService As MSXML2.XMLHTTP60 Set JiraService = New MSXML2.XMLHTTP60 JiraService.Open "GET", "URL", False JiraService.SetRequestHeader "Content-Type", "application/json" JiraService.SetRequestHeader "Accept", "application/json" JiraService.Send sRestResponse = JiraService.ResponseText MsgBox sRestResponse 

我收到一个编译错误，表示Set看起来是无效的。

基本上说外部程序是无效的。

谁能帮我吗？

Answer 1

我想你错过了适当的参考。 在VBA中单击工具~~>参考

添加一个项目引用;

• Microsoft WinHTTP服务，版本5.1
• Microsoft XML，v6.0

也在这一行

 JiraService.Open "GET", "URL", False 

如果URL是保存实际URL的variables，则"URL"将被视为string，而不是variables，因为它位于引号之间。 我想你正在尝试这个？

 JiraService.Open "GET", URL, False 

跟随（从评论）

问题是你已经在类模块中粘贴了上面的代码。 假设你将代码粘贴到一个模块中，并在子模块中调用它。 看到这个例子

 Sub Sample() Dim JiraService As MSXML2.XMLHTTP60 Set JiraService = New MSXML2.XMLHTTP60 JiraService.Open "GET", URL, False JiraService.SetRequestHeader "Content-Type", "application/json" JiraService.SetRequestHeader "Accept", "application/json" JiraService.Send sRestResponse = JiraService.ResponseText MsgBox sRestResponse End Sub 

截图