'多小時(shí)線和節(jié)氣線的數(shù)據(jù)都下載到了本地了,多小時(shí)是系統(tǒng)默認(rèn)的2小時(shí)線

Sub SHSL()
 Dim Grid                        '窗格引用對(duì)象變量
 Dim iStockName                  '與窗格關(guān)聯(lián)的證券名稱
 Dim iStockLabel                 '與窗格關(guān)聯(lián)的證券代碼
 Dim iMarket                     '與窗格關(guān)聯(lián)的市場(chǎng)代碼
 '參數(shù)Cyctype  的周期類型: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") '從圖表上得到框架名稱為"Technic"、窗格名稱為"Main"的窗格對(duì)象——K線分析圖
 iStockName = Grid.StockName   '與窗格關(guān)聯(lián)的證券名稱
 iStockLabel = Grid.StockLabel '與窗格關(guān)聯(lián)的證券代碼
 iMarket = Grid.Market         '與窗格關(guān)聯(lián)的市場(chǎng)代碼
 
 '以下得到圖表關(guān)聯(lián)品種的各周期類型數(shù)據(jù)
  '讀取多小時(shí)線數(shù)據(jù)
 Set DataHours = MarketData.GetHistoryData(iStockLabel,iMarket,11) '設(shè)置引用對(duì)象
 iHours = DataHours.Count - 1             '因?yàn)橄聵?biāo)從0開始所以引用對(duì)象數(shù)據(jù)量減1
 ReDim Preserve arrHours(iHours,8)             '重置動(dòng)態(tài)二維數(shù)組維度
 For i = 0 To iHours                      '給動(dòng)態(tài)數(shù)組寫入以下值
  arrHours(iHours,0) = i+1                  '序號(hào)
  arrHours(iHours,1) = DataHours.Date(i)    '時(shí)間
  arrHours(iHours,2) = DataHours.Open(i)    '開盤
  arrHours(iHours,3) = DataHours.High(i)    '最高
  arrHours(iHours,4) = DataHours.Low(i)     '最低
  arrHours(iHours,5) = DataHours.Close(i)   '收盤
  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開始所以引用對(duì)象數(shù)據(jù)量減1
 ReDim Preserve arrSolarTerms(iSolarTerms,8)                  '重置動(dòng)態(tài)二維數(shù)組維度
 For i = 0 To iSolarTerms                           '給動(dòng)態(tài)數(shù)組寫入以下值
  arrSolarTerms(iSolarTerms,0) = i+1                       '序號(hào)
  arrSolarTerms(iSolarTerms,1) = DataSolarTerms.Date(i)    '時(shí)間
  arrSolarTerms(iSolarTerms,2) = DataSolarTerms.Open(i)    '開盤
  arrSolarTerms(iSolarTerms,3) = DataSolarTerms.High(i)    '最高
  arrSolarTerms(iSolarTerms,4) = DataSolarTerms.Low(i)     '最低
  arrSolarTerms(iSolarTerms,5) = DataSolarTerms.Close(i)   '收盤
  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") '從圖表上得到框架名稱為"Technic"、窗格名稱為"Main"的窗格對(duì)象——K線分析圖
 iStockName = Grid.StockName   '與窗格關(guān)聯(lián)的證券名稱
 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)化分析，不要一次性堆積大量代碼讓工作人員去檢查。。。