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

VBA万岁 · 发表于 2015-4-10 13:51

若希望在ListBox2中隐藏链接地址，则可在窗体初始化代码中增加如下一句：
ListBox2.ColumnWidths = ListBox2.Width / 3 & "," & ListBox2.Width / 3 & "," & ListBox2.Width / 3 & ",0"

VBA万岁 · 发表于 2015-4-10 13:58

PS：在ListBox2的属性中应将其ColumnCount属性设置为4

VBA万岁 · 发表于 2015-4-11 15:12

aman1516 发表于 2015-4-9 21:01
能否上个“成品”附件，更多的应用测试下，也便于大家学习理解

附件：

百度地图.zip (633.3 KB, 下载次数: 972)

PS：附件增加了“百度测距”的功能。该功能的代码取自如下帖子：

http://club.excelhome.net/thread-1163384-1-1.html

jpj123 · 发表于 2015-4-11 15:25

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

这也能做出来，超赞!

aman1516 · 发表于 2015-4-11 21:19

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

每个领域，EXCEL都有超多的实际应用，知其一二或易，要熟练与精强就难了。
好好学习下。

VBA万岁 · 发表于 2015-4-12 17:39

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

以下附件增加了“谷歌测距”的功能：

百度地图.zip (632.08 KB, 下载次数: 362)

a506049858 · 发表于 2015-4-17 16:23

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

我点击按钮打开之后，为什么没办法搜索出结果呢？数据页都是空白的

ut01 · 发表于 2015-5-21 16:38

请教大神，我在工作表版里面搜索出来的只有51条记录，修改哪项代码可以搜索更多？代码里面几个For p 我都改到0 To 5000了。请教详细的修改位置？

蔡明江 · 发表于 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，请大神帮忙解决一下，能不能提供一下操作步骤截图，万分感谢

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

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