如何用VBA抓取含ASPX代码的网页？CFE费率自动化下载遇阻

我完全懂你现在的困扰——手动在那个CFE的ASPX页面选年份时，页面会自动加载对应费率数据，但用VBA直接改下拉框的Value后，页面根本没反应对吧？这是因为ASPX的下拉框绑定了JavaScript事件（比如onchange），手动操作浏览器会自动触发这些事件，但VBA直接赋值可不会干这事，得我们手动调用触发，而且ASPX页面的动态数据抓取也有一些要点要注意，我给你一步步捋清楚：

为什么直接改Value没用？ #

ASPX这类服务器端渲染的页面，下拉框通常绑定了onchange或类似的JavaScript事件，当用户手动选择时，浏览器会自动触发这个事件，通知服务器加载对应的数据。但VBA直接给下拉框的Value属性赋值，只是修改了元素的属性，并没有触发这些绑定的事件，所以页面不会有任何变化。

如何用VBA触发页面事件？ #

修改年份后，我们需要手动触发下拉框的change事件，有两种常用方法：

方法1：FireEvent（适合旧版IE） #

' 修改年份后调用FireEvent触发onchange
HTMLSeleccionar.FireEvent "onchange"

方法2：dispatchEvent（更标准，兼容性更好） #

' 创建并触发change事件
Dim evt As Object
Set evt = HTMLDoc.createEvent("HTMLEvents")
evt.initEvent "change", True, False
HTMLSeleccionar.dispatchEvent evt

触发事件后，一定要等待页面加载完成（包括可能的AJAX异步请求），可以用这个循环：

Do Until IE.readyState = 4 And Not IE.Busy
    DoEvents
Loop

完善你的VBA代码 #

我把你的代码修改了一下，优化了IE初始化（不用每次循环都新建IE，效率更高），加上了事件触发和等待逻辑，还加了一个提取数据的子过程：

Sub DescargarTarifasCFE()
    Dim IE As InternetExplorer
    Dim HTMLDoc As HTMLDocument
    Dim URL As String
    Dim FechaINI As Date, FechaFIN As Date, Fecha As Date
    Dim HTMLSeleccionar As HTMLSelectElement
    Dim evt As Object
    
    Application.Calculate
    Application.StatusBar = False
    
    FechaINI = Sheets("Base").Range("FINI").Value
    FechaFIN = Sheets("Base").Range("FFIN").Value
    
    ' 只初始化一次IE，减少资源消耗
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = True
    URL = "https://app.cfe.mx/Aplicaciones/CCFE/Tarifas/TarifasCREIndustria/Tarifas/DemandaIndustrialSub.aspx"
    IE.navigate URL
    ' 等待初始页面加载完成
    Do Until IE.readyState = 4 And Not IE.Busy
        DoEvents
    Loop
    Set HTMLDoc = IE.Document
    
    For Fecha = FechaINI To FechaFIN
        If Day(Fecha) = 1 Then
            Set HTMLSeleccionar = HTMLDoc.getElementById("ContentPlaceHolder1_Fecha_ddAnio")
            ' 避免重复操作同一个年份
            If HTMLSeleccionar.Value <> CStr(Year(Fecha)) Then
                HTMLSeleccionar.Value = Year(Fecha)
                
                ' 触发change事件，选一种方法即可
                ' 方法1：FireEvent
                HTMLSeleccionar.FireEvent "onchange"
                
                ' 方法2：dispatchEvent
                ' Set evt = HTMLDoc.createEvent("HTMLEvents")
                ' evt.initEvent "change", True, False
                ' HTMLSeleccionar.dispatchEvent evt
                
                ' 等待页面更新完成
                Do Until IE.readyState = 4 And Not IE.Busy
                    DoEvents
                Loop
                ' 提取当前年份的费率数据到Excel
                ExtraerDatos HTMLDoc, Year(Fecha)
            End If
        End If
    Next fecha
    
    ' 清理资源
    IE.Quit
    Set IE = Nothing
    Set HTMLDoc = Nothing
    Set HTMLSeleccionar = Nothing
    MsgBox "费率数据下载完成！"
End Sub

' 提取页面数据到Excel的子过程（需要根据页面实际结构调整）
Sub ExtraerDatos(doc As HTMLDocument, anio As Integer)
    Dim tabla As HTMLTable
    Dim fila As HTMLTableRow
    Dim celda As HTMLTableCell
    Dim filaExcel As Integer
    
    ' 找到页面中的数据表格（替换成实际表格的ID，需要你在页面中查看元素确认）
    Set tabla = doc.getElementById("ContentPlaceHolder1_GridView1")
    If Not tabla Is Nothing Then
        ' 找到Excel中要写入的起始行
        filaExcel = Sheets("Datos").Cells(Rows.Count, 1).End(xlUp).Row + 1
        ' 遍历表格行（跳过表头，根据实际情况调整）
        For Each fila In tabla.Rows
            If fila.RowIndex > 0 Then
                For Each celda In fila.Cells
                    Sheets("Datos").Cells(filaExcel, celda.cellIndex + 1).Value = celda.innerText
                Next celda
                filaExcel = filaExcel + 1
            End If
        Next fila
        ' 给提取的数据标注年份
        Sheets("Datos").Range("A" & filaExcel - tabla.Rows.Count + 1 & ":A" & filaExcel - 1).Value = anio
    Else
        MsgBox "未找到目标数据表格，请检查页面元素ID！"
    End If
End Sub

ASPX页面数据抓取的注意事项 #

• 引用必要的库：如果想获得智能提示，可以在VBA编辑器的「工具」->「引用」里勾选Microsoft Internet Controls和Microsoft HTML Object Library；如果不想用引用，像你那样用CreateObject做后期绑定也可以，只是没有代码提示。
• 处理ViewState：ASPX页面会用ViewState来维持状态，用IE操作的话，浏览器会自动处理Cookie和ViewState，不用我们手动操心，这也是用IE比用XMLHTTP更简单的原因。
• 反爬机制：频繁操作可能会被网站限制，建议在循环中加一点延迟，比如Application.Wait Now + TimeValue("00:00:02")，避免请求太密集。
• 元素定位：抓取数据时，要准确找到数据所在的HTML元素（比如表格的ID），可以用浏览器的「检查元素」功能查看页面结构，调整代码中的元素ID或选择器。

内容的提问来源于stack exchange，提问作者Santos Eloy Gonzalez