如何用VBA点击网页CSV按钮？现有代码无法实现求技术指导

原代码存在几个关键问题导致无法触发CSV按钮点击：

• 选择器语法错误：querySelector参数格式错误，类选择器正确写法应为span.hov-underline，而非span class=hov-underline。
• 页面加载判断不充分：仅依赖readyState=4无法覆盖异步加载场景，元素可能未渲染完成就执行后续代码。
• 资源重复创建：循环内每次新建IE实例，既浪费系统资源也会导致操作不稳定。
• 目标元素定位偏差：span.hov-underline通常只是按钮的文本容器，实际可点击的是它的父元素（如<a>标签），直接点击span可能无效。

修改后的代码 #

Sub website_test()
    Dim ie As Object
    Dim ht As HTMLDocument
    Dim csvButton As Object
    Dim i As Integer
    
    ' 创建单个IE实例，避免重复初始化
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    
    For i = 0 To 5
        ie.navigate "https://www.dailyfantasyfuel.com/nfl/projections/fanduel/2022-09-11/"
        
        ' 等待页面完全加载（同步+异步内容）
        Do Until ie.readyState = 4 And Not ie.Busy
            DoEvents
        Loop
        
        Set ht = ie.document
        
        ' 调试用：输出指定元素文本（可按需保留或删除）
        ' Dim elems As Object
        ' Set elems = ht.getElementsByClassName("title may-blank")
        ' For Each elem In elems
        '     Debug.Print elem.innerText
        ' Next
        
        ' 等待CSV按钮加载完成，最长等待10秒
        Dim waitTimeout As Double
        waitTimeout = Timer + 10
        Do
            DoEvents
            Set csvButton = Nothing
            On Error Resume Next
            ' 优先定位可点击的父元素，避免点击文本容器无效
            Set csvButton = ht.querySelector("a:has(span.hov-underline)")
            If csvButton Is Nothing Then
                Set csvButton = ht.querySelector("span.hov-underline").parentNode
            End If
            On Error GoTo 0
        Loop Until Not csvButton Is Nothing Or Timer > waitTimeout
        
        ' 找到按钮则执行点击，添加短等待确保操作生效
        If Not csvButton Is Nothing Then
            csvButton.Click
            Application.Wait Now + TimeValue("00:00:02")
        Else
            Debug.Print "第" & i & "次循环：未找到CSV按钮"
        End If
    Next i
    
    ' 循环结束后统一关闭IE，释放资源
    ie.Quit
    Set ie = Nothing
End Sub

核心优化点 #

• IE实例复用：仅创建一次IE对象，循环结束后统一销毁，减少资源占用。
• 增强等待逻辑：同时判断readyState=4和Not ie.Busy，确保页面完全加载。
• 元素超时等待：添加10秒超时机制，避免因异步加载导致元素找不到的问题。
• 精准定位可点击元素：通过父标签定位可点击区域，解决仅点击文本容器无效的问题。
• 容错处理：添加错误捕获，避免因元素未找到导致代码崩溃。

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