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

1、打开Excel文件（或新建一个Excel文件），在菜单栏中找到“开发工具”→“宏”，创建宏，应该也叫VBA程序（截图以office 2016版本为例，其他版本只要能找到宏添加运行即可）。

2、点击创建，在打开的代码编辑框里，粘贴以下代码：

代码：

Sub baiduMap()

Dim url, html, js

Cells.ClearContents

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

Range("a1:c1") = br

url = ""

Set html =CreateObject("htmlfile")

Set js =CreateObject("scriptcontrol")

js.Language = "jscript"

For p = 1 To 5

WithCreateObject("msxml2.xmlhttp")

url ="http://map.baidu.com/?newmap=1"

url = url &"&reqflag=pcmap"

url = url &"&biz=1"

url = url &"&from=webmap"

url = url &"&qt=s"

url = url &"&from=webmap"

url = url &"&c=257"

url = url &"&pl_data_type=cater"

url = url & "&pl_sub_type=餐饮"

url = url &"&pl_price_section=0%2C%2B"

url = url &"&pl_sort_type=data_type"

url = url &"&pl_sort_rule=0"

url = url &"&pl_discount2_section=0%2C%2B"

url = url &"&pl_groupon_section=0%2C%2B"

url = url &"&pl_cater_book_pc_section=0%2C%2B"

url = url &"&pl_ticket_book_flag_section=0%2C%2B"

url = url &"&pl_movie_book_section=0%2C%2B"

url = url &"&pl_business_type=cater"

url = url &"&pl_business_id="

url = url &"&pl_activity_gwj_section=0%2C%2B"

url = url &"&wd=餐饮"

url = url &"&pn=1"

url = url &"&db=0"

url = url &"&wd2="

url = url & "&sug=0"

url = url &"&da_src=pcmappg.poi.page"

url = url &"&on_gel=1"

url = url &"&src=7"

url = url &"&gr=3"

url = url &"&l=12"

url = url &"&addr=0"

url = url &"&nn=" & (p - 1) * 10

url = url &"&tn=B_NORMAL_MAP"

url = url &"&ie=utf-8"

url = url &"&t=1412423900383"

.Open "get", url, False

.send

js.addcode ("suwenkai = "& .responsetext)

slen =js.eval("suwenkai.content.length") - 1

For i = 0 To slen

n = n + 1

Cells(n + 1, 1) =js.eval("suwenkai.content[" & i & "].name")

Cells(n + 1, 2) =js.eval("suwenkai.content[" & i & "].addr")

Cells(n + 1, 3) =js.eval("suwenkai.content[" & i & "].tel")

End With

End Sub

蓝色代码注释：

1、 br =[{"名称","地址","电话"}]：创建在excel的目录，如

2、 For p= 1 To 5：表示从百度地图中取第1页至第5页的搜索结果，根据具体情况设置最大读取页数。例如：

3、 url =url & "&c=257"：城市代码设置，当前设置城市为广州市，例如北京的城市代码为131，将c=257设置为c=131即可。中国城市代码对应在同文件夹下的<<城市代码.xlsx>>。

4、 url =url & "&pl_sub_type=餐饮"

url = url & "&pl_sub_type=餐饮"：

关键字设置：

例如要把关键字设置为“设计院”，将“餐饮”，改为“设计院”即可。

利用Excel将百度地图搜索结果导出相关推荐

无插件，无com组件，利用EXCEL、WORD模板做数据导出（一）
本次随笔主要讲述着工作中是如何解决数据导出的,对于数据导出到excel在日常工作中大家还是比较常用的,那导出到word呢,改如何处理呢,简单的页面导出问题应该不大,但是如果是标准的公文导出呢,要保证其 ...
php导入excel源码,利用PHPExcel类库，实现PHP导出导入Excel表格Excel文件！
[温馨提示]源码包解压密码:www.youhutong.com 利用PHPExcel类库,实现PHP导出导入Excel文件!(案例教程源码) 需要注意的地方就是: 1.导出文件时,如果你的字段过多,可 ...
java操作Excel之POI（4）利用POI实现数据的批量导出
后台导出方法: 1 /** 2 * 后台导出方法 3 * 利用POI实现数据的批量导出 4 */ 5 public String export() throws Exception{ 6 Connec ...
java+jxls利用excel模版进行导出
大多时候会出现需要导出excel的功能,利用poi可以实现简单的导出,可以说poi的功能非常强大可以做到细节的定制化操作,但相对于在office操作excel,利用poi完全生成excel会显得非常复 ...
jxls模板hashmap_java+jxls利用excel模版进行导出
大多时候会出现需要导出excel的功能,利用poi可以实现简单的导出,可以说poi的功能非常强大可以做到细节的定制化操作,但相对于在office操作excel,利用poi完全生成excel会显得非常复 ...
Excel转Word，Excel导出Word，利用Excel表批量生成Word文档，邮件合并进阶版
单击播放视频教材利用Excel数据批量生成Word文档升级版,Excel转W 01需求概述假设有图1所示的数据,需要批量生成WORD成绩通知单,通知单必须遵循图2的样式. (案例中的姓名.学校名称 ...
oracle 导出数据 utl,【原创】利用utl_file包进行表数据导出
利用utl_file包进行表数据导出 2013/11/12 一.概述工作中需要将许多表的数据导出到一份excel中,虽然PL/SQL自带有导出的功能,但是导出后需要进行手动的汇总到一张excel中, ...
python处理表格数据教程_python利用Excel读取和存储测试数据完成接口自动化教程...
http_request2.py用于发起http请求 #读取多条测试用例 #1.导入requests模块 import requests #从 class_12_19.do_excel1导入read_ ...
excel python插件_如何利用Excel与Python制作PPT
对外汉语课堂中需要制作PPT.有些PPT的版式是相对固定的,如果数量巨大的话,可以利用python的pptx插件,与excel相结合,制作PPT.完整工作流有些复杂,所以分为4个部分来说明. PPT准 ...

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

利用Excel将百度地图搜索结果导出相关推荐

最新文章

热门文章