一個(gè)VBA程序，導(dǎo)出板塊中的市場(chǎng)代碼和品種代碼到文本文件中。

前面數(shù)據(jù)導(dǎo)出正常，板塊中的最后二項(xiàng)數(shù)據(jù)均為空白。

比如一個(gè)板塊有5個(gè)品種：SH600104，SZ000758，SH600756，SZ000089，SH600108

結(jié)果板塊文本文件中只有：

SH600104

SZ000758

SH600756

再加2行空行。

是否GetStockMarket函數(shù)有BUG.

另外，count到底是基于0還是基于1的

TIMAX=1

 blocktype(TIMAX)="程-預(yù)警板塊-大幅上漲模式"
 blockname(TIMAX)= "當(dāng)日中大幅上漲板塊"

 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& "導(dǎo)出板塊數(shù)據(jù)....："&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.Close

            for J=0 TO tnblockcount
                   tcmarket=b.GetStockMarket(j)
                   tccode=b.GetStockCode(j)
                   tcstr=tcmarket+tccode
                   call document.debugfile(tcfilepath,tcstr,0)
            next      
           
          End if

    NEXT
 
 
     
    application.MsgOut Date &" " &Time& "導(dǎo)出板塊數(shù)據(jù)完成!" 

問題正在解決中

count 只是代表總數(shù)，有多少個(gè)合約就會(huì)顯示多少，它不是數(shù)組變量。

其他問題還在解決中

GetStockMarket 不是BUG 可以正常使用

我貼上一個(gè)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