123
返回列表 上一主題 發帖

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

chen_cook

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-3-2 08:37 | 只看該作者

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

各位先進
              不才在網路上看到一段抓取櫃買.php的資料,原文如下
   
Sub Macro1()
    Dim i As Integer, j As Integer, k As Integer
URL$ = "http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php"
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate URL
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
        .Document.all("input_stock_code").Value = 6121 '要查的代碼
        .Document.all(1758).Click    <=====巨集執行到此就錯誤,請問這一行是為何意,找了很久查不出是何意
        Application.Wait Now + TimeValue("00:00:02") '等待2秒更新資料
        Set tmp = .Document.getelementsbytagname("table")(79) <==== (79)又是何意??
        k = 1
        Cells(k, 1) = tmp.Rows(0).innertext
        Cells(k, 1).WrapText = False
        For i = 1 To tmp.Rows.Length - 1
            k = k + 1
            For j = 0 To tmp.Rows(i).all.Length - 1
                Cells(k, j + 1) = tmp.Rows(i).Cells(j).innertext
            Next
        Next
        k = k + 1
        Set tmp = .Document.getelementsbytagname("table")(82)<==== (82)又是何意??
        For i = 0 To tmp.Rows.Length - 1
            k = k + 1
            For j = 0 To tmp.Rows(i).all.Length - 1
                Cells(k, j + 1) = tmp.Rows(i).Cells(j).innertext
            Next
       因原網頁就在輸入 6121 就停住了,未能觸發網頁帶出資料,故後續的 table 就無法抓出數據帶入execl,請問先進需如何修改才好..TKS!!
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
46  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-2-22 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-3-2 09:19 | 只看該作者
本帖最後由 Hsieh 於 2012-3-2 09:46 編輯

回復 1# chen_cook

    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate URL
        Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
        For Each n In .Document.getelementsbytagname("INPUT") '這個迴圈找到按鈕是第幾個輸入項
           kn = n.Value
           If kn = "查詢" Then Exit For
           s = s + 1
        Next        .Document.all("input_stock_code").Value = 6121 '要查的代碼
        .Document.getelementsbytagname("INPUT")(s).Click    '<=====巨集執行到此就錯誤,請問這一行是為何意,找了很久查不出是何意
        Application.Wait Now + TimeValue("00:00:02") '等待2秒更新資料
        Set tmp = .Document.getelementsbytagname("table")(79) '<==== (79)又是何意??79就表示第80個表格
此網頁擷取請測試
  1. Sub Macro1()
  2.     Dim i As Integer, j As Integer, k As Integer
  3. URL$ = "http://www.gretai.org.tw/ch/stock/statistics/monthly/st42.php"
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         .Navigate URL
  7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  8.         For Each n In .Document.getelementsbytagname("INPUT") '這個迴圈找到按鈕是第幾個輸入項
  9.            kn = n.Value
  10.            If kn = "查詢" Then Exit For
  11.            s = s + 1
  12.         Next
  13.         .Document.all("input_stock_code").Value = 6121 '要查的代碼
  14.         .Document.getelementsbytagname("INPUT")(s).Click    '按下查詢紐
  15.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  16.         Application.Wait Now + TimeValue("00:00:02") '等待2秒更新資料
  17.         Set tmp = .Document.all("rpt_result").getelementsbytagname("table")(2) '顯示區第3個表格
  18.         k = 1
  19.         Cells(k, 1) = tmp.Rows(0).innertext
  20.         Cells(k, 1).WrapText = False
  21.         For i = 1 To tmp.Rows.Length - 1
  22.             k = k + 1
  23.             For j = 0 To tmp.Rows(i).all.Length - 1
  24.                 Cells(k, j + 1) = tmp.Rows(i).Cells(j).innertext
  25.             Next
  26.         Next
  27.         k = k + 1
  28.         Set tmp = .Document.all("rpt_result").getelementsbytagname("table")(3) '顯示區第4個表格
  29.         For i = 0 To tmp.Rows.Length - 1
  30.             k = k + 1
  31.             For j = 0 To tmp.Rows(i).all.Length - 1
  32.                 Cells(k, j + 1) = tmp.Rows(i).Cells(j).innertext
  33.             Next
  34.             Next
  35.             .Quit
  36.         End With
  37. End Sub
複製代碼
學海無涯_不恥下問

TOP

chen_cook

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
3#
發表於 2012-3-2 15:55 | 只看該作者
感謝 Hsieh 大大 協助解決,初步測試抓到了..

          kn = n.Value    <==再請教這行是何意,VBA 保留字嗎??
         其它大概看的懂.....

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
46  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-2-22 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 2012-3-2 16:48 | 只看該作者
回復 3# chen_cook

除了VALUE是屬性外
    kn、n並非保留字，這是變數，你自己可以設置任何有意義的字串取代
學海無涯_不恥下問

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
5#
發表於 2012-7-6 16:11 | 只看該作者
請問大大, 如要查其他股票,應如何修改.TKS！！

TOP

chen_cook

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
6#
發表於 2012-7-7 05:08 | 只看該作者
回復 5# tsuneng


    .Document.all("input_stock_code").Value = 6121  <--- stockscode$
     cells(1, 1) = stockcode$

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
7#
發表於 2012-7-7 07:19 | 只看該作者
回復 6# chen_cook

感謝 chen_cook 大大回答, 因是VBA新手在使用上有許多不明白地方, 如方便話可否比照1#,2# 的例子.將CODE 貼上參考. TKS!!!

TOP

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

超級版主Rank: 8Rank: 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，可以參考這個檔案
一卵三四、驚到嘸代誌

TOP

chen_cook

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
9#
發表於 2012-7-10 05:14 | 只看該作者
回復 7# tsuneng


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

TOP

tsuneng

帖子
32 
主題
2 
精華
0 
積分
67 
點名
0  
作業系統
WIN 7 
軟體版本
OFFICE 2010 
閱讀權限
20 
性別
男 
註冊時間
2011-7-9 
最後登錄
2020-12-30 
10#
發表於 2012-7-10 11:10 | 只看該作者
謝謝回答,我不是想"不勞而獲"而是真的不會,真的想學,才會在這提出問題。(如大大也是4年級話，應該會體諒我們這一階段的人,在電腦的知識是有許多不足之處)...  再次謝謝大大回答.

TOP

        靜思自在 : 不怕事多，只怕多事。
123
返回列表 上一主題