vba - 如果工作表存在，则运行 sub。如果没有，显示消息并退出子

Question

尽管在其他线程上查找此主题，但我还是被卡住了。我需要以下帮助:

如果宏可以找到名为“Transfers”的工作表，我希望它激活该工作表并运行其余的子，这使得“Transfers”成为最后一个工作表。

如果它找不到名为“Transfers”的工作表，我想要它，所以发出一条消息(请确保您重命名了您的数据表:“Transfers”)并退出子。我下面的代码不起作用。

Sub Double_Transfer_Report()
Dim er As Boolean
er = False

On Error Resume Next
'Worksheets("Transfers").Activate
er = true

If er Then
MsgBox ("Please make sure that you renamed your data sheet : Transfers)
Exit Sub
End If

ActiveSheet.Move _
After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)

Answer 1

不要用错误对象做体操。只需通过循环检查工作表是否存在。

Sub Double_Transfer_Report()
    Dim found As Boolean

    found = SheetExists("Transfers")

    If Not found Then
        MsgBox "Please make sure that you renamed your data sheet : Transfers"
    Else
        ActiveSheet.Move After:=ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count)
    End If
End Sub

Function SheetExists(strSheetName As String) As Boolean

    Dim wks As Worksheet

    For Each wks In ThisWorkbook.Worksheets

        If wks.Name = strSheetName Then
            SheetExists = True
            Exit Function
        End If
    Next

    SheetExists = False

End Function