吳老師教學部落格(痞客邦分站)

如果想將網路上總共有57頁網頁資料複製到EXCEL工作表中，

如果用土法煉鋼是非常花時間的事，如果每天需要經常性抓取網路資料，

真的非常必要用VBA程式來完成，

其實就是目前很夯的網路爬蟲，

和 Python 程式相比，VBA相對比較親民一些，

直接抓取到EXCEL相對的好處理後續的動作，

利用VBA程式，配合 For迴圈+If邏輯判斷一下，

基本上程式就可以快速一鍵完成資料下載。

接下來要產生報表作統計分析，或是視覺化圖表就更簡單了。

以下有六個步驟如下，

1.錄製巨集與修改VBA程式

2.VBA寫刪除日期列

3.VBA寫複製日期

4.VBA寫刪除列

5.VBA寫增加中獎號碼

6.VBA寫剖析資料

統計結果：

網址：https://www.lotto-8.com/listltobigbbk.asp?indexpage=1&orderby=new

Sub 大樂透下載()

    With ActiveSheet.QueryTables.Add(Connection:= _

        "URL;https://www.lotto-8.com/listltobigbbk.asp?indexpage=1&orderby=new", _

        Destination:=Range("$A$1"))

        .WebFormatting = xlWebFormattingNone

        .WebTables = "5"

        .Refresh BackgroundQuery:=False

    End With

End Sub

    For i = 1 To 57

        '1.匯入WEB資料

        If Range("A1") = "" Then

            r = 1

        Else

            r = Range("A1").End(xlDown).Row + 1

        End If

        With ActiveSheet.QueryTables.Add(Connection:= _

            "URL;https://www.lotto-8.com/listltobigbbk.asp?indexpage=" & i & "&orderby=new" _

            , Destination:=Range("$A$" & r))

            .WebFormatting = xlWebFormattingNone

            .WebTables = "5"

            .Refresh BackgroundQuery:=False

        End With

    Next

End Sub

    For i = Range("A1").End(xlDown).Row To 2 Step -1

        If Cells(i, "A") = "日期" Then

            Rows(i).Delete

        End If

    Next

End Sub

    For i = 2 To Range("A1").End(xlDown).Row

        If (i - 2) Mod 3 = 0 Then

            Cells(i, "A") = Cells(i + 1, "A")

            Cells(i, "A").NumberFormatLocal = "yyyy/m/d"

        End If

    Next

End Sub

    For i = Range("A1").End(xlDown).Row To 4 Step -3

        Rows(i).Delete

        Rows(i - 1).Delete

    Next

End Sub

    For j = 1 To 6

        Cells(1, j + 3) = j

    Next

End Sub

    For i = 2 To Range("A1").End(xlDown).Row

        Range("D" & i & ":I" & i) = VBA.Split(Cells(i, "B"), ",")

    Next

End Sub

    Columns("B").Delete

    Columns.AutoFit

End Sub

    Call 批次大樂透下載

    Call 刪除日期列

    Call 複製日期

    Call 刪除列

    Call 增加中獎號碼

    Call 剖析資料

    Call 刪除B欄

單元01_資料拆解相關(VBA)

單元02_輸入自動化與表單設計

單元03_用ADO匯入與匯出資料庫

單元04_大量工作表合併與分割

單元05_資料查詢(篩選與分割工作表)

單元06_下載網路資料(YAHOO股市)

單元07_活頁簿與檔案處理(工作表分割與合併活頁簿)

單元08_視覺化報表與快速匯入圖片