求助：VBA做參數(shù)優(yōu)化時內(nèi)存不斷的耗盡　[金字塔]

用下面VBS對某個指標(biāo)做參數(shù)優(yōu)化時，內(nèi)存會不斷耗盡，請教大俠如何解決，謝謝！

 for j=6 to 20 step 1
 for k=8 to 36 step 1
 
 test = "W_TEST(" & j & "," & k & ",30)"

 for i=0 to 1166-1
   dim MarketData1, Report1, Fomula1
   set MarketData1 = MarketData
   Set Report1 = MarketData1.GetReportDataByIndex("SZ",i)
   Set Formula1 = MarketData1.STKINDI(Report1.Label,"SZ",test,0,4)
   sg =  Formula1.GetBufData("SG", Formula1.DataSize-1)
   Application.PeekAndPump     
   Set Report1 = Nothing
   Set Formula1 = Nothing 

   set MarketData1 = Nothing
  next
  next

 next

謝謝回復(fù)！可能是我測試的指標(biāo) W_TEST2中又調(diào)用了VBA自定義的函數(shù),

然后VBA函數(shù)中申請了返回數(shù)組返回出去了，是不是這個數(shù)組在外面沒地方釋放，出現(xiàn)了內(nèi)存泄漏。

下面是測試的代碼，請確認(rèn)。

測試宏：

Sub M_Test()

 dim sg, wn, sn, st, test
 
 for j=6 to 20 step 1
 for k=8 to 36 step 1
 
 sg = 0
 
 test = "W_TEST2(" & j & "," & k & ",30)"
 Application.MsgOut(test) 

  for i=0 to 1166-1
   dim MarketData1, Report1, Fomula1
   set MarketData1 = MarketData
   Set Report1 = MarketData1.GetReportDataByIndex("SZ",i)
   Set Formula1 = MarketData1.STKINDI(Report1.Label,"SZ",test,0,4)
   sg = sg + Formula1.GetBufData("SG", Formula1.DataSize-1)
   
   Application.PeekAndPump     
   Set Report1 = Nothing
   Set Formula1 = Nothing 
   Set MaketData1 = Nothing 
  next
 
 next
 next   

 MsgBox "計算完成!"
 
End Sub

測試指標(biāo)  W_TEST2 ：

INPUT:  N(14, 1, 50),M(18, 0, 100);

BS: CU_MA1(C, N) + CU_MA1(C, M);
SG: BS;

系統(tǒng)自帶的自定義函數(shù) CU_MA1：

'計算序列模式下指定周期長度的收盤價均價
Function CU_MA1(Formula,CLOSE,CYC)
   CU_MA1=0

    '防止公式逐周期模式時調(diào)用
    If Formula.WorkMode = 0 Then
        Exit Function
    End If

    'CLOSE數(shù)組數(shù)據(jù)長度一定會與Formula.DataSize-1相等
    DataCount = UBound(CLOSE)
    If DataCount <> Formula.DataSize-1 Then
        Exit Function
    End If

    '定義一個計算返回的數(shù)組
    Dim ResultMa
    Redim ResultMa(DataCount)

    For i = Cyc-1 To Formula.DataSize-1
        Count = 0
        For k = i-(Cyc-1) To i
            Count = Count + CLOSE(k)
        Next
        ResultMa(i) = Count / Cyc
    Next

    '返回一個計算完畢的均線數(shù)組
    CU_MA1 = ResultMa
End Function

這個做法恐怕不行，會導(dǎo)致問題，建議你不要在PEL中使用自定義函數(shù)，又拿VBA來做調(diào)用。

建議將你的PEL中的VBA自定義函數(shù)的算法，直接移植到VBA中，只直行簡單的單次調(diào)用