您的举报已经提交成功，我们将尽快处理，谢谢！
这个是百度的功能，一般百度会不定时更新地址。只要百度上有的地址，搜索一下地址关键词就可以的。
呃,在搜索位置填入 26°56'24"86N,119°21'57"67E 然后搜索
首先百度里有是申请免费登录到搜索引擎：百度最晚一个月可以找到你站点，因为百度的搜索是每隔36天更新一次。被Google收录要快一些，只要站点还有些实际内容，它就...
大家还关注扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
百度地图导航路线设置经过地点的问题?最近用百度地图手机客户端进行导航发现一个问题,首先在手机上搜索了路线之后不能设置途经的地点,这样选择路线时很不方便.后来在电脑上发现原来可以拖动路线上的点,来设置途经地点,但是选择好的路线收藏之后,到了手机上,还是没有途经地点.（我用三星手机,安卓系统）
亲爱的轮回28I
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
像你这种需求比较常见,你用过什么手机导航,下载一个腾讯地图也不错,应该是能做到这样,因为路线准确,冤枉路什么的比较少,我用他基本没什么问题, 路线比较准,我觉得这个最实用的,开车的话最重要的就是路线了,其他的都没什么,语音导航功能用着也挺舒服的,比较准确,你可以试试.希望解决你的问题,给人与善~升级需要您的采纳!谢谢了!
为您推荐：
其他类似问题
扫描下载二维码有谁知道：如何把百度地图左边的搜索列表导出成EXCEL文件？_百度地图吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
有谁知道：如何把百度地图左边的搜索列表导出成EXCEL文件？收藏
自己获取查询结果，然后解析一下，然后导出！
可以通过调用api写代码导出。但不全，我试过，最多导出800条数据就导出不了了
进百 DU 地图群
现在依然没有什么好办法么？
没有条数限制的。 我写了个软件，采集几千条 都可以的啊。
楼主，请问红色的字是啥字体呢？
要测试采集 效果，加我联系吧
已经加你微信号了
， 请加一下我的微神吧， LJY
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或[百度地图搜索结果导出]百度地图里搜索出的地图为什么不显示呢？我用百度地图搜索出的地图，
· · · ·
您当前的位置： → [百度地图搜索结果导出]百度地图里搜索出的地图为什么不显示呢？我用百度地图搜索出的地图，
[百度地图搜索结果导出]百度地图里搜索出的地图为什么不显示呢？我用百度地图搜索出的地图，
篇一 : 百度地图里搜索出的地图为什么不显示呢？我用百度地图搜索出的地图，百度地图里搜索出的地图为什么不显示呢？我用地图搜索出的地图，搜索结束后，显示不出地图来，文字的东西都一切正常，但就是地图不显示，这是为什么呢？太奇怪了，我用搜狗、google地图，也是同样的问题，到底怎么处理呢？你是否用了3721，拦截了图片等，点去。。。篇二 : 用百度搜索出的结果字体都变了是什么问题用百度搜索出的结果字体都变了是什么问题用搜索出的结果字体都变了是什么问题这个不好说。一个是在IE的选项里可以设置　。另一个就是在查看里。可以设置查看的字体
上一篇文章：
下一篇文章：
本文标题：[百度地图搜索结果导出]百度地图里搜索出的地图为什么不显示呢？我用百度地图搜索出的地图，&版权说明
文章标题： 文章地址：
1、《[百度地图搜索结果导出]百度地图里搜索出的地图为什么不显示呢？我用百度地图搜索出的地图，》一文由262阅读网（）网友提供，版权归原作者本人所有，转载请注明出处！
2、转载或引用本网内容必须是以新闻性或资料性公共免费信息为使用目的的合理、善意引用，不得对本网内容原意进行曲解、修改，同时必须保留本网注明的"稿件来源"，并自负版权等法律责任。
3、对于不当转载或引用本网内容而引起的民事纷争、行政处理或其他损失，本网不承担责任。查看: 1576|回复: 9
怎么把百度地图的搜索结果全部导出到Excel文件
阅读权限10
在线时间 小时
我想把百度地图搜索结果导出文件，例如：百度地图里搜索“餐饮”，区域是全北京地区，要“名称”“电话”“省份”“城市”“地址”“经度/纬度”，怎么把搜索的结果直接导成文件，望大神指导
111.JPG (52.51 KB, 下载次数: 2)
13:21 上传
阅读权限10
在线时间 小时
Sub BaiDuMap()
Dim winhttp, URL, arr, i, j, p, t, objSC, strJSON, objJSON, pages, n, strFunc, jsonItem
Sheet1.Cells.Clear
Set winhttp = CreateObject(&WinHttp.WinHttpRequest.5.1&)
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
With winhttp
For i = 1 To 94
URL = &/?newmap=1&reqflag=pcmap&biz=1&pcevaname=pc2&da_par=baidu&from=webmap&qt=con&from=webmap&c=179&wd=%E6%AF%8D%E5%A9%B4%E5%BA%97&pn=& & i - 1 & &&db=0&wd2=&sug=0&da_src=pcmappg.poi.page&on_gel=1&src=7&gr=3&b=(,;,)&l=12&addr=0&nn=& & (i - 1) * 10 & &&tn=B_NORMAL_MAP&ie=utf-8&t=3&
.Open &GET&, URL, False
.setRequestHeader &Connection&, &Keep-Alive&
.send
t = UToGB(.responsetext)
strJSON = Split(Split(t, &&&content&&:&)(1), &,&&current_city&)(0)
Set objSC = CreateObject(&ScriptControl&)
objSC.Language = &JScript&
strFunc = &function getjson(s) { return eval('(' + s + ')'); }&
objSC.AddCode strFunc
Set objJSON = objSC.CodeObject.getjson(strJSON)
For Each jsonItem In objJSON
On Error Resume Next
n = n + 1
Cells(n, 1) = CallByName(jsonItem, &name&, VbGet)
Cells(n, 2) = CallByName(jsonItem, &addr&, VbGet)
Cells(n, 3) = CallByName(jsonItem, &tel&, VbGet)
Next
Next
End With
Set objSC = Nothing
Set objJSON = Nothing
Set jsonItem = Nothing
Set winhttp = Nothing
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
Function UToGB(ByVal str1 As String)
Dim i, y, arr1(), arr2(), ireg As Object, imch As Object, mch As Object
Set ireg = CreateObject(&vbscript.regexp&)
ireg.Global = True
ireg.Pattern = &\\u\w{4}&
Set imch = ireg.Execute(str1)
For Each mch In imch
y = y + 1
ReDim Preserve arr1(1 To y)
ReDim Preserve arr2(1 To y)
arr1(y) = ChrW(CLng(Replace(mch.Value, &\u&, &&h&)))
arr2(y) = mch.Value
Next
For i = 1 To UBound(arr1)
str1 = Replace(str1, arr2(i), arr1(i))
Next
UToGB = str1
Set ireg = Nothing
End Function复制代码
这些代码不能导出经纬度
阅读权限20
在线时间 小时
期待有大神来解决。
阅读权限30
在线时间 小时
& & & & & & & &
Cells(n + 1, 6) = CallByName(jsonItem, &diPointX&, VbGet) & &/& & CallByName(jsonItem, &diPointY&, VbGet)
阅读权限10
在线时间 小时
Cells(n + 1, 6) = CallByName(jsonItem, &diPointX&, VbGet) & &/& & CallByName(jsonItem, &diPo ...
是这样吗大神，但导出的结果不是经纬度啊
Sub BaiDuMap()
Dim winhttp, URL, arr, i, j, p, t, objSC, strJSON, objJSON, pages, n, strFunc, jsonItem
Sheet1.Cells.Clear
Set winhttp = CreateObject(&WinHttp.WinHttpRequest.5.1&)
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
With winhttp
For i = 1 To 10
URL = &/?newmap=1&reqflag=pcmap&biz=1&pcevaname=pc2&da_par=baidu&from=webmap&qt=con&from=webmap&c=179&wd=%E6%AF%8D%E5%A9%B4%E5%BA%97&pn=& & i - 1 & &&db=0&wd2=&sug=0&da_src=pcmappg.poi.page&on_gel=1&src=7&gr=3&b=(,;,)&l=12&addr=0&nn=& & (i - 1) * 10 & &&tn=B_NORMAL_MAP&ie=utf-8&t=3&
.Open &GET&, URL, False
.setRequestHeader &Connection&, &Keep-Alive&
.send
t = UToGB(.responsetext)
strJSON = Split(Split(t, &&&content&&:&)(1), &,&&current_city&)(0)
Set objSC = CreateObject(&ScriptControl&)
objSC.Language = &JScript&
strFunc = &function getjson(s) { return eval('(' + s + ')'); }&
objSC.AddCode strFunc
Set objJSON = objSC.CodeObject.getjson(strJSON)
For Each jsonItem In objJSON
On Error Resume Next
n = n + 1
Cells(n, 1) = CallByName(jsonItem, &name&, VbGet)
Cells(n, 2) = CallByName(jsonItem, &addr&, VbGet)
Cells(n, 3) = CallByName(jsonItem, &tel&, VbGet)
Cells(n, 6) = CallByName(jsonItem, &diPointX&, VbGet) & &/& & CallByName(jsonItem, &diPointY&, VbGet)
Next
Next
End With
Set objSC = Nothing
Set objJSON = Nothing
Set jsonItem = Nothing
Set winhttp = Nothing
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
Function UToGB(ByVal str1 As String)
Dim i, y, arr1(), arr2(), ireg As Object, imch As Object, mch As Object
Set ireg = CreateObject(&vbscript.regexp&)
ireg.Global = True
ireg.Pattern = &\\u\w{4}&
Set imch = ireg.Execute(str1)
For Each mch In imch
y = y + 1
ReDim Preserve arr1(1 To y)
ReDim Preserve arr2(1 To y)
arr1(y) = ChrW(CLng(Replace(mch.Value, &\u&, &&h&)))
arr2(y) = mch.Value
Next
For i = 1 To UBound(arr1)
str1 = Replace(str1, arr2(i), arr1(i))
Next
UToGB = str1
Set ireg = Nothing
End Function
复制代码
阅读权限30
在线时间 小时
传附件看看!```
阅读权限10
在线时间 小时
传附件看看!```
请大神过目
18:18 上传
点击文件名下载附件
21.78 KB, 下载次数: 71
阅读权限30
在线时间 小时
& & & & & & & &
这样呢？Cells(n, 4) = CallByName(jsonItem, &diPointX&, VbGet) /
& &/& & CallByName(jsonItem, &diPointY&, VbGet) /
阅读权限10
在线时间 小时
& & & & & & & &
楼主的采集字段 和我的查不到。 不过我是在C#里采集的。 原理应该是一样的，只是效率上肯定比excel强大多了！ 晒图：
(35.73 KB, 下载次数: 1)
22:01 上传
百度地图导出到EXCEL
阅读权限10
在线时间 小时
& & & & & & & &
=(,;,) 这个范围是怎么换算的呢
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师