爲什麼會在後續運行中導致錯誤？

Question

我有一個VB6應用程序的後續代碼，建立一個Excel電子表格：

wrksh.Range("F4:F" & rn).Select 
With Selection 
    .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=ActiveSheet.Range("J5"), Unique:=True 
End With 

第一次通過，它的偉大工程。如果我刪除電子表格，再次運行它而不關閉程序，則會收到錯誤「91」，「對象變量或未設置塊變量」。

任何想法爲什麼，以及我如何解決它？

Answer 1

假設您的wrksh完全符合工作簿中的有效工作表（定義爲Worksheet）。 rn是一個數值，表示您的Range的最後一行（定義爲Long）。而在去年，ActiveSheet相同板作爲wrksh表，然後在下面的代碼應該爲你工作：

With wrksh.Range("F4:F" & rn) 
    .AdvancedFilter Action:=xlFilterCopy, CopyToRange:=wrksh.Range("J5"), Unique:=True 
End With