打印本文
關(guān)閉窗口
'多小時(shí)線和節(jié)氣線的數(shù)據(jù)都下載到了本地了,多小時(shí)是系統(tǒng)默認(rèn)的2小時(shí)線
Sub SHSL()
Dim Grid '窗格引用對(duì)象變量
Dim iStockName '與窗格關(guān)聯(lián)的證券名稱(chēng)
Dim iStockLabel '與窗格關(guān)聯(lián)的證券代碼
Dim iMarket '與窗格關(guān)聯(lián)的市場(chǎng)代碼
'參數(shù)Cyctype 的周期類(lèi)型:0 1分鐘 1 5分鐘 2 15分鐘 3 30分鐘 4 60分鐘 5日線 6周線 7月線 8年線 9多日線
'10分筆成交 11多小時(shí)線 12多秒線 13多分鐘線 14季度線 15半年線 16節(jié)氣線 17 3分鐘 18 10分鐘 19 多筆線
'不同周期數(shù)據(jù)的對(duì)象引用變量
Dim DataMinute1,DataMinute5,DataMinute15,DataMinute30,DataHour,DataDay,DataWeek,DataMonth,DataYear,DataDays
Dim DataBill,DataHours,DataSeconds,DataMinutes,DataQuarter,DataHalfYear,DataSolarTerms,DataMinute3,DataMinute10,DataBills
'用于數(shù)組的循環(huán)變量
Dim iMinute1,iMinute5,iMinute15,iMinute30,iHour,iDay,iWeek,iMonth,iYear,iDays
Dim iBill,iHours,iSeconds,iMinutes,iQuarter,iHalfYear,iSolarTerms,iMinute3,iMinute10,iBills
Dim i
'以下動(dòng)態(tài)數(shù)組里的每列數(shù)據(jù)從左到右依次是:序號(hào)、時(shí)間、0、H、L、C、成交量、成交額、持倉(cāng)量等八種數(shù)據(jù)
Dim arrMinute1(),arrMinute5(),arrMinute15(),arrMinute30(),arrHour(),arrDay(),arrWeek(),arrMonth(),arrYear(),arrDays()
Dim arrBill(),arrHours(),arrSeconds(),arrMinutes(),arrQuarter(),arrHalfYear(),arrSolarTerms(),arrMinute3(),arrMinute10(),arrBills()
MarketData.HistoryDataMode = 1 '不同周期品種為獨(dú)立的緩沖區(qū)
Set Grid = Technic.GetGridByName("Main") '從圖表上得到框架名稱(chēng)為"Technic"、窗格名稱(chēng)為"Main"的窗格對(duì)象——K線分析圖
iStockName = Grid.StockName '與窗格關(guān)聯(lián)的證券名稱(chēng)
iStockLabel = Grid.StockLabel '與窗格關(guān)聯(lián)的證券代碼
iMarket = Grid.Market '與窗格關(guān)聯(lián)的市場(chǎng)代碼
'以下得到圖表關(guān)聯(lián)品種的各周期類(lèi)型數(shù)據(jù)
'讀取多小時(shí)線數(shù)據(jù)
Set DataHours = MarketData.GetHistoryData(iStockLabel,iMarket,11) '設(shè)置引用對(duì)象
iHours = DataHours.Count - 1 '因?yàn)橄聵?biāo)從0開(kāi)始所以引用對(duì)象數(shù)據(jù)量減1
ReDim Preserve arrHours(iHours,8) '重置動(dòng)態(tài)二維數(shù)組維度
For i = 0 To iHours '給動(dòng)態(tài)數(shù)組寫(xiě)入以下值
arrHours(iHours,0) = i+1 '序號(hào)
arrHours(iHours,1) = DataHours.Date(i) '時(shí)間
arrHours(iHours,2) = DataHours.Open(i) '開(kāi)盤(pán)
arrHours(iHours,3) = DataHours.High(i) '最高
arrHours(iHours,4) = DataHours.Low(i) '最低
arrHours(iHours,5) = DataHours.Close(i) '收盤(pán)
arrHours(iHours,6) = DataHours.Volume(i) '成交量
arrHours(iHours,7) = DataHours.Amount(i) '成交額
arrHours(iHours,8) = DataHours.Openint(i) '持倉(cāng)量
Next
MsgBox "參數(shù)Cyctype為11即多小時(shí)"& arrHours(iHours - 3,5) '顯示數(shù)據(jù)用于檢查
'讀取節(jié)氣線數(shù)據(jù)
Set DataSolarTerms = MarketData.GetHistoryData(iStockLabel,iMarket,16) '設(shè)置引用對(duì)象
iSolarTerms = DataSolarTerms.Count - 1 '因?yàn)橄聵?biāo)從0開(kāi)始所以引用對(duì)象數(shù)據(jù)量減1
ReDim Preserve arrSolarTerms(iSolarTerms,8) '重置動(dòng)態(tài)二維數(shù)組維度
For i = 0 To iSolarTerms '給動(dòng)態(tài)數(shù)組寫(xiě)入以下值
arrSolarTerms(iSolarTerms,0) = i+1 '序號(hào)
arrSolarTerms(iSolarTerms,1) = DataSolarTerms.Date(i) '時(shí)間
arrSolarTerms(iSolarTerms,2) = DataSolarTerms.Open(i) '開(kāi)盤(pán)
arrSolarTerms(iSolarTerms,3) = DataSolarTerms.High(i) '最高
arrSolarTerms(iSolarTerms,4) = DataSolarTerms.Low(i) '最低
arrSolarTerms(iSolarTerms,5) = DataSolarTerms.Close(i) '收盤(pán)
arrSolarTerms(iSolarTerms,6) = DataSolarTerms.Volume(i) '成交量
arrSolarTerms(iSolarTerms,7) = DataSolarTerms.Amount(i) '成交額
arrSolarTerms(iSolarTerms,8) = DataSolarTerms.Openint(i) '持倉(cāng)量
Next
MsgBox "參數(shù)Cyctype為16即節(jié)氣線"& arrSolarTerms(iSolarTerms - 3,5) '顯示數(shù)據(jù)用于檢查
MarketData.DestroyHistoryData '數(shù)據(jù)處理完畢后,清理緩沖區(qū)
End Sub
Set Grid = Technic.GetGridByName("Main") '從圖表上得到框架名稱(chēng)為"Technic"、窗格名稱(chēng)為"Main"的窗格對(duì)象——K線分析圖
iStockName = Grid.StockName '與窗格關(guān)聯(lián)的證券名稱(chēng)
iStockLabel = Grid.StockLabel '與窗格關(guān)聯(lián)的證券代碼
iMarket = Grid.Market '與窗格關(guān)聯(lián)的市場(chǎng)代碼
Set DataHours = MarketData.GetHistoryData(iStockLabel,iMarket,11) '設(shè)置引用對(duì)象
application.msgout DataHours .close(DataHours.Count - 1 )
用這段代碼測(cè)試正常，請(qǐng)您先簡(jiǎn)化分析，不要一次性堆積大量代碼讓工作人員去檢查。。。