123
返回列表 上一主題 發帖

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

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

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

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

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

gto1208

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

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

TOP

        靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。
123
返回列表 上一主題