如何判断一个名称为“sheet1”的工作表是否存在？

风雪霓华

如题，谢谢各位大侠解答！！！
是否需要遍历工作薄中的所有工作表？

[ 本帖最后由 风雪霓华 于 2011-8-12 17:46 编辑 ]

白色GG

if workbooks(1).worksheets("sheet1") is nothing  then
   msgbox "不存在"
else
   msgbox "存在"
end if

风雪霓华

谢谢楼上，这个好像不行吧，假如不存在会出现“下标越界”的！

白色GG

这是我程序中的一个完整过程：


Function SheetIsExist(strExcleName As String, strSheetName As String) As Boolean
    '//判断名称的工作表是否已经在指定的Excel文件中存在

    Dim shtSheet As Worksheet
   
    SheetIsExist = False
    On Error GoTo lab1
    Set shtSheet = Workbooks(strExcleName).Sheets(strSheetName)
    If shtSheet Is Nothing Then
        SheetIsExist = False
    Else
        SheetIsExist = True
    End If
   
    Set shtSheet = Nothing
    Exit Function

lab1:
    SheetIsExist = False
End Function

livewire

dim ws as worksheet
on error resume next
set ws = worksheets("sheet1")
if err then msgbox " sheet1工作表不存在"
on error goto 0

风雪霓华

谢谢谢谢，看来必须使用on error resume next了！
再次感谢！

jiminyanyan

原帖由 风雪霓华 于 2011-8-12 18:07 发表
谢谢谢谢，看来必须使用on error resume next了！
再次感谢！

应不是必须，是可以用on error resume next

白色GG

遍历WorkBook的名称，就可以不用开启错误陷阱(on error resume next).

静静心

就利用下标越界错误嘛..

Sub df()
On Error Resume Next
If ActiveWorkbook.Sheets("sheet8") Is Nothing Then
If Err.Number = 9 Then
MsgBox "sheet8不存在"
Err.Clear
End If
End If
End Sub

风雪霓华

谢谢各位的详尽解答，我刚开始就是遍历工作簿中所有的工作表，正如白色GG说的：不用开启错误陷阱。
当时总感觉这样不是很好（增加了运算步骤），所以想寻求另外一种途径，因此采取了 is nothing，但假如确实不存在时将会报错，因此在6楼的帖子中我说了：看来必须使用on error resume next了！
再次感谢大家的解答！