12
返回列表 上一主題 發帖

[發問] 如何用vba下載證交所網頁(日收盤價及月平均收盤價)資料

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
5# 跳轉到 »
發表於 2016-2-4 17:44 | 只看該作者
回復 4# joey0415
謝謝joey0415的指教
可以正常運作了

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
4#
發表於 2016-2-4 15:12 | 只看該作者
回復 3# clianghot546

下載csv ，匯入再刪除即可
  1. Sub 個股日收盤價及月平均價CSV()

  3.     Dim xml As Object
  4.     Dim stream
  5.     Dim URL As String
  6.     年 = 2016
  7.     月 = 2
  8.     股票代碼 = 2498
  9.     Set xml = CreateObject("Microsoft.XMLHTTP") '用來取得網頁資料
  10.     Set stream = CreateObject("ADODB.stream")   'ADODB.stream   '用來儲存二進位檔案
  11.     URL = "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY_AVG/STOCK_DAY_AVGMAIN.php"
  12.     xml.Open "POST", URL, 0
  13.     xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  14.     xml.send "download=csv&query_year=" & 年 & "&query_month=" & 月 & "&CO_ID=" & 股票代碼
  15.     With stream
  16.         .Open
  17.         .Type = 1
  18.         .write xml.ResponseBody
  19.         'SaveToFile:檔案名稱已存在時會有錯誤,須先刪除已存在的檔案名稱
  20.         If Dir(ThisWorkbook.Path & "\" & 股票代碼 & ".CSV") <> "" Then Kill ThisWorkbook.Path & "\" & 股票代碼 & ".CSV"
  21.         .SaveToFile (ThisWorkbook.Path & "\" & 股票代碼 & ".CSV")
  22.         .Close
  23.     End With
  24.    
  25.     Cells.Clear

  27.     With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & ThisWorkbook.Path & "\" & 股票代碼 & ".CSV", Destination:=Range("$A$1"))
  28.         .TextFileCommaDelimiter = True
  29.         .Refresh BackgroundQuery:=False
  30.         .Delete
  31.     End With
  32.    
  33.     Kill ThisWorkbook.Path & "\" & 股票代碼 & ".CSV"
  34.    
  35. End Sub
複製代碼

TOP

clianghot546

帖子
23 
主題
3 
精華
0 
積分
50 
點名
0  
作業系統
win7 
軟體版本
2010 
閱讀權限
20 
註冊時間
2014-6-24 
最後登錄
2024-4-11 
3#
發表於 2016-2-4 09:06 | 只看該作者
回復 2# joey0415
謝謝joey0415的回覆
已試過可行
但是能否有直接類似"從web"下載後直接匯入excel儲存格的語法

TOP

joey0415
　暱稱: joey0415

中學生Rank: 2

帖子
361 
主題
57 
精華
0 
積分
426 
點名
0  
作業系統
win7 
軟體版本
2003,2010 
閱讀權限
20 
性別
男 
註冊時間
2010-5-13 
最後登錄
2022-12-8 
2#
發表於 2016-2-3 22:00 | 只看該作者
回復 1# clianghot546
試試看
  1. Sub 個股日收盤價及月平均價CSV()

  3.     Dim xml As Object
  4.     Dim stream
  5.     Dim URL As String
  6.     年 = 2016
  7.     月 = 2
  8.     股票代碼 = 1101
  9.     Set xml = CreateObject("Microsoft.XMLHTTP") '用來取得網頁資料
  10.     Set stream = CreateObject("ADODB.stream")   'ADODB.stream   '用來儲存二進位檔案
  11.     URL = "http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY_AVG/STOCK_DAY_AVGMAIN.php"
  12.     xml.Open "POST", URL, 0
  13.     xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  14.     xml.send "download=csv&query_year=" & 年 & "&query_month=" & 月 & "&CO_ID=" & 股票代碼
  15.     With stream
  16.         .Open
  17.         .Type = 1
  18.         .write xml.ResponseBody
  19.         'SaveToFile:檔案名稱已存在時會有錯誤,須先刪除已存在的檔案名稱
  20.         If Dir("D:\" & 股票代碼 & ".CSV") <> "" Then Kill "D:\" & 股票代碼 & ".CSV"
  21.         .SaveToFile ("D:\" & 股票代碼 & ".CSV")
  22.         .Close
  23.     End With
  24. End Sub
複製代碼

TOP

        靜思自在 : 【停滯不前，終無所得】人都迷於尋找奇蹟，因而停滯不前；縱使時間再多、路再長，也了無用處，終無所得。
12
返回列表 上一主題