admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：linux服务器查找文件命令)

用VBA在工作簿中创建新的工作表

在VBA中，可以用 方法在工作簿中新建工作表。其

语法是：

(Before, After, Count, Type)

其中参数Before、After指定新建工作表的位置，Coun指定工作

表的数量，Type指定新建工作表的类型。如下例：

在工作簿新建一个名称为“工作表1”的工作表：

Sub AddWorksheet()

On Error Resume Next

().Name = "工作表1"

End Sub

在最后一个工作表的后面新建名称为“工作表2”的工作表：

Sub AddWorksheetAfterLast()

On Error Resume Next

(After:=Worksheets()).Na

me = "工作表2"

End Sub

在最后一个工作表的前面新建4个工作表：

Sub Add4Worksheets()

Count:=4

End Sub

运行下面的代码中，首先给出一个提示，要求用户输入新建工作

表的名称，然后用该名称新建工作表。如果出现错误，如名称过长或

该名称已被使用，将直接新建一个工作表。

Sub AddNameNewSheet()

Dim NewName As String

NewName = InputBox("请输入新建工作表的名称。")

On Error Resume Next

Before:=Worksheets(),

= NewName

End Sub


本文标签： 工作 新建 名称

版权声明：本文标题：用VBA在工作簿中创建新的工作表 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711523707a598239.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。