Очистка данных c внутри таблицы - PullRequest
Новая
       31

Очистка данных c внутри таблицы

1 голос
/ 08 января 2020

Возможно, это довольно простое решение, но я в растерянности, хотя чувствую близость.

Я пытаюсь собрать рыночные данные с веб-сайта TMX, в частности, я хотел бы, чтобы сумма дивидендов упала в мою книгу Excel.

Ниже приведены несколько строк кода из раздела «осмотреть». 

<table class="table">
  <tbody>
    <tr>
      <td>
        <strong>Amount:</strong>&nbsp;
        $0.0495
      </td>

Мне нужно получить $ 0,0495 в книгу, и мой код vba следующий: 

For Each htmlELE In ieObj.document.getElementsByClassName("table")(0).getElementsByTagName("tr")(0).getElementsByTagName("td")
    With ActiveSheet
        .Range("L10").Value = htmlELE.Children(0).innerText
    End With

Итак, я перебираю код, но конец продолжает набирать «Amount:» и помещать его в ячейку вместо значения, которое мне нужно, сидя на следующей строке.

1 Ответ

0 голосов
/ 08 января 2020 
Dim v
For Each htmlELE In ieObj.document.getElementsByClassName("table")(0). _
               .getElementsByTagName("tr")(0).getElementsByTagName("td")

    v = htmlELE.innerText

    '&nbsp; is CHR(160)
    ActiveSheet.Range("L10").Value = trim(Replace(v, "Amount:" & chr(160),""))

    'or lookfor the $ and take the rest
    p = Instr(v, "$")
    If p > 0 Then ActiveSheet.Range("L10").Value= Mid(v, p)
...