如何检查工作表是否存在于当前工作簿中

Question

我在一个工作簿中有一张工作表，我想找出工作簿中存在的工作表中的任何一个工作表，并且我想检查工作簿中是否存在不同的工作表（根据单元格值数据）。如果工作簿中存在工作表，然后打开（活动）工作表。如果工作簿中没有工作表，则显示msg＆＃34;工作表不存在。＆＃34;并返回文本框。

Answer 1

我认为你需要一个像这样的简单函数：

Function sheetIsValid(sheetName As String) As Boolean
    Dim ws As Worksheet
    sheetIsValid = False
    For Each ws In Sheets()
        If (UCASE(ws.Name) = UCASE(sheetName)) Then
            sheetIsValid = True
            Exit For
        End If
    Next
End Function

并像这样使用它：

Sub TEST()
    If (Not sheetIsValid("Sheet2")) Then
        MsgBox "sheet is not present."
    Else
        '/* some stuff */
    End If
End Sub