復制表單後，只能保留樣式文檔中的文本和數據。此格式為TXT文件，網站提供下載功能。
此外，該網站還提供XLS格式的EXCEL表格下載。
如果只需要彩票數據，以上就足夠了。
2、做VBA動態更新分析表用。
看了妳提供的網頁源代碼，我抄了這段關於數據的話:
& ltdiv class = " kai _ tab " id = " fast _ issue _ content " & gt；
& lttable class = " kuai _ tab fucai _ tab " id = " fastIssueList " & gt；
& ltthead & gt
& lttr & gt
& lttd class="kuai_w1 " >周期數
& lttd class="kuai_w2 " >彩票號碼
& lttd & gt抽獎時間
& lttd & gt獲勝組合
& lttd & gt& lt/TD & gt；
& lt/tr & gt；
& lt/thead & gt；
& lttbody & gt
& lt/tbody & gt；
& lt/table & gt；
& lt/div & gt；
& lt/div & gt；
& lt/div & gt；
並且檢查了class和ID屬性值，是指JavaScript處理後調用數據庫的值，而不是文本文件的集合。
比如雙色球的樣式文件如下:/getdata/ssq.txt。
這種天賦很好處理，如下圖:
私有子命令按鈕1_Click()
範圍(" A3:AC3500 ")。清楚的
k3dshijihao = "/getData/ssq。TXT "
d3s = "WData3D_All "
單元格(2，1) = "彩票發行號"
單元格(2，2) = "彩票日期"
單元格(2，3) = "紅色"
單元格(2，4) = "球"
單元格(2，5) =“大”
單元格(2，6) =“小”
單元格(2，7) = "順"
單元格(2，8) = "order "
單元格(2，9) = "藍色"
單元格(2，10) = "紅色"
Cells(2，11) = "Ball "
單元格(2，12) = "Out "
單元格(2，13) = "Ball "
單元格(2，14) = "Shun "
單元格(2，15) = "前言"
單元格(2，16) = "總賭註"
單元格(2，17) = "獎池金額"
單元格(2，18) = "壹級音符數"
單元格(2，19) = "壹級金額"
Cells(2，20) = "二級符號"
單元格(2，265，438+0) = "二級金額"
Cells(2，22) = "三級符號"
單元格(2，23) = "金額"
Cells(2，24) = "四階符號"
單元格(2，25) = "金額"
Cells(2，26) = "五階記數法"
單元格(2，27) = "金額"
Cells(2，28) = "六級符號"
單元格(2，29) = "金額"
cz = k3dshijihao: czmc = d3s
使用ActiveSheet。QueryTables.Add(連接:= _
"文本；"& ampcz，目的地:=Range("A3 "))
。Name = czmc
。FieldNames = True
。行號=假
。FillAdjacentFormulas = False
。PreserveFormatting = True
。RefreshOnFileOpen = False
。refresh style = xlInsertDeleteCells
。保存密碼=假
。SaveData = True
。AdjustColumnWidth = True
。RefreshPeriod = 0
。TextFilePromptOnRefresh = False
。TextFilePlatform = xlWindows
。textfilestarrow = 1
。TextFileParseType = xlDelimited
。TextFileTextQualifier = xlTextQualifierDoubleQuote
。TextFileConsecutiveDelimiter = True
。TextFileTabDelimiter = False
。TextFileSemicolonDelimiter = False
。TextFileCommaDelimiter = False
。TextFileSpaceDelimiter = True
。textfile column data types = Array(1，2，2，2，2，2，2，2，2，2，2，2，2，2，2，2，1，1，1，1，1，1，1，1，1，1
。textfiletrailinminusnumbers = True
。刷新背景查詢:=False
以…結尾
範圍(" A " & amp(應用。計數(範圍(" a1:a3000 ")))。挑選
結束
末端接頭
將上面的代碼粘貼到VBA，添加壹個按鈕來指定它，並嘗試結果，如果這是妳想要的結果。
可以把引用的/getdata/ssq.txt改壹下，改成妳網站下載的txt文件路徑，然後做相關的VBA代修改就完成了！