|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
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感謝 先進 指點!
|
|