Wie zu Lesen, die geschachtelte Tabelle <td> Werte mit VBA?

finden Sie den code unten :

Option Explicit 

Sub TableExample() 
    Dim IE As Object 
    Dim doc As Object 
    Dim strURL As String 

    strURL = "[URL="http://example.comwww.dectech.org/football/index.php"]http://example.com[/URL]" ' replace with URL of your choice

    Set IE = CreateObject("InternetExplorer.Application") 
    With IE 
         '.Visible = True

        .navigate strURL 
        Do Until .ReadyState = 4: DoEvents: Loop 
            Do While .Busy: DoEvents: Loop 
                Set doc = IE.Document 
                GetAllTables doc 

                .Quit 
            End With 
        End Sub 

        Sub GetAllTables(doc As Object) 

             ' get all the tables from a webpage document, doc, and put them in a new worksheet

            Dim ws As Worksheet 
            Dim rng As Range 
            Dim tbl As Object 
            Dim rw As Object 
            Dim cl As Object 
            Dim tabno As Long 
            Dim nextrow As Long 
            Dim I As Long 

            Set ws = Worksheets.Add 

            For Each tbl In doc.getElementsByTagName("TABLE") 
                tabno = tabno + 1 
                nextrow = nextrow + 1 
                Set rng = ws.Range("B" & nextrow) 
                rng.Offset(, -1) = "Table " & tabno 
                For Each rw In tbl.Rows 
                    For Each cl In rw.Cells 
                        rng.Value = cl.outerText 
                        Set rng = rng.Offset(, 1) 
                        I = I + 1 
                    Next cl 
                    nextrow = nextrow + 1 
                    Set rng = rng.Offset(1, -I) 
                    I = 0 
                Next rw 
            Next tbl 

            ws.Cells.ClearFormats 

        End Sub 

Ich sah überall nach der Antwort auf diese Frage. Schließlich fand ich die Lösung, das war eigentlich throuhg der Aufzeichnung eines Makros. Ich weiß, Sie denken alle Sie sind oben, aber es ist tatsächlich der beste Weg. Sehen Sie den vollständigen Beitrag hier: http://automatic-office.com/?p=344
Kurz gesagt, Sie wollen, um das makro aufzuzeichnen und gehe auf Daten --> aus web und navigieren Sie zu Ihrer website und wählen Sie die Tabelle, die Sie möchten.

Ich habe die genannten Lösungen "get element by id" - Typ Material in der Vergangenheit, und es ist großartig für ein paar Elemente, aber wenn Sie eine ganze Tabelle, und Sie sind nicht super erfahren, einfach ein makro aufzeichnen.
nicht erzählen Sie Ihren Freunden und dann neu formatieren, dass es aussieht wie Ihre eigene Arbeit, so kennt Sie niemand verwendet das makro-tool 😉

Der code sieht so aus (darunter alle überflüssigen Einstellung der Standard-Eigenschaften auf Ihre default-Werte, die Aufzeichnung eines Makros für Sie tut... herauszufinden, welche sind extra und löschen Sie Sie

Sub Macro1()
 With ActiveSheet.QueryTables.Add(Connection:= _
 “URL;http://w1.weather.gov/obhistory/KFRI.html”, Destination:=Range(“$D$4″))
 .Name = “KFRI”
 .FieldNames = True
 .RowNumbers = False
 .FillAdjacentFormulas = False
 .PreserveFormatting = True
 .RefreshOnFileOpen = False
 .BackgroundQuery = True
 .RefreshStyle = xlInsertDeleteCells
 .SavePassword = False
 .SaveData = True
 .AdjustColumnWidth = True
 .RefreshPeriod = 0
 .WebSelectionType = xlSpecifiedTables
 .WebFormatting = xlWebFormattingNone
 .WebTables = “4″
 .WebPreFormattedTextToColumns = True
 .WebConsecutiveDelimitersAsOne = True
 .WebSingleBlockTextImport = False
 .WebDisableDateRecognition = False
 .WebDisableRedirections = False
 .Refresh BackgroundQuery:=False
 End With
 End Sub

Genießen