after copying module sheet and macro's, getting a fault code

[DB73]

Hi all,

i found an excel file on the www what i can use for my master file.
the file that i found is a distance calculator via google maps.
it is working and i got the API key.

the problem is, as i copied everything to my masterfile it gives the following fault:

Compile error: Undefind variable

Function gDist(strOrig, strDest, strAPI, strMode, strReg)


Dim strURL As String
Dim objHttp As MSXML2.XMLHTTP60
Dim objDom As DOMDocument60
Dim aryDest() As String

If Len(strReg) > 0 Then
    strRegURL = "&region=" & strReg
End If

strURL = "https://maps.googleapis.com/maps/api/distancematrix/xml?units=imperial" & _
        "&origins=" & strOrig & _
        "&destinations=" & strDest & _
        "&traffic_mode1=optimistic" & _
        "&mode=" & strMode & _
        strRegURL & _
        "&key=" & strAPI

Set objHttp = MSXML2.XMLHTTP60

With objHttp
    .Open "GET", strURL, False
    .setRequestHeader "Content-Type", "application/x-www-form-URLEncoded"
    .Send
End With
Set objDom = New DOMDocument60
objDom.LoadXML (objHttp.responseText)

someting wrong in;

MSXML2.XMLHTTP60

it doesnt seem to work after copying everything
also, i dont know what the "MSXML2.XMLHTTP60" is/means.

someone an idea

tx in advance

 

[John_w]

In the VBA editor, click Tools -> References and select (tick) "Microsoft XML, v6.0" and click OK to close the References dialogue.

 

[DB73]

its on but it doesnt seems to work.

 

[DB73]

sorry...its works....did someting wrong with the copy paste.
did what u said, and it works..

thanks

 

[John_w]

I think you also need to change:

Set objHttp = MSXML2.XMLHTTP60

to:

Set objHttp = New MSXML2.XMLHTTP60

 

[DB73]

I think you also need to change:

Set objHttp = MSXML2.XMLHTTP60

to:

Set objHttp = New MSXML2.XMLHTTP60

i tried that one also, that didnt work....solution as above works for me.

thanks anyway

 

[DB73]

I think you also need to change:

Set objHttp = MSXML2.XMLHTTP60

to:

Set objHttp = New MSXML2.XMLHTTP60

why should i if it work now ?...get me in trouble in the future with the old code?