[發問]VBA抓取.PHP頁問題??

1^# 跳轉到 »

發表於 2012-8-3 13:56 | 顯示全部帖子

本帖最後由 lalalada 於 2012-8-3 13:58 編輯

路過...
順手幫你寫了一個
本來那個有點冗沒有認真看
不知道這是不是你要的?
不過以後還是自己寫會比較好喔:)
使用說明: 1.輸入股票代碼 2.去C槽找同名檔案(.csv)

Sub WrittenByLalalada()
Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
code = Application.InputBox(prompt:= "Written by lalalada", Title:="輸入代碼:")
With WinHttpReq
.Open "POST", "http://www.gretai.org.tw/ch/stock/statistics/monthly/download_st42.php", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.Send ("stk_no=" & code)
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.Type = 1
oStream.Write WinHttpReq.ResponseBody
oStream.SaveToFile ("C:\" & code & ".csv")
oStream.Close
End With
End Sub

複製代碼

剩下的功能就自己改囉!

靜思自在 : 君子立恆志，小人恆立志。