天气预报求助

渭水之洲

因领导需求，在论坛白嫖了七日天气预报的代码，可以获取未来七天的天气，但是发现城市代码不够全，有些地方就没有天气预报，故在此求助大佬些：
1、能否把网址修改成从表格中获取天气代码，可以修改的那种 ；
2、能否帮忙改成15天的天气预报。
先行叩谢

563083930

这个不是改，是要重写的！

渭水之洲

563083930 发表于 2023-6-2 14:00
这个不是改，是要重写的！

我看成都地址引用的网上的  想着可以引用到表格里呢

学良

这样可以吗？
天气预报 - 副本.zip (1.07 MB, 下载次数: 29)

2023-6-2 21:17 上传

点击文件名下载附件

佳能lT搬砖着

1. Public Function GetWeather(city As String) As String
   
2.     Dim html As New HTMLDocument
   
3.     Dim xhr As New MSXML2.XMLHTTP60
   
4.     Dim url As String
   
5.     Dim ws As Worksheet
   
6.    
   
7.     Set ws = Workbooks.Open("C:\path\to\citycodes.xlsx").Worksheets("Sheet1")
   
8.     url = "http://www.weather.com.cn/weather/" & ws.Range("B2").Value & ".shtml"
   
9.     xhr.Open "GET", url, False
   
10.     xhr.send
    
11. 
    
12.     html.body.innerHTML = xhr.responseText
    
13.     GetWeather = html.getElementById("7d").innerText
    
14. 
    
15.     Workbooks("citycodes.xlsx").Close SaveChanges:=False
    
16. End Function
    

复制代码

渭水之洲

学良 发表于 2023-6-2 21:07
这样可以吗？

我看地址都是到区县的， 不是很全，更希望到区县镇，

渭水之洲

佳能lT搬砖着 发表于 2023-6-2 21:56

大佬，好像不对呢，代码替换了  天气出不来