excel - 用于将网站源提取到单元格的 VBA 宏返回 #VALUE！excel中的错误

Question

我是 VBA 宏的新手，我正在使用一个提取 URL 源的宏，当我尝试使用它来填充 excel 中特定单元格的内容时，我得到一个 #VALUE！单元格中的错误。有人可以帮忙吗？

这是我正在使用的代码：

Function GetSource(url As String) As String  

With CreateObject("MSXML2.XMLHTTP")    
   .Open "GET", url        
   .Send   
   Do: DoEvents: Loop Until .Readystate = 4  
   GetSource = .responsetext  
   .abort  
End With 

End Function

Answer 1

省略“http://”时出现#VALUE 错误；当我包含它时，您的功能对于看起来“格式良好”的页面效果很好。对于其他人，我似乎失败了。

出于调试目的，我创建了对“Microsoft XML，v6.0”的引用并将代码更改为

Function GetSource(url As String) As String
Dim O As MSXML2.XMLHTTP

    Set O = New MSXML2.XMLHTTP
    O.Open "GET", url
    O.send
    GetSource = O.responseText
    O.abort
    Set O = Nothing

End Function