[求助]vba編程為什么多小時線和節氣線沒數據?　[金字塔]

'多小時線和節氣線的數據都下載到了本地了,多小時是系統默認的2小時線

Sub SHSL()
 Dim Grid                        '窗格引用對象變量
 Dim iStockName                  '與窗格關聯的證券名稱
 Dim iStockLabel                 '與窗格關聯的證券代碼
 Dim iMarket                     '與窗格關聯的市場代碼
 '參數Cyctype  的周期類型:0 1分鐘 1 5分鐘 2 15分鐘 3 30分鐘 4 60分鐘 5日線 6周線 7月線 8年線 9多日線 
 '10分筆成交 11多小時線 12多秒線 13多分鐘線 14季度線 15半年線 16節氣線 17 3分鐘 18 10分鐘 19 多筆線 
 '不同周期數據的對象引用變量
 Dim DataMinute1,DataMinute5,DataMinute15,DataMinute30,DataHour,DataDay,DataWeek,DataMonth,DataYear,DataDays
 Dim DataBill,DataHours,DataSeconds,DataMinutes,DataQuarter,DataHalfYear,DataSolarTerms,DataMinute3,DataMinute10,DataBills
 '用于數組的循環變量
 Dim iMinute1,iMinute5,iMinute15,iMinute30,iHour,iDay,iWeek,iMonth,iYear,iDays
 Dim iBill,iHours,iSeconds,iMinutes,iQuarter,iHalfYear,iSolarTerms,iMinute3,iMinute10,iBills
 Dim i       
 '以下動態數組里的每列數據從左到右依次是:序號、時間、0、H、L、C、成交量、成交額、持倉量等八種數據
 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  '不同周期品種為獨立的緩沖區
   
 Set Grid = Technic.GetGridByName("Main") '從圖表上得到框架名稱為"Technic"、窗格名稱為"Main"的窗格對象——K線分析圖
 iStockName = Grid.StockName   '與窗格關聯的證券名稱
 iStockLabel = Grid.StockLabel '與窗格關聯的證券代碼
 iMarket = Grid.Market         '與窗格關聯的市場代碼
 
 '以下得到圖表關聯品種的各周期類型數據
  '讀取多小時線數據
 Set DataHours = MarketData.GetHistoryData(iStockLabel,iMarket,11) '設置引用對象
 iHours = DataHours.Count - 1             '因為下標從0開始所以引用對象數據量減1
 ReDim Preserve arrHours(iHours,8)             '重置動態二維數組維度
 For i = 0 To iHours                      '給動態數組寫入以下值
  arrHours(iHours,0) = i+1                  '序號
  arrHours(iHours,1) = DataHours.Date(i)    '時間
  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) '持倉量
 Next
 MsgBox "參數Cyctype為11即多小時"& arrHours(iHours - 3,5) '顯示數據用于檢查 
 

 '讀取節氣線數據
 Set DataSolarTerms = MarketData.GetHistoryData(iStockLabel,iMarket,16) '設置引用對象
 iSolarTerms = DataSolarTerms.Count - 1             '因為下標從0開始所以引用對象數據量減1
 ReDim Preserve arrSolarTerms(iSolarTerms,8)                  '重置動態二維數組維度
 For i = 0 To iSolarTerms                           '給動態數組寫入以下值
  arrSolarTerms(iSolarTerms,0) = i+1                       '序號
  arrSolarTerms(iSolarTerms,1) = DataSolarTerms.Date(i)    '時間
  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) '持倉量
 Next
 MsgBox "參數Cyctype為16即節氣線"& arrSolarTerms(iSolarTerms - 3,5) '顯示數據用于檢查 
  
  MarketData.DestroyHistoryData '數據處理完畢后,清理緩沖區
End Sub

Set Grid = Technic.GetGridByName("Main") '從圖表上得到框架名稱為"Technic"、窗格名稱為"Main"的窗格對象——K線分析圖
 iStockName = Grid.StockName   '與窗格關聯的證券名稱
 iStockLabel = Grid.StockLabel '與窗格關聯的證券代碼
 iMarket = Grid.Market         '與窗格關聯的市場代碼

Set DataHours = MarketData.GetHistoryData(iStockLabel,iMarket,11) '設置引用對象
application.msgout DataHours .close(DataHours.Count - 1   )

用這段代碼測試正常，請您先簡化分析，不要一次性堆積大量代碼讓工作人員去檢查。。。