为什么我不能使用“If Sheets（'worksheetname'）是Nothing”来检查工作表是否存在于Excel VBA中

Question

我的意思是，我知道如何使用On Error Resume Next来解决这个问题。但我不明白为什么这个错误会发生。为什么如果excel编译器找不到某个工作表，excel编译器就不会返回任何内容......我误解了一些概念吗？

Answer 1

是的，如果Sheets("Output")不是真的存在，那么会出错。
您正试图访问不存在的对象。

试试这个：我们使用OERN和OEG0变量赋值过程中抑制错误

Dim wsop As Worksheet 

On Error Resume Next 
Set wsop = Sheets("Output") 
On Error Goto 0 

If wsop Is Nothing Then 
    Set wsop = Sheets.Add(, Sheets(Sheets.Count)) 'after last sheet 
    wsop.Name = "Output" 
End If 

多加留意。
要了解更多关于error handling请查看链接。 HTH。

Answer 2

试试这个

Sub test() 

Dim wsSheet As Worksheet 
On Error Resume Next 
Set wsSheet = Sheets("Output") 'declare before check 
On Error GoTo 0 
If wsSheet Is Nothing Then 
Worksheets.Add.Name = "Output" 
End If 

End Sub