用於將網站源提取到單元格的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