股價代號和起始日期的抓取

帖子: 13
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win 7
軟體版本: Office 2002
閱讀權限: 10
註冊時間: 2012-12-25
最後登錄: 2013-11-6

1^# 跳轉到 »

發表於 2013-9-23 23:15 | 顯示全部帖子

指定下載3年歷史股價的資料

麻煩請各位高手專家及版主指導解惑：
下面網址中可指定查詢歷史資料的區間選項(預設值為20天)，有先在網站中更改查詢區間為3年。
但每次下載匯入EXCEL的資料只有21天，不知需要加入什麼程式碼才可解決？？
www.cnyes.com/twstock/ps_historyprice/6282.htm

Sub Macro1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.cnyes.com/twstock/ps_historyprice/6282.htm", Destination:= _
Range("A1"))
.RefreshStyle = xlOverwriteCells
.WebTables = "2"
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-21
End Sub

複製代碼

因為YAHOO、GOOGLE的歷史資料有時無法顯示例外(開休市)的數據，造成計算MA值的數據不準確。
感謝各位高手專家撥空解惑。

TOP

gelai01000001

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win 7
軟體版本: Office 2002
閱讀權限: 10
註冊時間: 2012-12-25
最後登錄: 2013-11-6

2^#

發表於 2013-9-24 22:52 | 顯示全部帖子

回復 2# GBKEE

感謝GBKEE版主的熱心用心的解惑。
因位本人不材，不甚了解下列程式碼的語法及執行用意。
還煩請GBKEE版主抽空可說明註解惑指導一下嗎？

With CreateObject("InternetExplorer.application")
.Navigate "http://www.cnyes.com/twstock/ps_historyprice/" & Code & ".htm"
'.Visible = True
Application.StatusBar = Code & " 歷史行情等候中..."
Do While .Busy Or .ReadyState <> 4
DoEvents
Loop
Set A = .Document.getelementsbytagname("input")
A(5).Value = d_Start
A(6).Value = d_End
A(7).Click
T = Time
Do
DoEvents
Loop Until Time > T + #12:00:08 AM#
Set A = .Document.getelementsbytagname("table")(1)
Application.StatusBar = Code & " 歷史行情下載中..."
Cells(2, 1) = .Document.getelementsbytagname("span")(79).innertext

複製代碼

GBKEE版主：執行程式過程中，發現下載至EXCEL中的資料是有由〈Sh.Cells(i + 3, c + 1) = A.Rows(i).Cells(c).innertext〉而來，
不同於下載網頁資料〈WebTables = "number"〉，所用的指令方法。
我有上網收搜尋相關資料，大約清楚知道，上列程式碼式是在VBA程式中啟動網頁的(javascript)指令。
不知是與不是或一知半解！感謝GBKEE的指導。

TOP

gelai01000001

小學生 Rank: 1

帖子: 13
主題: 3
精華: 0
積分: 23
點名: 0
作業系統: Win 7
軟體版本: Office 2002
閱讀權限: 10
註冊時間: 2012-12-25
最後登錄: 2013-11-6

3^#

發表於 2013-10-12 00:21 | 顯示全部帖子

如何將下載的股市每日盤後行情(製作成各股的歷史股價資料)

煩請各位高手專家解惑，謝謝!
請問有辦法將下列程碼的加以修改，把每日各股的盤後行情所得的資料轉換成(各股的歷史資料)。

Sub 下載網站資料()
Dim Startmonth As String, Startday As String, xDate As Date, Msg As Boolean, Sh As Worksheet
On Error GoTo EX '程式執行中有錯誤時跳到 EX: 繼續執行程式
xDate = Date '當日
Set Sh = ActiveSheet '指定工作表:此程式在任何模組中皆可用
EX:
If Err.Number <> 0 Or Msg = True Then '當日(尚未有資料:錯誤) 或休市
[color=Red]xDate = xDate - 1 (應改為xDate = Date - 1)[/color] 假如休市超過1天以上(2,3,4,5,6,春節9天)，又如何修改呢?
Err.Clear
Msg = False
End If
Sh.UsedRange.Clear '清理工作表已使用的範圍
Startday = Format(xDate, "YYYYMMDD")
Startmonth = Format(xDate, "YYYYMM")
'下載網站的網址
With Sh.QueryTables.Add(Connection:="URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & Startmonth & "/A112" & Startday & "ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=" & Format(xDate, "E/MM/DD"), Destination:=Range("A3"))
.RefreshStyle = xlOverwriteCells '抓取網頁的第10個表格作為匯入資料
.WebTables = "10"
.Refresh BackgroundQuery:=False '當日(尚未有資料:錯誤)
If Application.CountA(Sh.QueryTables(1).ResultRange) = 0 Then '休市沒有資料
Msg = True
GoTo EX
End If
End With
With Sh.UsedRange
.Font.Size = 12
.EntireColumn.AutoFit
End With
End Sub

複製代碼

因為我已有下載各股歷史股價的資料程式和資料，且依代碼分類成多個活頁簿例如：
workbook(1.xls)有worksheet(1102)、worksheet(1103).....等。1活頁簿中有代碼，第一個數字有[1]的多個工作表。
workbook(2.xls)有worksheet(2102)、worksheet(2103).....等。2活頁簿中有代碼，第一個數字有[2]的多個工作表。
......
......
workbook(9.xls)有worksheet(9102)、worksheet(9103).....等。9活頁簿中有代碼，第一個數字有[9]的多個工作表。
所以想請問有沒有更簡便快速的方法。謝謝各位專家前輩的抽空指導。

TOP

指定下載3年歷史股價的資料

如何將下載的股市每日盤後行情(製作成各股的歷史股價資料)

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]