比较vba excel中的工作表名称答案

【问题标题】：Comparing Worksheet name in vba excel比较vba excel中的工作表名称
【发布时间】：2015-03-30 17:24:09
【问题描述】：

我正在尝试将名称与已存在的工作表进行比较，以查看它是否已创建。

Private Sub Workbook_Open()
    Dim Ldate As String
    Dim Lweekday As Integer
    Dim Newweek As String
    Dim Sname As String

    Ldate = Date
    Lweekday = Weekday(Ldate)

    If Lweekday = 1 Then
        Newweek = DateAdd("d", 3, Ldate)
        Sname = Month(Newweek) & "-" & Day(Newweek) & "-" & Year(Newweek)
        Sheets.Add.Name = Sname
        Application.CutCopyMode = False
        Worksheets("Template").Select
        Range("A1:A2").Copy
        Worksheets(Sname).Select
        Range("A1").PasteSpecial
        Application.CutCopyMode = False

     End If    
End Sub

基本上我想检查工作表是否已创建，是否已退出代码，如果没有，则复制并粘贴模板到工作表中。

【问题讨论】：

标签： vba excel

【解决方案1】：

你可以简单地添加一个函数来检查。

Private Function IsWorksheetExist(sName As String) As Boolean
    Dim oWS As Worksheet
    On Error Resume Next
    Set oWS = ThisWorkbook.Worksheets(sName)
    If oWS Is Nothing Then
        IsWorksheetExist = False
    Else
        IsWorksheetExist = True
    End If
    On Error GoTo 0
End Function

【讨论】：