0

我正在尝试将下拉值写入 excel，但是我遇到了一些困难。

这是HTML代码：

<div class="select__box" id="wrapBox">
   <div class="option" name="US" data-id="United States">
      <div class="option__icon"><span class="flag-icon flag-icon-3x flag-icon-us flag-icon-squared option__flag"></span></div>
      <div class="option__title">United States</div>
   </div>
   <div class="option" name="CA" data-id="Canada">
      <div class="option__icon"><span class="flag-icon flag-icon-3x flag-icon-ca flag-icon-squared option__flag"></span></div>
      <div class="option__title">Canada</div>
   </div>
   <div class="option" name="GB" data-id="United Kingdom">
      <div class="option__icon"><span class="flag-icon flag-icon-3x flag-icon-gb flag-icon-squared option__flag"></span></div>
      <div class="option__title">United Kingdom</div>
   </div>
   <div class="option" name="DO" data-id="Dominican Republic">
      <div class="option__icon"><span class="flag-icon flag-icon-3x flag-icon-do flag-icon-squared option__flag"></span></div>
      <div class="option__title">Dominican Republic</div>
   </div>
   <div class="option" name="CN" data-id="China">
      <div class="option__icon"><span class="flag-icon flag-icon-3x flag-icon-cn flag-icon-squared option__flag"></span></div>
      <div class="option__title">China</div>
   </div>
</div>

首先我需要得到国家名称，我可以用代码做到这一点

x = objIE.document.getElementsByClassName("option").Length
    nextEmptyRow = 1

    For i = 0 To x - 1
    cnt = objIE.document.getElementsByClassName("option")(i).innerText
    ActiveWorkbook.Sheets("Sheet1").Range("A" & nextEmptyRow).Value = cnt
    nextEmptyRow = nextEmptyRow + 1
    Next i

然后我想获取国家代码（US、CA、GB、DO、CN）

我正在尝试使用类似的代码，但它给了我一个错误，我无法找出可能是什么问题。

    For i = 0 To x - 1
    cnt2 = objIE.document.getElementByClassName("option")(i).getAttribute("name").innerText
    ActiveWorkbook.Sheets("Sheet1").Range("B" & nextEmptyRow2).Value = cnt2
    nextEmptyRow2 = nextEmptyRow2 + 1
    Next i
4

2 回答 2

0

解析字符串是一种选择吗？

在这里，出于测试目的，我将 HTML 存储在 Activesheet 的单元格 A1 中：

Option Explicit

Sub test()

    Dim parseString As String

    parseString = ActiveSheet.Range("A1")

    Dim codesArray() As String

    codesArray = Split(parseString, "name=""")

    Dim i As Long

    For i = 1 To UBound(codesArray)
        Debug.Print Left$(codesArray(i), InStr(1, codesArray(i), " ") - 2)
    Next i

End Sub

代码打印输出

工作表中的 HTML（用于测试）

用于测试的工作表中的 HTML

于 2018-02-26T16:23:48.793 回答
0

谢谢你的建议，QHarr，但我找到了一个更简单的解决方案。

显然我需要更具体地指出 HTML 代码中的行，我错过了getElementById("wrapBox")或者.innerText是.Value不必要的。

 For i = 0 To x - 1
    cnt = objIE.document.getElementsByClassName("option")(i).innerText
    ActiveWorkbook.Sheets("Sheet1").Range("A" & nextEmptyRow).Value = cnt
    cnt2 = objIE.document.getElementById("wrapBox").getElementsByClassName("option")(i).getAttribute("name")
    ActiveWorkbook.Sheets("Sheet1").Range("B" & nextEmptyRow).Value = cnt2
    nextEmptyRow = nextEmptyRow + 1
    Next i
于 2018-02-27T12:39:01.997 回答