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

lalalada

帖子: 102
主題: 17
精華: 0
積分: 129
點名: 0
作業系統: windows
軟體版本: 2010
閱讀權限: 20
性別: 男
註冊時間: 2012-5-16
最後登錄: 2020-9-2

12^#

發表於 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

複製代碼

剩下的功能就自己改囉!

white5168

帖子: 90
主題: 16
精華: 0
積分: 114
點名: 0
作業系統: XP
軟體版本: sp2
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2018-10-7

13^#

發表於 2012-8-3 15:38 | 只看該作者

可以參考昨天才PO文的 http://forum.twbts.com/thread-7341-1-1.html 裡面有相關的應用

tsuneng

帖子: 32
主題: 2
精華: 0
積分: 67
點名: 0
作業系統: WIN 7
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2011-7-9
最後登錄: 2020-12-30

14^#

發表於 2012-8-3 22:38 | 只看該作者

回復 12# lalalada

謝謝大大的熱心分享,努力學習中!!

hotglaygto

帖子: 1
主題: 0
精華: 0
積分: 1
點名: 0
作業系統: Win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2012-12-24
最後登錄: 2013-1-15

15^#

發表於 2013-1-14 22:56 | 只看該作者

謝謝大大的回答我對VBA又更了解了

水元素

帖子: 9
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 10
性別: 女
來自: taiwan
註冊時間: 2013-1-17
最後登錄: 2013-3-20

16^#

發表於 2013-1-17 16:56 | 只看該作者

請問大大，
這段程式裡他是如何知道需要的格子是網頁顯示區裡的第幾的表格??
例如: getelementsbytagname("table")(2) '顯示區第3個表格
小的剛學習VBA，若有發問錯誤請見諒!!!謝謝

Nicole

版主 Rank: 7 Rank: 7 Rank: 7

kimbal

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

17^#

發表於 2013-1-17 22:47 | 只看該作者

請問大大，
這段程式裡他是如何知道需要的格子是網頁顯示區裡的第幾的表格??
例如: getelementsbytagname ...
水元素發表於 2013-1-17 16:56

要從網頁上的代碼看
.Document.all("rpt_result").getelementsbytagname("table")
VBA上想找的是網頁代碼下 ID 為rpt_result 的數個TABLE:

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

水元素

帖子: 9
主題: 1
精華: 0
積分: 14
點名: 0
作業系統: XP
軟體版本: office2007
閱讀權限: 10
性別: 女
來自: taiwan
註冊時間: 2013-1-17
最後登錄: 2013-3-20

18^#

發表於 2013-1-18 11:47 | 只看該作者

瞭解了!!!

非常謝謝K大的圖文解說~
連data code 都解說了~真的非常清楚!!

Nicole

gto1208

帖子: 11
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: xp
軟體版本: 2007
閱讀權限: 10
註冊時間: 2011-9-17
最後登錄: 2017-4-24

19^#

發表於 2014-2-28 00:46 | 只看該作者

各位高手您好
http://www.gretai.org.tw/ch/stock/statistics/monthly/st44.php
與上述網站相類，但它輸入時有二個參數，目前找到的參數是"yy"，想請教一下如果是有stk_no與yy，下面send的程式該如何修改呢? 謝謝
.Send ("stk_no=" & code)

heavenweaver

帖子: 48
主題: 6
精華: 0
積分: 60
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-8-13
最後登錄: 2023-2-7

20^#

發表於 2014-2-28 09:55 | 只看該作者

回復 12# lalalada

感謝您提供的vba code，經測試完全正常又不需要開啟IE網頁，值得觀摩學習！

很抱歉，我是小學生，不能下載檔案，是個小屁孩！