VBA宏在windows10系统运行正常，在MAC上运行出现“429”错误，ActiveX组件无法创建对象。请问如何解决？

Question

1、在EXCEL for Mac 中（，

所用VB版本信息：）

运行宏时提示：

2、“调试”，出现：

再接着运行时，还是出现

请问大佬这是什么原因，如何解决？

（代码块：

  Public Sub gkcx()

     Dim strURL As String

     Dim strData As String

     Dim xmlHttp As Object

     'Set xmlHttp = CreateObject("MSXML2.XMLHTTP")

     Set xmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")

     strURL = "http://cx.ahzsks.cn/pugao/pgcj2019_in.php"

     Set oDoc = CreateObject("htmlfile")

     With xmlHttp

         For rowi = 2 To 44

             .Open "GET", "http://cx.ahzsks.cn/pugao/pgcj2019_in.php", False

             .setRequestHeader "If-Modified-Since", "0"

             .send

........

（该宏在windows10 excel2016运行正常。）

Answer 1

您好：

很抱歉，有关VBA的使用问题已经超出了这边的技术支持范围，这可能无法帮助到您。

建议您到TechNet论坛获取更多帮助。

http://social.technet.microsoft.com/Forums/office/zh-CN/home 

感谢您使用微软产品。

Answer 2

1、在EXCEL for Mac 中（所用EXCEL,VB版本信息：

）

运行宏时提示：

2、“调试”，出现：

再接着运行时，还是出现“429”错误。

请问大佬这是什么原因，如何解决？

（代码块：

  Public Sub gkcx()

     Dim strURL As String

     Dim strData As String

     Dim xmlHttp As Object

     'Set xmlHttp = CreateObject("MSXML2.XMLHTTP")

     Set xmlHttp = CreateObject("WinHttp.WinHttpRequest.5.1")

     strURL = "http://cx.ahzsks.cn/pugao/pgcj2019_in.php"

     Set oDoc = CreateObject("htmlfile")

     With xmlHttp

         For rowi = 2 To 44

             .Open "GET", "http://cx.ahzsks.cn/pugao/pgcj2019_in.php", False

             .setRequestHeader "If-Modified-Since", "0"

             .send

........

（该宏在windows10 excel2016运行正常。）