Wyniki dzielenia VBA z importowanej tabeli html do excela
Witam Importuję całą tabelę ze strony internetowej do ciągu Excel:
Dim fST As String
fST = Doc.getElementsByTagName("table")(0).innerText
po tym chciałbym podzielić tabelę wewnątrz komórek Excela i dokonać podziału za pomocą<td>
znaczniki z tabeli html, a przynajmniej taka jest opcja, o której myślę, że można to zrobić, aby importowana tabela była taka sama wewnątrz programu Excel po zaimportowaniu, każda wartość znajdzie się wewnątrz pojedynczej komórki.
Daj mi znać dzięki.
Oto cały stożek, którego używam:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = Range("URL").Row And _
Target.Column = Range("URL").Column Then
Dim IE As New InternetExplorer
IE.Visible = True
IE.navigate Application.ActiveSheet.Range("URL")
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim Doc As HTMLDocument
Set Doc = IE.document
Dim tbl, trs, tr, tds, td, r, c
Set tbl = Doc.getElementsByTagName("table")(0)
Set trs = tbl.getElementsByTagName("tr")
For r = 1 To trs.Count
Set tds = trs(r).getElementsByTagName("td")
For c = 1 To tds.Count
ActiveSheet.Cells(r, c).Value = tds(c).innerText
Next c
Next r
IE.Quit
End If
End Sub
Ale mówi błąd: Obiekt nie obsługuje tej właściwości lub metody w następującym wierszu: Dla r = 1 Do trs.Count