HTML数据提取代码报错咨询：复杂结构（Div id、ul Class等）处理

Let’s break down the issues and fix your data extraction step by step!

First, Diagnose the Original Code’s Gap #

Your current code loops through all <li> elements and checks if the li itself has a class of a-link-normal—but based on your note about the complex HTML structure (with div IDs, ul classes, span classes), it’s likely the a-link-normal class is actually attached to the <a> tag inside the <li>, not the <li> element itself. That’s probably why your original code isn’t capturing the right links.

Targeted Fixes for Common Scenarios #

Here are adjusted code snippets tailored to typical complex HTML setups:

1. Narrow Down to Specific Parent Containers

If your target links live inside a specific <div> or <ul>, avoid looping every <li> on the page. For example, if your HTML looks like this:

<div id="main-content">
  <ul class="product-list">
    <li>
      <a href="/product1" class="a-link-normal">Product 1</a>
      <span class="price">$29.99</span>
    </li>
  </ul>
</div>

Update your code to first locate the parent container:

Dim targetUl As Object
' First find the specific div, then its child ul
Set targetUl = HTMLdoc.getElementById("main-content").getElementsByClassName("product-list")(0)

For Each li In targetUl.getElementsByTagName("li")
    Dim linkColl As Object
    Set linkColl = li.getElementsByTagName("a")
    
    ' Skip if there's no <a> tag in the <li> to avoid errors
    If linkColl.Length > 0 Then
        Set link = linkColl(0)
        ' Check if the <a> tag has the target class (works even with multiple classes)
        If InStr(1, link.getAttribute("class"), "a-link-normal", vbTextCompare) > 0 Then
            .Cells(i, 1).Value = link.getAttribute("href")
            i = i + 1
        End If
    End If
Next li

2. Prevent "Subscript Out of Range" Errors

A frequent mistake is accessing getElementsByTagName("a")(0) when a <li> has no <a> tag. Adding a check for linkColl.Length > 0 stops this error before it happens.

3. Handle Multiple Class Values

If the <a> tag has multiple classes (e.g., class="a-link-normal item-highlight"), using a direct = comparison will fail. InStr lets you check if the target class exists anywhere in the class attribute string.

Fixing the PEH Code Error #

To resolve the errors in the code PEH provided, share these details for a precise fix:

• The exact error message (e.g., "Object variable or With block variable not set", "Subscript out of range")
• The full code snippet from PEH
• A small sample of the HTML structure you’re working with (redact any sensitive data)

These details will help pinpoint if the issue is missing parent element targeting, null references, or incorrect class matching.

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