123
返回列表 上一主題 發帖

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

chen_cook

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

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!!
收藏 分享

gto1208

帖子
11 
主題
2 
精華
0 
積分
14 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
10 
註冊時間
2011-9-17 
最後登錄
2017-4-24 
26#
發表於 2014-7-9 21:59 | 只看該作者
heavenweaver您好，

使用Fiddler工具發現網址有異動，已找到問題了，謝謝您

TOP

gto1208

帖子
11 
主題
2 
精華
0 
積分
14 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
10 
註冊時間
2011-9-17 
最後登錄
2017-4-24 
25#
發表於 2014-7-9 16:51 | 只看該作者
heavenweaver您好，

想向您請教，先前版本依照您的指導已可正常使用，但今日操作時，發現excel資料載不下來，是否相關參數要修改呢? 謝謝您。
  1. Private Sub CommandButton4_Click()

  3. '宣告變數
  4.    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
  5.    Dim TMP As Workbook


  8. '清除舊資料
  9.    Range("F66:Z200").Select
  10.    Selection.Clear

  12.    code = Range("A1").Value  '股票代碼
  13.    yy = Range("H4").Value '年度


  16. '將資料先存至c糟
  17.    With WinHttpReq
  18.    .Open "POST", "http://www.gretai.org.tw/ch/stock/statistics/monthly/download_st44.php", False
  19.    .Open "POST", Range("I4").Value, False
  20.    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  21.    .Send "stk_no=" & code & "&yy=" & yy  '傳股票代碼、年度參數
  22.           Set oStream = CreateObject("ADODB.Stream")
  23.           oStream.Open
  24.           oStream.Type = 1
  25.           oStream.Write WinHttpReq.ResponseBody
  26.           oStream.SaveToFile ("C:\" & code & "-M.csv")
  27.           oStream.Close
  28.    End With
  29.    

  31. End Sub
  32.    
複製代碼

TOP

heavenweaver

帖子
48 
主題
6 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-13 
最後登錄
2023-2-7 
24#
發表於 2014-3-5 10:01 | 只看該作者
回復 22# gto1208
問題在這裡
'將資料先存至c糟
    With WinHttpReq
    '.Open "POST", "http://www.gretai.org.tw/ch/stock/statistics/monthly/download_st44.php", False
  您將這段指令變成remark，正確如下：
   .Open "POST", "http://www.gretai.org.tw/ch/stock/statistics/monthly/download_st44.php", False
很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

heavenweaver

帖子
48 
主題
6 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-13 
最後登錄
2023-2-7 
23#
發表於 2014-3-5 09:54 | 只看該作者
回復 22# gto1208
請參考自行修改。
  1. Sub Macro1()
  2. '
  3. ' Macro1 Macro
  4. ' Lu 在 2003/2/28 錄製的巨集
  5. '
  6. ' 快速鍵: Ctrl+a
  7. '
  8. Dim yy, stock

  10. yy = Application.InputBox(prompt:="請輸入查詢年份(如2013)：", Title:="上櫃統計報表 > 個股月成交資訊")
  11. stock = Application.InputBox(prompt:="請輸入股票代碼(如3260)：", Title:="上櫃統計報表 > 個股月成交資訊")

  13. If yy = "" Then yy = "2013"
  14. If stock = "" Then stock = "3260"

  16. fileIdx = "C:\MyStock\Test\st44_" & stock & ".csv"

  18. myURL = "http://www.gretai.org.tw/ch/stock/statistics/monthly/download_st44.php"
  19. myPar = "yy=" & yy & "&stk_no=" & stock

  21. Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")

  23. With WinHttpReq
  24.     .Open "POST", myURL, False
  25.     .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  26.     .Send myPar
  27.     myURL = .ResponseBody
  28.     Set oStream = CreateObject("ADODB.Stream")
  29.     oStream.Open
  30.     oStream.Type = 1
  31.     If WinHttpReq.ResponseText = "" Then Exit Sub
  32.     oStream.Write WinHttpReq.ResponseBody
  33.     On Error Resume Next
  34.     Kill fileIdx
  35.     On Error GoTo 0
  36.     oStream.SaveToFile fileIdx
  37.     oStream.Close
  38. End With

  40. End Sub
複製代碼
很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

gto1208

帖子
11 
主題
2 
精華
0 
積分
14 
點名
0  
作業系統
xp 
軟體版本
2007 
閱讀權限
10 
註冊時間
2011-9-17 
最後登錄
2017-4-24 
22#
發表於 2014-3-3 14:56 | 只看該作者
heavenweaver您好，

我已有複製#12的Sub WrittenByLalalada()來修改
http://www.gretai.org.tw/ch/stock/statstics/monthly/download_st44.php
上列網址有二個參數，已將程式改寫如下，但年度的send條件還是抓取不到(程式碼如下)，謝謝您
  1. Private Sub CommandButton1_Click()

  3. '宣告變數
  4. Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
  5. Dim TMP As Workbook

  7. '清除舊資料
  8. Range("A4:Z2000").Select
  9. Selection.Clear

  11. code = Range("A1").Value  '股票代碼
  12. yy = Range("B1").Value  '年度

  14.     '將資料先存至c糟
  15.     With WinHttpReq
  16.     '.Open "POST", "http://www.gretai.org.tw/ch/stock/statistics/monthly/download_st44.php", False
  17.     .Open "POST", Range("C1").Value, False
  18.     .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  19.     .Send ("stk_no=" & code & "yy=" & yy)
  20.            Set oStream = CreateObject("ADODB.Stream")
  21.            oStream.Open
  22.            oStream.Type = 1
  23.            oStream.Write WinHttpReq.ResponseBody
  24.            oStream.SaveToFile ("C:\" & code & ".csv")
  25.            oStream.Close
  26.     End With
  27. End Sub
複製代碼

TOP

heavenweaver

帖子
48 
主題
6 
精華
0 
積分
60 
點名
0  
作業系統
XP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-8-13 
最後登錄
2023-2-7 
21#
發表於 2014-2-28 09:59 | 只看該作者
回復 19# gto1208
如果您是問#12的Sub WrittenByLalalada()，直接複製到您的巨集去執行，就會跳出一個視窗詢問查詢股票代號，直接輸入就好了。
很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

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網頁，值得觀摩學習！
很抱歉，我是小學生，不能下載檔案，是個小屁孩！

TOP

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)

TOP

水元素

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

TOP

        靜思自在 : 真正的愛心，是照顧好自己的這顆心。
123
返回列表 上一主題