利用Excel将百度地图搜索结果导出

[鲍秦]

我在用Excel的宏 写了如下代码（抄了网上的）
Sub baiduMap()

Dim url, html, js

Cells.ClearContents

br = [{"店名","地址","电话"}]

Range("a1:c1") = br

url = ""

Set html = CreateObject("htmlfile")

执行到此处的时候 activex部件不能创建对象 429

Set 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
望高手能够帮忙解决

[舉杯邀明月]

是这句出错吧：　Set html = CreateObject("htmlfile")

我只知道"htmlfile"是文件的类型名，不是COM对象类，　CreateObject( )不失败才是怪事。


不知道你是中哪抄来的代码。

[cbm6666]

excel操作百度地图我不熟悉 但是VB6操作百度地图我算熟悉 包含GPS设备定位获取经度纬度后定位所在位置，我当前在江苏的项目之一就是远程摄像头监控 + gps百度地图定位追踪.

VB6或安卓手机APP 操作百度地图， 有困难可以找我

[cbm6666]