字VBA，最終子失敗

Question

我有一個使用Excel和具有調用幾個程序一句話VBA：

private sub testsub1 
    'some process 

     call testsub2 (a, b, c,...) 

end sub 

private sub testsub2 (byref a as long, byref b as long, byref c as long,...) 
    'some process 

     call testsub3 (a, b, c,...) 

end sub 

private sub testsub3 (byref a as long, byref b as long, byref c as long,...) 
    'some process 

    'calls testub2 if a is less than some value. 
     if a < somevalue then 
     call testsub2 (a, b, c,...) 
     end if 

     documents("doc1").close 'closes a document 
     wb.close 'closes a workbook 
     exc.quit 'closes excel 

     set wb = nothing 
     set exc = nothing 

     msgbox "Analysis complete" 

end sub 

問題：從testsub3調用testsub2後，我無法結束testsub3子。在MsgBox之後，它跳到testsub3中的一些代碼（文檔（「doc1」）。close）---錯誤：錯誤的文件名------>文檔已被關閉。

但是我能夠結束，如果它沒有調用testsub2。

想法？

感謝

注意：由於代碼太長，我不使用循環（錯誤：程序太大）。因此，多個程序/子。

Answer 1

嘗試這樣做的工作，沒有錯誤

private sub testsub3 (byref a as long, byref b as long, byref c as long,...) 
    'some process 

    'calls testub2 if a is less than some value. 
     if a < somevalue then 
     call testsub2 (a, b, c,...) 

     else 

     documents("doc1").close 'closes a document 
     wb.close 'closes a workbook 
     exc.quit 'closes excel 

     set wb = nothing 
     set exc = nothing 

     msgbox "Analysis complete" 

    end if 

end sub 

Answer 2

也許你可以嘗試這樣的：

Private analysisComplete As Boolean 

Private Sub testsub1() 
    'some process 

     analysisComplete = False 

     Call testsub2(a, b, c,...) 

End Sub 

Private Sub testsub2(ByRef a As Long, ByRef b As Long, ByRef c As Long,...) 
    'some process 

     Call testsub3(a, b, c) 

End Sub 

Private Sub testsub3(ByRef a As Long, ByRef b As Long, ByRef c As Long,...) 
    'some process 

    'calls testub2 if a is less than some value. 
     If a < someValue Then 
     Call testsub2(a, b, c) 
     End If 

     If Not analysisComplete Then 

     Documents("doc1").Close 'closes a document 
     wb.Close 'closes a workbook 
     exc.Quit 'closes excel 

     Set wb = Nothing 
     Set exc = Nothing 

     MsgBox "Analysis complete" 

     analysisComplete = True 

    End If 

End Sub 

所以它執行testsub3的最後部分只有一次。