I wrote the following code in the use of Excel macro (copy online)
Sub baiduMap ()

Dim url, HTML, js,

Cells. ClearContents

Br=[{" name ", "address", "phone"}]

Range (" a1: c1 ")=br

Url=""

Set the HTML=CreateObject (" htmlfile ")

Performed by the activex components can't create the object 429

The Set of js=CreateObject (" scriptcontrol)

Js. Language="jscript"

For p=1 To 120
With CreateObject (" msxml2 XMLHTTP ")

Url="http://map.baidu.com/? Newmap=1
".
.

Next

End With

Next

End Sub
Master can help to solve

CodePudding user response:

Is this error: Set HTML=CreateObject (" htmlfile ")

I only know "htmlfile" was the type of the file name, not a COM object class, CreateObject () failure is odd,


Don't know which of you is copied to the code,

CodePudding user response:

I'm not familiar with excel operation baidu map but I be familiar with VB6 operating baidu map contains GPS devices obtain longitude latitude position location, after my current one of the projects in jiangsu province is the remote surveillance camera + baidu map of GPS tracking.

VB6 or android APP operating baidu map, have trouble can find me

CodePudding user response: