是否可以检查床单名称是否在附近？

Question

我想知道是否有可能检查特定的床单是否可用。如果它在附近，它会继续执行其余的代码。如果不在附近，它会添加到表单中。

我想到了它，但它给了我错误。如果你知道某事，请分享一些信息！谢谢！

sub macro1() 
If sheets("Test") = False Then 
Sheets.Add.Name = "Test" 
End If 
'Run my code 
End Sub 

Answer 1

是这样的？

Sub Sample() 
    Dim ws As Worksheet 

    On Error Resume Next 
    Set ws = Sheets("Test") 
    On Error GoTo 0 

    If ws Is Nothing Then 
     Set ws = Sheets.Add 
     ws.Name = "Test" 
    End If 

    '~~> Run your code 
End Sub 

Answer 2

另一种方法...创建 功能 - 接受一个工作簿对象，你以后和 的工作表的名称 - 如果表是在工作簿中找到，返回TRU

Function SheetExists(oWorkbook As Workbook, sSheetname As String) 

    Dim oWs As Worksheet 
    For Each oWs In oWorkbook.Worksheets 
     If oWs.Name = sSheetname Then 
      SheetExists = True 
      Exit Function 
     End If 
    Next 

End Function 

Sub TestSheetExists() 
    If SheetExists(ActiveWorkbook, "Bob") Then 
     MsgBox "Found it" 
    Else 
     MsgBox "No joy" 
    End If 
End Sub