如何使用Excel Web Query通过动态起始日期下载数据

问题核心在于Excel日期的数值特性：Excel中的日期本质是数值（1900-01-01对应数值1，后续日期按天递增），你直接将ActiveCell.Value拼接到URL时，传递的是日期对应的数值（比如2025-09-01对应数值约46105），而CDEC的API无法识别这种格式，因此默认返回1984年以来的全部数据。另外你写的ActiveCell.Value -1只是对数值做减法，结果仍是数值，并非API要求的YYYY-MM-DDTHH%3A00格式字符串。

修正后的代码 #

将注释掉的queryURL行替换为以下代码，同时建议避免使用Select操作，直接引用单元格更可靠：

' 获取M1单元格的日期，处理减1天并格式化为API要求的字符串
Dim startDate As Date
startDate = ws.Range("M1").Value
' 日期减1天，格式化为YYYY-MM-DD，再拼接URL编码的时间部分
Dim formattedStartDate As String
formattedStartDate = Format(DateAdd("d", -1, startDate), "YYYY-MM-DD") & "T00%3A00"

' 拼接完整请求URL
queryURL = "https://cdec.water.ca.gov/dynamicapp/req/CSVDataServlet?Stations=BND&SensorNums=20&dur_code=H&Start=" & formattedStartDate & "&End=now"

关键说明 #

• DateAdd("d", -1, startDate)：实现你原本的“日期减1天”需求，直接对日期类型做运算，避免数值操作的混乱
• Format(..., "YYYY-MM-DD")：将Excel日期数值转换为API可识别的日期字符串格式
• 拼接T00%3A00：对应硬编码中的时间部分，%3A是URL编码的冒号:
• 直接用ws.Range("M1").Value替代ActiveCell.Value：避免因单元格选中状态变化导致的错误，代码逻辑更稳定

内容的提问来源于stack exchange，提问作者Salvador