- 帖子
- 48
- 主題
- 6
- 精華
- 0
- 積分
- 60
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-8-13
- 最後登錄
- 2023-2-7
|
回復 22# gto1208
請參考自行修改。- Sub Macro1()
- '
- ' Macro1 Macro
- ' Lu 在 2003/2/28 錄製的巨集
- '
- ' 快速鍵: Ctrl+a
- '
- Dim yy, stock
- yy = Application.InputBox(prompt:="請輸入查詢年份(如2013)：", Title:="上櫃統計報表 > 個股月成交資訊")
- stock = Application.InputBox(prompt:="請輸入股票代碼(如3260)：", Title:="上櫃統計報表 > 個股月成交資訊")
- If yy = "" Then yy = "2013"
- If stock = "" Then stock = "3260"
- fileIdx = "C:\MyStock\Test\st44_" & stock & ".csv"
- myURL = "http://www.gretai.org.tw/ch/stock/statistics/monthly/download_st44.php"
- myPar = "yy=" & yy & "&stk_no=" & stock
- Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
- With WinHttpReq
- .Open "POST", myURL, False
- .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- .Send myPar
- myURL = .ResponseBody
- Set oStream = CreateObject("ADODB.Stream")
- oStream.Open
- oStream.Type = 1
- If WinHttpReq.ResponseText = "" Then Exit Sub
- oStream.Write WinHttpReq.ResponseBody
- On Error Resume Next
- Kill fileIdx
- On Error GoTo 0
- oStream.SaveToFile fileIdx
- oStream.Close
- End With
- End Sub
|
|
發表於 2014-2-28 09:55
| 
