excel - Web サイトのソースをセルに抽出するための VBA マクロは #VALUE! を返します。エクセルのエラー

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