vba自動儲存網頁檔案 - Excel程式區

[發問] vba自動儲存網頁檔案

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2018-4-2 11:08 | 顯示全部帖子

回復 1# msmplay
如圖IE上移動滑鼠到CSV下載的位置,可看到檔案的網址

Option Explicit
Const FileName = "d:\mycsv.csv" '存檔位置錄，可自行修改
Const URL = "http://www.twse.com.tw/exchangeReport/STOCK_DAY?response=csv&date=20180101&stockNo=2303"
Sub Ex_存檔一()
Application.DisplayAlerts = False
With Workbooks.Open(URL)
.SaveAs FileName
.Close
End With
Application.DisplayAlerts = True
End Sub
Sub Ex_存檔二()
Dim Xmlhttp As Object
Set Xmlhttp = CreateObject("WinHttp.WinHttpRequest.5.1")
With Xmlhttp
.Open "POST", URL, False
.Send
End With
With CreateObject("ADODB.Stream")
.Type = 1
.Open
.write Xmlhttp.ResponseBody
If Dir(FileName) <> "" Then Kill FileName '相同名稱的檔案存在會有錯誤
.SaveToFile FileName
.Close
End With
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 不要隨心所欲，要隨心教育自己。