VBAでXMLHttpRequestを使う際のTips(1)

On Windows VBA

なにはともあれ、XMLHttpRequestをオブジェクト化しないと

' ****************************************************************

' XMLHttpRequestを返す

' ****************************************************************

Public Function mkXmlHttpRequest() As Object
    
    Set mkXmlHttpRequest = CreateObject("MSXML2.XMLHTTP")
    If Err.Number = 0 Then Exit Function
    Err.Clear
    
    Set mkXmlHttpRequest = CreateObject("Microsoft.XMLHTTP")
    If Err.Number = 0 Then Exit Function
    Err.Clear
    
    Set mkXmlHttpRequest = Nothing
End Function