Hallo, ich importiere eine ganze Tabelle von einer Website, um Zeichenfolge zu übertreffen:

Dim fST As String
fST = Doc.getElementsByTagName("table")(0).innerText

Danach möchte ich die Tabelle in Excel - Zellen aufteilen und die Aufteilung mit der<td> Tags aus der HTML-Tabelle, oder zumindest ist dies die Option, für die ich denke, getan werden kann, so dass die importierte Tabelle innerhalb von Excel die gleiche sein wird, sobald es importiert wird, wird jeder Wert in einer einzelnen Zelle sein.

Lass es mich wissen, danke.

Hier ist das Ganze, das ich benutze:

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

Aber es heißt Fehler: Object unterstützt diese Eigenschaft oder Methode in der folgenden Zeile nicht: For r = 1 To trs.Count