"ActiveX can't create object error 429" when call this function

Asked Aug 17 '23 at 17:53

Active Aug 17 '23 at 18:05

Viewed 26 times

I am trying to call this function which utilizes the Bing Maps API:

                                                   Public Function GetDistance(start As String, dest As String, key As String)

Dim firstVal As String, secondVal As String, lastVal As String

firstVal = "https://dev.virtualearth.net/REST/v1/Routes/DistanceMatrix?origins="
secondVal = "&destinations="
lastVal = "&travelMode=driving&o=xml&key=" & key & "&distanceUnit=mi"

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

url = firstVal & start & secondVal & dest & lastVal
objHTTP.Open "GET", url, False
objHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"
objHTTP.Send ("")
GetDistance = Round(Round(WorksheetFunction.FilterXML(objHTTP.ResponseText, "//TravelDistance"), 3) * 1.609, 0)  End Function

However I get the above mentioned error on this line:

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")

I tried:

Set objHTTP = Server.CreateObject("MSXML2.ServerXMLHTTP")

but it did nothing. I added all the references that are available and I still get the same error. This code works on the video I found it from.

edited Aug 17 '23 at 18:05

BigBen

46,229
7
24
40

asked Aug 17 '23 at 17:53

CrustyCrustecean

`Server.CreateObject` - maybe if you were using vbscript in ASP... `CreateObject("MSXML2.ServerXMLHTTP")` works fine for me. – Tim Williams Aug 17 '23 at 18:04
Are you working on a Mac? – BigBen Aug 17 '23 at 18:05
BigBen yes I am. – CrustyCrustecean Aug 17 '23 at 18:18
MS = Microsoft.... – BigBen Aug 17 '23 at 18:18
BigBen right what would I put instead of MS? Mac? – CrustyCrustecean Aug 17 '23 at 18:19
I tried it on a windows machine and I get the error: "can't compile" – CrustyCrustecean Aug 17 '23 at 18:20
[Perhaps useful](https://stackoverflow.com/questions/38211124/http-get-request-using-vba-in-osx-excel). – BigBen Aug 17 '23 at 18:22
Its not still the same error – CrustyCrustecean Aug 17 '23 at 18:26
On windows what does `debug.print objHTTP.ResponseText` show in immediate window – CDP1802 Aug 17 '23 at 19:15
Seems its an operating system issue, got it to work on Windows – CrustyCrustecean Aug 17 '23 at 19:54
if anyone has a solution for Mac it would be greatly appreciated – CrustyCrustecean Aug 17 '23 at 19:54

"ActiveX can't create object error 429" when call this function

0 Answers0