[求助]一個奇怪的問題。BLOCK對象最后二項數據缺乏。 [金字塔]
- 咨詢內容:
一個VBA程序,導出板塊中的市場代碼和品種代碼到文本文件中。
前面數據導出正常,板塊中的最后二項數據均為空白。
比如一個板塊有5個品種:SH600104,SZ000758,SH600756,SZ000089,SH600108
結果板塊文本文件中只有:
SH600104
SZ000758
SH600756
再加2行空行。
是否GetStockMarket函數有BUG.
另外,count到底是基于0還是基于1的
TIMAX=1
blocktype(TIMAX)="程-預警板塊-大幅上漲模式"
blockname(TIMAX)= "當日中大幅上漲板塊"Set b = CreateObject("Stock.Block")
FOR I=1 TO TIMAX
' init_block_data_TextBoxType.Text =blocktype(I)
' init_block_data_TextBoxBlock.Text = blockname(I)
'init_block_data.show()
application.MsgOut Date &" " &Time& "導出板塊數據....:"&blocktype(I)&" 名稱:"&blockname(I)If b.IsTypeExist(blocktype(I))=0 Then
End if
If b.IsBlockExist(blockname(I))=0 Then
else
call b.open(blockname(I),1)
tnblockcount=b.count
tcfiledire=Application.AppPath+"\systemblock\"
tcfilename=blockname(I)+".txt"
tcfilepath=tcfiledire+tcfilename
Set fs = CreateObject("Scripting.FileSystemObject")Set a = fs.CreateTextFile(tcfilepath, True)
a.Closefor J=0 TO tnblockcount
tcmarket=b.GetStockMarket(j)
tccode=b.GetStockCode(j)
tcstr=tcmarket+tccode
call document.debugfile(tcfilepath,tcstr,0)
next
End ifNEXT
application.MsgOut Date &" " &Time& "導出板塊數據完成!" - 金字塔客服:
問題正在解決中
- 用戶回復:
count 只是代表總數,有多少個合約就會顯示多少,它不是數組變量。
其他問題還在解決中
[此貼子已經被作者于2011-11-8 9:33:58編輯過] - 網友回復:
GetStockMarket 不是BUG 可以正常使用
我貼上一個GetStockMarket的使用,并不是保存到文件里,只是打印一下板塊的合約代碼。從你上面的代碼看,你好像是少用了 OPEN 方法。
Set b = CreateObject("Stock.Block")
call b.open("上海A股",0)application.MsgOut b.count
FOR I=1 TO b.count
application.MsgOut b.GetStockCode(i)
next
- 網友回復: 有啊, call b.open(blockname(I),1)
- 上一篇:前N筆成交的平均成交量值
- 下一篇:等價線
相關文章
-
沒有相關內容