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

langstonn

[急急急求助] 怎么把百度地图上“标记”点5公里内搜索的学校结果（学校名称、地址、电话、概况等信息）全部导出到Excel文件。谢谢！

langstonn

怎么把百度地图“标记”5公里内搜索的学校结果（学校名称、地址、电话、概况）全部导出到Excel文件，谢谢！大侠

miraclelllkkk

好好学

zyr6363

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

好神奇的代码！非常感谢！
请问suwenkai大神，我想获取搜索出来的    距离 ，后面是什么单词？

zyr6363

我查看源代码，找到一个 distance 加进去好像没有用

dnvjeyj

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 15

        With CreateObject("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=176"

            url = url & "&pl_data_type=cater"

            url = url & "&pl_sub_type=%E9%A4%90%E9%A6%86"

            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")

            Next

        End With

    Next

End Sub

大神给看看，为什么只能返回15页，不然就会报错

oclassic123

求更新。用不了呢。

593148107qqcom

suwenkai 发表于 2014-10-4 23:03

地图搜索采集导出工具

最新版本，可以点击搜索结果快速打开地图查看详情
1、支持高德、腾讯、百度 地图
2、可配置自己的地图授权KEY
3、采集到的结果可点击快速在地图中打开
4、筛选灵活

593148107qqcom

地图搜索导出Excel工具
最新版本，可以点击搜索结果快速打开地图查看详情
1、支持高德、腾讯、百度 地图
2、可配置自己的地图授权KEY
3、采集到的结果可点击快速在地图中打开
4、筛选灵活

593148107qqcom

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

地图搜索导出Excel工具
最新版本，可以点击搜索结果快速打开地图查看详情
1、支持高德、腾讯、百度 地图
2、可配置自己的地图授权KEY
3、采集到的结果可点击快速在地图中打开
4、筛选灵活

软件下载地址: https://www.nandou-china.com/mapPoiExport.html