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