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

VBA万岁

linyh1742595842 发表于 2014-10-6 15:50
suwenkai 老师我的找到的如25楼的，请问是什么原因？

我这里复制suwenkai 大师的代码测试（没用附件测试），结果都是餐饮记录（而不会出现25楼的情况）。

VBA万岁

sanson4760 发表于 2014-10-5 19:28
到我这为什么会变成这样子呢！

我这里复制suwenkai 大师的代码测试（没用附件测试），结果都是餐饮记录（而不是“加油站”记录）。

linyh1742595842

VBA万岁 发表于 2014-10-7 09:31
我这里复制suwenkai 大师的代码测试（没用附件测试），结果都是餐饮记录（而不是“加油站”记录）。

经过测试不是代码的问题，而是网络的问题，这个代码如果提取数据多次，就会出现25楼的问题了。

今天换了其他网络，又可以实现了。

linyh1742595842

VBA万岁 发表于 2014-10-6 15:33
suwenkai老师，以上1039个城市的id值是如何得到的？

请问城市ID有没有知道怎么提取呢？

VBA万岁

linyh1742595842 发表于 2014-10-7 12:35
请问城市ID有没有知道怎么提取呢？

还不知道——网抓方面功底尚浅，还得不断学习。

学良

对22楼的附件做了一点点修改，
或许对使用上多少方便一些？
谢谢22楼的代码！

百度_餐饮2.rar (301.46 KB, 下载次数: 799)

2014-10-7 16:42 上传

点击文件名下载附件

suwenkai

VBA万岁 发表于 2014-10-6 15:33
suwenkai老师，以上1039个城市的id值是如何得到的？

以下代码可以提取到 ID与城市对应该表。

1. Sub 按钮12_单击()
   
2.     Dim url, html, js
   
3.     Cells.ClearContents
   
4. 
   
5.     Set html = CreateObject("htmlfile")
   
6.     Set js = CreateObject("scriptcontrol")
   
7.     js.Language = "jscript"
   
8.     For p = 1 To  5000 '自己自行修改要查找对应的ID
   
9.         With CreateObject("msxml2.xmlhttp")
   
10.             url = "http://map.baidu.com/?newmap=1"
    
11.             url = url & "&reqflag=pcmap"
    
12.             url = url & "&biz=1"
    
13.             url = url & "&from=webmap"
    
14.             url = url & "&qt=s"
    
15.             url = url & "&from=webmap"
    
16.             url = url & "&c=" & p
    
17.             url = url & "&pl_data_type=cater"
    
18.             url = url & "&pl_sub_type=餐饮"
    
19.             url = url & "&pl_price_section=0%2C%2B"
    
20.             url = url & "&pl_sort_type=data_type"
    
21.             url = url & "&pl_sort_rule=0"
    
22.             url = url & "&pl_discount2_section=0%2C%2B"
    
23.             url = url & "&pl_groupon_section=0%2C%2B"
    
24.             url = url & "&pl_cater_book_pc_section=0%2C%2B"
    
25.             url = url & "&pl_ticket_book_flag_section=0%2C%2B"
    
26.             url = url & "&pl_movie_book_section=0%2C%2B"
    
27.             url = url & "&pl_business_type=cater"
    
28.             url = url & "&pl_business_id="
    
29.             url = url & "&pl_activity_gwj_section=0%2C%2B"
    
30.             url = url & "&wd=餐饮"
    
31.             url = url & "&pn=1"
    
32.             url = url & "&db=0"
    
33.             url = url & "&wd2="
    
34.             url = url & "&sug=0"
    
35.             url = url & "&da_src=pcmappg.poi.page"
    
36.             url = url & "&on_gel=1"
    
37.             url = url & "&src=7"
    
38.             url = url & "&gr=3"
    
39. 
    
40.             url = url & "&l=12"
    
41.             url = url & "&addr=0"
    
42.             url = url & "&nn=0"
    
43.             url = url & "&tn=B_NORMAL_MAP"
    
44.             url = url & "&ie=utf-8"
    
45.             url = url & "&t=1412423900383"
    
46.             .Open "get", url, False
    
47.             .send
    
48.             js.addcode ("suwenkai = " & .responsetext)
    
49.             n = n + 1
    
50.             Cells(n, 1) = js.eval("suwenkai.current_city.code")
    
51.             Cells(n, 2) = js.eval("suwenkai.current_city.name")
    
52.         End With
    
53.     Next
    
54. End Sub
    

复制代码

学良

suwenkai 发表于 2014-10-7 19:43
以下代码可以提取到 ID与城市对应该表。

谢谢分享, 辛苦了!

VBA万岁

suwenkai 发表于 2014-10-7 19:43
以下代码可以提取到 ID与城市对应该表。

多谢suwenkai老师帮助！
一直有一个疑问：第11~45行代码中，引号内的数据是怎么得来的——之前有其他大侠说是抓包得到的，一直都不明所以。所以，想请教suwenkai老师，如何抓包？是不是还需要下载安装什么东西？

2007小金猪

网页取数，值得收藏。