主题：有谁知道：如何把百度地图左边的搜索列表导出成EXCEL文件？

参考

下载信息  [文件大小：93.8 KB  下载次数：53]

点击浏览该文件:管理项目3.rar

mark 百度地图关键字查询

Dim 关键词 As String = "电影院"
Dim 地点 As String = "湛江"
Dim uri As String = "http://api.map.baidu.com/place/v2/search?query=" & 关键词 & "&page_size=400&page_num=0&scope=1&region=" & 地点 & "&output=json&ak=hAaa2NLELKdAIfMhMjnuEgi1"
Dim rqst As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(uri)
Dim rsps As System.Net.HttpWebResponse = rqst.GetResponse
Dim stm As System.IO.Stream = rsps.GetResponseStream()
Dim reader As New System.IO.StreamReader(stm)
Dim json As String = reader.ReadToEnd

output.show(uri)
Dim ScriptControl As Object, data  As Object, JscriptCode As String
JscriptCode = "function toObject(json) {eval(""var o=""+json);return o;}"
ScriptControl = CreateObject("MSScriptControl.ScriptControl")
With ScriptControl
    .Language = "Javascript"
    .Timeout = -1
    .AddCode(JscriptCode)
    data = .Run("toObject", json)
End With

For Each o As object In data.results
    output.show(o.name)
    output.show(o.address)
    output.show(o.telephone)
    output.show("---------")
Next

参考

http://www.foxtable.com/help/topics/0213.htm