怎么把百度地图的搜索结果全部导出到Excel文件

蔡明江 · 发表于 2015-5-22 17:18

学习大神程序

TD2014 · 发表于 2015-5-22 17:20

suwenkai 发表于 2014-10-4 22:16
第10行的中的 For p = 1 To 5 表示提取1到5行，你要全部就修改成100或者更多的页码
第18行的数字是城市 ...

大神，为何我用你的代码，提示有错误，有的人可以正常运行的，我的一直提示 http://club.excelhome.net/thread-1206877-1-1.html，请大神帮忙解决一下，能不能提供一下操作步骤截图，万分感谢

lcjy11185 · 发表于 2015-5-22 19:56

百度地图网抓

ut01 · 发表于 2015-5-23 08:42

本帖最后由 ut01 于 2015-5-23 09:04 编辑

TD2014 发表于 2015-5-22 17:20
大神，为何我用你的代码，提示有错误，有的人可以正常运行的，我的一直提示 http://club.excelhome.ne ...

Sub cc()
On Error Resume Next
Cells.ClearContents
ReDim arr(1 To 1000, 1 To 3)
Set js = CreateObject("msscriptcontrol.scriptcontrol")
js.Language = "JavaScript"
tt = js.Eval("(new Date).getTime();")
With CreateObject("MSXML2.XMLHTTP")
For p = 1 To 1000
大神，我将代码中所有的For p都改为1 TO 1000了，城市也没有问题。可是在工作表版中搜索出来的还是只有51条。请教如何解决？

jjmysjg · 发表于 2015-5-23 19:52

谢谢，是全北京地区

zhufeng52 · 发表于 2015-5-27 15:25

suwenkai 发表于 2014-10-4 22:00

麻烦问一下，我要查百度拾取坐标系统里面的结果，但是改动您这个代码后报错，需要添加坐标，怎么改

wzb5566 · 发表于 2015-5-27 16:54

VBA万岁发表于 2015-4-11 15:12
附件：

只能赞叹，太厉害了，越学越觉得自己什么都不会了

VBA万岁 · 发表于 2015-5-28 16:05

wzb5566 发表于 2015-5-27 16:54
只能赞叹，太厉害了，越学越觉得自己什么都不会了

只要对VBA有兴趣，相信你一定会“什么都会”的。

Argos.Lee · 发表于 2015-6-1 17:03

首先膜拜一下，真的很好用很强大，问一个问题，有没有可能不光拿到地址信息，但是能拿到这些点的经纬度坐标？这样的话就可以批量的放入地图中去了，对GISer来说那真是太好了！！！

kuruobing · 发表于 2015-6-12 16:06

suwenkai 发表于 2014-10-4 20:13

求大神在此基础上加上“联系人”要素

		自动登录	找回密码
密码			免费注册

[求助] 怎么把百度地图的搜索结果全部导出到Excel文件