用VBA自動下載 網頁提供的檔案下載

yarchen

1.目的: 用VBA自動下載 網頁提供的檔案下載

2.網址: https://www.taifex.com.tw/cht/3/futPrevious30DaysSalesData

3.網頁程式片段:
  <input name="button7" type="button" class="btn_orange" id="button7" value="下載">

4.問題: 請教如何用 VBA 模擬啟動下載動作, 順利下載檔案

5.方法: Excel-VBA操作文件的四大方法    https://www.cnblogs.com/janicemvidal/p/8963386.html
  試過 上列3種方法
  方法1 Workbooks.Open() or Workbooks.OpenXML() 無法開啟遠端網址檔案
  方法2 Open xFile For Binary As #1   也無法開啟遠端網址檔案
  方法3 Set fso = CreateObject("Scripting.FileSystemObject", server)  在指定遠程Server出錯
  另用網頁爬蟲方法 GET/POST 強制擷取 網頁內容
  雖可硬抓下 Daily_2020_01_10.zip
  但是檔案長度不對, 內容開頭有包含ZIP壓縮檔識別碼,但內容含亂碼,無法解壓縮

6感謝 先進 指點!

yarchen

已解決!

用網頁爬蟲方法 GET/POST 強制擷取 網頁內容
但是要取用 X.responseBody的內容,配合 CreateObject("ADODB.Stream") 開檔存檔
即可 順利抓下檔案

程式片段如下
    Set X = CreateObject("Microsoft.XMLHTTP")              '設定網頁擷取 物件指標
    gSleep 0.2                                                              '延遲幾秒鐘 比較不會被 網頁流量限制
    X.Open "GET", u0, False                                           '設定網頁擷取 以  GET 方式 設定連接網址
    On Error Resume Next                                              '設定 未知錯誤處理
    X.send                                                                     '發送網頁資料擷取要求
    If Err.Number <> 0 Then                                          '不明錯誤處理
        Err.Clear                                                              '清除 系統錯誤標誌
        On Error GoTo 0                                                     '取消目前程序裏的錯誤處理
        GoTo L_99
    End If
    If (X.Status <> 200) Or (X.ReadyState <> 4) Then GoTo L_99        '擷取失敗 (網頁無法讀取)
    Set Y = CreateObject("ADODB.Stream")
    Y.Open
    Y.Type = 1
    Y.Write X.responseBody
    Y.SaveToFile f1, 2 ' 1 = no overwrite, 2 = overwrite
    Y.Close
    Set X = Nothing
    Set Y = Nothing