如何在工作簿中创建不存在的工作表

如果您使用 Excel 并希望自动化任务或改进工作流程，本教程适合您。在处理大型工作簿或复杂项目时，手动确定特定工作表是否已存在，然后在不存在时创建它有时可能很耗时。值得庆幸的是，Excel 具有强大的功能，使我们能够使用最少的代码来自动化这些过程。

在本文中，我们将介绍如何仅在 Excel 工作簿中不存在的情况下添加新工作表。我们将使用 Visual Basic for Applications (VBA) 编程语言，该语言专门用于自动化 Excel 过程。在本过程结束时，您将能够编写 VBA 代码来确定工作簿中是否存在工作表，如果不存在，则创建一个。通过这些知识，您将能够自动化重复性操作，节省时间并提高使用 Excel 时的工作效率。因此，让我们开始了解如何在 Excel 工作簿中创建不存在的工作表！

在工作簿中创建不存在的工作表

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。因此，让我们看看一个简单的过程，了解如何在 Excel 中创建工作簿中不存在的工作表。

步骤 1

考虑任何 Excel 文件。

首先使用 Alt + F11 打开 VBA 应用程序。

步骤 2

然后点击“插入”并选择“模块”，然后将以下代码复制到文本框中。

插入 > 模块 > 复制。

示例

Sub TestSheetCreate()
   Dim newSheetName As String
   Dim checkSheetName As String
   newSheetName = Application.InputBox("Input Sheet Name:", "Create Sheet Not", 
   _"sheet4", , , , , 2)
   On Error Resume Next
   checkSheetName = Worksheets(newSheetName).Name
   If checkSheetName = "" Then
      Worksheets.Add.Name = newSheetName
      MsgBox "The sheet named ''" & newSheetName & _
      "'' does not exist in this workbook.", _
      vbInformation, "Create Sheet Not Exists"
        
   Else
      MsgBox "The sheet named ''" & newSheetName & _
      "''Exist in this workbook.", vbInformation, "Create Sheet Not Exists"
   End If
End Sub