台灣最大程式設計社群網站
線上人數
804
 
會員總數:245221
討論主題:189091
歡迎您免費加入會員
討論區列表 >> office VBA / WinOS >> Excel VBA 抓取證交所除權息資料頁
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
Excel VBA 抓取證交所除權息資料頁
價值 : 50 QP  點閱數:1969 回應數:0

樓主

阿俊
門外漢
0 3
52 8
發送站內信

因應明年配息減半承認,所以要注意除權息資料,但依據之前經驗的寫法無法將資料抓下來存成 .csv 檔,煩請站上高手幫忙看一下哪裡要改,感恩

Dim myURL As String
Dim oStream As Object 'ADODB.Stream
Dim WinHttpReq As Object 'XMLHTTP
Dim fileIdx As String
Dim win As Window, wb As Workbook
YY = Year(Now)
mm = Month(Now)
dd = Day(Now)

myURL = "http://www.twse.com.tw/ch/trading/exchange/TWT48U/TWT48U_PD.php?input_date=" & YY & "/" & mm & "/" & dd & "Sort_kind = type=csv"
Set WinHttpReq = CreateObject("MSXML2.XMLHTTP")
With WinHttpReq
.Open "GET", myURL, False
.Send
myURL = .responseText
If myURL = "" Then GoTo NoInterest
End With
Set oStream = CreateObject("ADODB.Stream")
If oStream Is Nothing Then GoTo NoInterest
With oStream
.Open
.Type = 1
.Write WinHttpReq.responseBody
fileIdx = "C:\stock\interest" & "\" & YY & MM & " - " & "interest.csv"
On Error Resume Next
Kill fileIdx
On Error GoTo 0
.SaveToFile fileIdx
.Close
End With
Set WinHttpReq = Nothing
Set oStream = Nothing
Workbooks.Open Filename:="C:\stock\interest" & "\" & YY & MM & " - " & "interest.csv"

本篇文章發表於2015-01-05 10:29
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
目前尚無任何回覆
   

回覆
如要回應,請先登入.