VBA IE自动化：模拟Ctrl+点击实现网页名称多选操作问询

Hey there, let's get this automation sorted out. Here's a step-by-step solution to simulate Ctrl+clicking those name links and loading the selected data using Excel VBA:

Prerequisites #

First, enable the necessary references in your VBA editor:

• Go to Tools > References
• Check Microsoft Internet Controls and Microsoft HTML Object Library
• Click OK

Full VBA Code #

Sub MultiSelectAndLoadData()
    Dim ie As InternetExplorer
    Dim doc As HTMLDocument
    Dim nameLinks As IHTMLElementCollection
    Dim link As IHTMLElement
    Dim loadButton As IHTMLElement
    
    ' Initialize Internet Explorer (visible for debugging; set to False later if needed)
    Set ie = New InternetExplorer
    ie.Visible = True
    ie.Navigate "https://your-website-url-here.com" ' Replace with your actual site URL
    
    ' Wait for the page to fully load
    Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    Set doc = ie.Document
    
    ' Wait for name links to appear (handles dynamic content)
    Do While doc.querySelectorAll("a[onclick='return false;']").Length = 0
        DoEvents
        Application.Wait Now + TimeValue("00:00:01") ' Wait 1 second before rechecking
    Loop
    
    ' Grab all name links using the onclick attribute from your HTML
    Set nameLinks = doc.querySelectorAll("a[onclick='return false;']")
    
    ' Simulate Ctrl+Click on specific names
    For Each link In nameLinks
        ' Add/remove names here to match what you want to select
        Select Case Trim(link.innerText)
            Case "Doe, John", "Smith, Jane", "Brown, Alice"
                ' Create a mouse click event with the Ctrl key pressed
                Dim clickEvent As Object
                Set clickEvent = doc.createEvent("MouseEvent")
                ' Parameters: event type, bubbles, cancelable, view, detail, screenX, screenY, clientX, clientY, ctrlKey, altKey, shiftKey, metaKey, button, relatedTarget
                clickEvent.initMouseEvent "click", True, True, ie.Window, 1, 0, 0, 0, 0, True, False, False, False, 0, Nothing
                link.dispatchEvent clickEvent
        End Select
    Next link
    
    ' Find and click the second button (adjust selector if needed)
    ' If your button has an ID/class, use that instead (e.g., doc.querySelector("#load-btn"))
    Set loadButton = doc.getElementsByTagName("button")(1) ' 0-based index = second button
    
    loadButton.Click
    
    ' Wait for the data to load
    Do While ie.Busy Or ie.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Loop
    
    ' Optional: Add code here to extract the loaded data into Excel
    
    ' Cleanup (uncomment to close the browser when done)
    ' ie.Quit
    ' Set ie = Nothing
End Sub

Key Adjustments You'll Need to Make #

• Replace the URL: Swap https://your-website-url-here.com with the actual site address.
• Tweak the name selector: If the onclick attribute isn't unique, use a more specific selector like a[href^='#r'] (since your links have href="#r9" etc.).
• Update the target names: Modify the Case statement to include the exact names you want to select.
• Adjust the button selector: If the second button has an ID or class (e.g., <button class="load-data-btn">), use doc.querySelector(".load-data-btn") instead of relying on index (more reliable).

Why This Works #

Instead of using flaky SendKeys, we directly simulate mouse click events with the Ctrl key pressed using the DOM's dispatchEvent method. This is more reliable because it doesn't depend on the browser window being focused.

Alternative for Modern Browsers (Edge/Chrome) #

If the site doesn't work well with Internet Explorer (which is deprecated), you can use Selenium Basic with the Edge/Chrome driver. It's a bit more setup, but works better for modern JavaScript-heavy sites.

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