[發問]VBA抓取.PHP頁問題?? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » [發問]VBA抓取.PHP頁問題??

返回列表下一主題上一主題發帖

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 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

小學生 Rank: 1

帖子: 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: 1

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

15^#

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

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

中學生 Rank: 2

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

14^#

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

回復 12# lalalada

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

中學生 Rank: 2

帖子: 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 裡面有相關的應用

中學生 Rank: 2

帖子: 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

複製代碼

剩下的功能就自己改囉!

中學生 Rank: 2

帖子: 81
主題: 2
精華: 0
積分: 95
點名: 327
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-2-29
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

11^#

發表於 2012-8-3 04:59 | 只看該作者

回復 10# tsuneng

我也接近4年級啊!!這是你的說法吧!!

中學生 Rank: 2

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

10^#

發表於 2012-7-10 11:10 | 只看該作者

謝謝回答,我不是想"不勞而獲"而是真的不會,真的想學,才會在這提出問題。(如大大也是4年級話，應該會體諒我們這一階段的人,在電腦的知識是有許多不足之處)... 再次謝謝大大回答.

中學生 Rank: 2

帖子: 81
主題: 2
精華: 0
積分: 95
點名: 327
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
性別: 男
註冊時間: 2012-2-29
最後登錄: 2024-11-23

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章

9^#

發表於 2012-7-10 05:14 | 只看該作者

回復 7# tsuneng

答案都已回答了!!如果還是想不勞而獲,那就有三線了.:Q

　暱稱: 沙拉油
　頭銜: 正港A水電工

超級版主 Rank: 8 Rank: 8

帖子: 44
主題: 2
精華: 0
積分: 49
點名: 0
作業系統: Windows XP SP3
軟體版本: Office 2003
閱讀權限: 150
性別: 男
來自: 呆丸
註冊時間: 2010-5-1
最後登錄: 2013-1-27

論壇貢獻勳章終身榮譽會員勳章

8^#

發表於 2012-7-10 01:02 | 只看該作者

如果你不想或不會寫VBA，可以參考這個檔案

一卵三四、驚到嘸代誌

靜思自在 : 不怕事多，只怕多事。

返回列表下一主題上一主題