Excel VBA网页抓取：无法点击指定Href链接问题求助

Hey there! Let's figure out why your VBA macro can't click that specific link. You've got the page opening and navigation sorted, so we just need to tweak how you're targeting that Scheduling link. Let's dive into some solutions:

1. Use querySelector for Precise Targeting #

This is the cleanest way if your browser supports it (most modern IE versions do). We can target the link directly using its class and exact href attribute:

' Assume your Internet Explorer object is named ieApp
Dim targetLink As Object

' Critical: Wait for the page to fully load first!
Do While ieApp.Busy Or ieApp.ReadyState <> 4
    DoEvents
Loop

' Locate the link using combined selectors
Set targetLink = ieApp.Document.querySelector("a.onglet[href='/cmh/consultation/preViewMODScheduling.do']")

' Check if we found the element before clicking
If Not targetLink Is Nothing Then
    targetLink.Click
Else
    MsgBox "Oops, target link not found!"
End If

2. Traverse Elements by Class Name #

If querySelector isn't working (maybe due to older IE compatibility), we can loop through all elements with the onglet class and match either the href or link text:

Dim links As Object
Dim link As Object

' Again, wait for page load
Do While ieApp.Busy Or ieApp.ReadyState <> 4
    DoEvents
Loop

' Get all elements with class "onglet"
Set links = ieApp.Document.getElementsByClassName("onglet")

' Loop through to find the right link
For Each link In links
    ' Option 1: Match by href (more reliable if text might change)
    If link.href Like "*preViewMODScheduling.do" Then
        link.Click
        Exit For ' Exit loop once found
    End If
    
    ' Option 2: Match by link text
    ' If Trim(link.innerText) = "Scheduling" Then
    '     link.Click
    '     Exit For
    ' End If
Next link

' Alert if no link was found
If link Is Nothing Then
    MsgBox "Couldn't locate the Scheduling link!"
End If

Key Things to Double-Check #

• Page Load Timing: Skipping the wait loop is the #1 reason elements can't be found. Always wait until ReadyState = 4 and the browser isn't busy before interacting.
• IFrame Check: If the link is inside an iframe, you need to access the iframe's document first. For example:

  Dim iframe As Object
  Dim iframeDoc As Object
  
  Set iframe = ieApp.Document.getElementById("yourIframeID") ' Replace with actual iframe ID
  If Not iframe Is Nothing Then
      Set iframeDoc = iframe.contentDocument
      ' Now search for the link in iframeDoc instead of ieApp.Document
      Set targetLink = iframeDoc.querySelector("a.onglet[href='/cmh/consultation/preViewMODScheduling.do']")
      If Not targetLink Is Nothing Then targetLink.Click
  End If
  

• Older IE Compatibility: For IE8 or earlier, getElementsByClassName isn't supported. Use this workaround instead:

  Dim allLinks As Object
  Dim link As Object
  
  Set allLinks = ieApp.Document.getElementsByTagName("a")
  For Each link In allLinks
      ' Check if the class includes "onglet" (handles multiple classes separated by spaces)
      If InStr(1, link.className, "onglet", vbTextCompare) > 0 And _
         link.href Like "*preViewMODScheduling.do" Then
          link.Click
          Exit For
      End If
  Next link
  

Give these approaches a shot—hopefully one of them gets that link clicking properly!

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