I want to Baidu map search results export files, for example: Baidu map Search "food", the region is the whole Beijing area, to "name" "Phone" "address", how to search results directly into the document, hope the great God guidance.
Subbutton 1_ Click ()DimURL, html, JS cells.clearcontents BR= [{"Shop Name","Address","Telephone"}] Range ("A1:C1") =br URL="" SetHTML =CreateObject("Htmlfile") SetJS =CreateObject("ScriptControl") JS. Language="JScript" forp =1 to 5 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=131"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= Dining"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 &"&b= (12923312.96,4835667.72;12993008.96,4846291.72)"URL= URL &"&l=12"URL= URL &"&addr=0"URL= URL &"&nn="& (P-1) *TenURL= URL &"&tn=b_normal_map"URL= URL &"&ie=utf-8"URL= URL &"&t=1412423900383" . Open"Get"UrlFalse. Send Js.addcode ("Suwenkai ="&. responsetext) Slen= Js.eval ("Suwenkai.content.length") -1 fori =0 toslen N= n +1Cells (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 NextEnd Sub
How to export all the search results of Baidu map to excel file