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

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

1 个答案: