为什么会在后续运行中导致错误？

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