Cómo exportar por lotes los números de teléfono consultados en el mapa de Baidu (o Tencent) a una tabla de Excel

'Republicado desde la respuesta de suwenkai del ExcelHome Forum, modificado según las necesidades

Sub? Baidu Map Guangzhou Computer ()

Dim?url,?html,?

Cells.ClearContents

br?=?[{"Nombre de la tienda", "Dirección", "Teléfono"}]

Rango("a1：c1 ")?=?br

url?=?""

Establecer?html?=?CreateObject("htmlfile")

Establecer?js?= ?CreateObject("scriptcontrol")

js.Language?=?"jscript"

For?p?=?1?To?5?'1-5 de los resultados de búsqueda página Página

Con?CreateObject("msxml2.xml/?newmap=1"

url?=?url?amp;?"amp;reqflag=pcmap"

url?=?url?amp;?"biz=1"

url?=?url?amp;?"from=webmap"

url =?url? ?amp;?"qt=s"

url?=?url?amp;?"from=webmap"

url?=?url?amp;?"amp;c =257"

url?=?url?amp;?"pl_data_type=cater"

url?=?url?amp;?" amp;pl_sub_type=Equipo"?'Palabras clave

url?=?url?amp;?"pl_price_section=02C2B"

url?=?url?amp;?" &pl_sort_type=data_type"

url ?=?url?amp;?"pl_sort_rule=0"

url?=?url?amp;?"pl_discount2_section= 02C2B"

url?=?url?amp;? "pl_groupon_section=02C2B"

url?=?url?amp;?"pl_cater_book_pc_section=02C2B"

url? p>

url?=?url?amp;?" pl_ticket_book_flag_section=02C2B"

url?=?url?amp;?"pl_movie_book_section=02C2B"

url?=?url?amp;?"pl_business_type=cater"

url?=?url?amp;?"pl_business_id="

url?=? url?amp;?"amp;pl_activity_gwj_section=02C2B"

url?=? url?amp;?"amp;wd=computadora"?'Palabras clave

url?=?url?amp;?"amp;pn=1"

url?=?url ?amp;?"amp;db=0

"

url?=?url?amp;?"amp;wd2="

url?=?url?amp;?"amp;sug=0"

url?=?url?&?"da_src=pcmappg.poi.page"

url?=?url?amp;?"amp;on_gel=1"

url?=?url?amp;?"amp;src=7"

url?=?url?amp;?"amp;gr=3"

url ?= ?url?amp;?"amp;l=12"

url?=?url?amp;?"addr=0"

url?=?url ?amp;? "amp;nn="?amp;?(p?-?1)?*?10

url?=?url?amp;?"amp;tn=B_NORMAL_MAP"

url?=?url?amp;?"ie=utf-8"

url?=?url?amp;?"t=1412423900383"

.¿Abrir?"get ",?url,?Falso

.send

js.addcode?("suwenkai?=?"?amp;?.responsetext)

slen? =?js.eval("suwenkai.content.length")?-?1

For?i?=?0?To?slen

n?=?n? 1

Celdas(n? ?1,?1)?=?js.eval("suwenkai.content["?amp;?i?amp;?"] .name")

Celdas(n? ?1,?2)?=?js.eval("suwenkai.content["?amp;?i?amp;?"].addr")

Celdas( n?1,?3)?=?js.eval("suwenkai.content["?amp;?i?amp;?"].tel")

Siguiente

¿Fin?Con

Siguiente

¿Fin?Sub