测试或检查是否存在工作表

Question

测试或检查是否存在工作表Dim wkbkdestination As WorkbookDim destsheet As WorksheetFor Each ThisWorkSheet In wkbkorigin.Worksheets      'this throws subscript out of range if there is not a sheet in the destination      'workbook that has the same name as the current sheet in the origin workbook.     Set destsheet = wkbkdestination.Worksheets(ThisWorkSheet.Name) Next基本上，我循环遍历原始工作簿中的所有工作表，然后设置destsheet在目标工作簿中，指向与原版工作簿中当前迭代的工作表名称相同的工作表。我怎样才能测试那张纸是否存在？类似于：If wkbkdestination.Worksheets(ThisWorkSheet.Name) Then

Answer 1

有些人不喜欢这种方法，因为错误处理的使用“不适当”，但我认为它在VBA中是可以接受的.另一种方法是循环遍历所有的工作表，直到找到匹配的页为止。

Function WorksheetExists(shtName As String, Optional wb As Workbook) As Boolean
    Dim sht As Worksheet    If wb Is Nothing Then Set wb = ThisWorkbook    On Error Resume Next
    Set sht = wb.Sheets(shtName)
    On Error GoTo 0
    WorksheetExists = Not sht Is NothingEnd Function