【VBA】EXCEL - VBA 创建 Sheet 表的 6 种方法,以及注意事项

目录

[1. 创建一个新工作表,并将其添加到工作簿的末尾](#1. 创建一个新工作表,并将其添加到工作簿的末尾)

[2. 创建一个新工作表,并命名它](#2. 创建一个新工作表,并命名它)

[3. 创建一个新工作表,并将其插入到指定位置](#3. 创建一个新工作表,并将其插入到指定位置)

[4. 检查是否已有同名工作表,避免重复创建](#4. 检查是否已有同名工作表,避免重复创建)

[5. 创建多个工作表](#5. 创建多个工作表)

[6. 基于现有模板创建新工作表](#6. 基于现有模板创建新工作表)

注意事项:


1. 创建一个新工作表,并将其添加到工作簿的末尾

vbnet 复制代码
Sub CreateNewSheet()
    Sheets.Add ' 在工作簿末尾添加一个新工作表
End Sub

2. 创建一个新工作表,并命名它

vbnet 复制代码
Sub CreateAndNameSheet()
    Sheets.Add.Name = "新工作表" ' 添加并命名新工作表
End Sub

3. 创建一个新工作表,并将其插入到指定位置

vbnet 复制代码
Sub CreateSheetBeforeSpecificSheet()
    Sheets.Add Before:=Sheets("Sheet1") ' 在 "Sheet1" 之前添加新工作表
End Sub

Sub CreateSheetAfterSpecificSheet()
    Sheets.Add After:=Sheets("Sheet1") ' 在 "Sheet1" 之后添加新工作表
End Sub

4. 检查是否已有同名工作表,避免重复创建

vbnet 复制代码
Sub CreateSheetIfNotExists()
    Dim ws As Worksheet
    On Error Resume Next
    Set ws = Sheets("新工作表")
    On Error GoTo 0
    
    If ws Is Nothing Then
        Sheets.Add.Name = "新工作表"
    Else
        MsgBox "工作表 '新工作表' 已存在!"
    End If
End Sub

5. 创建多个工作表

vbnet 复制代码
Sub CreateMultipleSheets()
    Dim i As Integer
    For i = 1 To 3 ' 创建3个新工作表
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Name = "新工作表" & i
    Next i
End Sub

6. 基于现有模板创建新工作表

vbnet 复制代码
Sub CreateSheetFromTemplate()
    Sheets("模板").Copy After:=Sheets(Sheets.Count) ' 假设有一个名为"模板"的工作表
    ActiveSheet.Name = "从模板复制的工作表"
End Sub

注意事项:

  • 命名规则:工作表名称不能包含特殊字符,如 / \ [ ] * ? 等,并且长度不能超过 31 个字符。
  • 错误处理:在实际应用中,建议加入更多的错误处理逻辑,以应对可能出现的问题,例如工作表名称重复、权限不足等。
  • 激活工作表:如果需要确保新工作表被激活,可以在 Sheets.Add 后加上 ActiveSheet 或直接指定 .Activate 方法。
相关推荐
rui锐rui2 分钟前
大数据学习6:Sqoop数据迁移工具
大数据·学习·sqoop
presenttttt6 分钟前
用Python和OpenCV从零搭建一个完整的双目视觉系统(四)
开发语言·python·opencv·计算机视觉
psybrain10 分钟前
脑科学圈| 利用眼动追踪评估演讲情境下焦虑障碍儿童的注视行为
学习·心理学·脑科学·课堂·焦虑·儿童青少年·眼动
每日出拳老爷子12 分钟前
[C#] 使用TextBox换行失败的原因与解决方案:换用RichTextBox的实战经验
开发语言·c#
星辰离彬15 分钟前
Java 与 MySQL 性能优化:MySQL连接池参数优化与性能提升
java·服务器·数据库·后端·mysql·性能优化
半桔15 分钟前
【Linux手册】从接口到管理:Linux文件系统的核心操作指南
android·java·linux·开发语言·面试·系统架构
禁默23 分钟前
Linux Vim 编辑器详解:从入门到进阶(含图示+插件推荐)
linux·vim·excel
nightunderblackcat24 分钟前
新手向:实现ATM模拟系统
java·开发语言·spring boot·spring cloud·tomcat·maven·intellij-idea
开开心心就好26 分钟前
电脑息屏工具,一键黑屏超方便
开发语言·javascript·电脑·scala·erlang·perl
超级小忍28 分钟前
Spring Boot 与 Docker 的完美结合:容器化你的应用
spring boot·后端·docker