Excel VBA中的表格抓取

Sub WebTableScraping()
    Dim ie As Object
    Dim html As Object
    Dim table As Object
    Dim tr As Object
    Dim td As Object
    Dim ws As Worksheet
    Dim i As Integer, j As Integer

    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = False
    ie.Navigate "http://example.com/table.html"

    Do While ie.Busy Or ie.ReadyState <> 4
        DoEvents
    Loop

    Set html = ie.Document
    Set table = html.getElementById("tableId")

    Set ws = ThisWorkbook.Sheets("Sheet1")

    i = 1
    For Each tr In table.getElementsByTagName("tr")
        j = 1
        For Each td In tr.getElementsByTagName("td")
            ws.Cells(i, j).Value = td.innerText
            j = j + 1
        Next td
        i = i + 1
    Next tr

    ie.Quit
End Sub

Sub ImportCSV()
    Dim fso As Object
    Dim ts As Object
    Dim line As String
    Dim parts() As String
    Dim ws As Worksheet
    Dim i As Integer

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ts = fso.OpenTextFile("C:\path\to\file.csv", 1, False, -4) ' -4 for UTF-8 encoding

    Set ws = ThisWorkbook.Sheets("Sheet1")

    Do While Not ts.AtEndOfStream
        line = ts.ReadLine
        parts = Split(line, ",")
        For i = 0 To UBound(parts)
            ws.Cells(ws.Rows.Count, i + 1).End(xlUp).Offset(1, i).Value = parts(i)
        Next i
    Loop

    ts.Close
End Sub