VBA网抓获取天气预报的正则表达式

luchao124

VBA网抓获取天气预报的正则表达式不知道如何写 要获取日期，星期 ，天气，最低气温，最高气温 请高手帮忙
获取天气.rar (14.46 KB, 下载次数: 34)

2024-1-13 10:49 上传

点击文件名下载附件

网址：https://www.tianqi.com/changsha/40/

perfect131

1. ""fl"">(.+)</span>[\s\S]*?""fr"">(.+)</span>[\s\S]*?weaul_z"">(.+)</div>[\s\S]*?weaul_z""><span>(.+)</span>~<span>(.+)</span>

复制代码

taller

taller

PQ实现，无需任何VBA代码

1. let
   
2.     Source = Web.BrowserContents("https://www.tianqi.com/changsha/40/"),
   
3.     #"Extracted Table From Html" = Html.Table(Source, {{"Column1", ".weaul .fl"}, {"Column2", ".fr"}, {"Column3", ".weaul_a + *"}, {"Column4", ".weaul_z:nth-child(4)"}, {"Column5", ".weaul_act"}}, [RowSelector=".weaul LI"]),
   
4.     #"Changed Type" = Table.TransformColumnTypes(#"Extracted Table From Html",{{"Column1", type date}, {"Column2", type text}, {"Column3", type text}, {"Column4", type text}, {"Column5", type text}}),
   
5.     #"Removed Columns" = Table.RemoveColumns(#"Changed Type",{"Column5"}),
   
6.     #"Renamed Columns" = Table.RenameColumns(#"Removed Columns",{{"Column1", "日期"}, {"Column2", "星期"}, {"Column3", "天气"}, {"Column4", "温度"}})
   
7. in
   
8.     #"Renamed Columns"
   
9. 
   
10. 
    
11.    

复制代码

十二三

taller 发表于 2024-1-13 13:02
PQ实现，无需任何VBA代码

你好，请问这个如果想要获取全国的天气要怎么修改，我有全国城市的拼音了

松野

这个网站垃圾，不在这个网站搞，可以考虑天气王2345、中国天气网