文章目录

一、工作表对象
- 1.1 获取 Sheet 页对应的工作簿对象
二、工作表对象操作 Sheet 页的常见用法
- 2.1. 判断工作表是否存在
- 2.2. 新建工作表
- 2.3. 隐藏和取消隐藏工作表
- 2.4. 移动工作表
- 2.5. 复制工作表
- 2.6. 工作表保护
- 2.7. 判断工作表是否被保护
- 2.8. 删除工作表
- 2.9. 选中工作表

一、工作表对象

工作表指的是 Excel 文件中的 Sheet 页，vba 提供了专门操作 Sheet 页的对象 Worksheet，既工作表对象，通过该
对象，我们可以获取到 Sheet 页的信息，以及可以对 Sheet 页进行处理，如：新建、保存、删除、复制等

1.1 获取 Sheet 页对应的工作簿对象

1. 通过 Sheet 页在 Excel 中的顺序，获取工作表对象

Public Sub main()Dim ws As WorksheetSet ws = Sheets(1)Debug.Print ws.Name
End Sub

2. 通过 Sheet 页名称获取工作表对象

(1) 方式一：利用 Sheet 页在工作簿中显示的名称来获取工作表对象，核心语法：Sheets(工作表中显示的名字)

Public Sub main()Dim ws As WorksheetSet ws = Sheets("Sheet1")Debug.Print ws.Name
End Sub

(2) 方式二：利用 Sheet 页的真实名称来获取工作表对象，核心语法：真实的工作表名称

Public Sub main()Dim ws As WorksheetSet ws = Sheet1Debug.Print ws.Name
End Sub

3. 获取正处于激活状态的 Sheet 页的工作表对象

获取正处于激活状态的 Sheet 页的工作表对象，核心语法： ActiveSheet，激活状态可以简单理解为，目前正处于显
示状态的那个 Sheet 页即为激活状态

Public Sub main()Dim ws As WorksheetSet ws = ActiveSheetDebug.Print ws.Name
End Sub

二、工作表对象操作 Sheet 页的常见用法

2.1. 判断工作表是否存在

此处判断的是 Sheet 页在工作簿中显示的名称

Public Sub main()Dim index As IntegerFor index = 1 To Sheets.CountIf Sheets(index).Name = "Sheet1" ThenDebug.Print "存在"Exit ForEnd IfNext index
End Sub

2.2. 新建工作表

代码中第 4 行的 Name，设置的是 Sheet 页在工作簿中显示的名称，
新创建的 Sheet 页默认显示在最前面，顺序是 1

Public Sub main()Dim ws As WorksheetSet ws = Sheets.Addws.Name = "模板"
End Sub

2.3. 隐藏和取消隐藏工作表

Visible 属性为 True 时显示 Sheet 页，为 False 时隐藏 Sheet 页

Public Sub main()Dim ws As WorksheetSet ws = Worksheets(1)ws.Visible = True
End Sub

2.4. 移动工作表

移动到目标工作表之前：

Public Sub main()'要移动的工作表Dim sourceWs As WorksheetSet sourceWs = Worksheets(1)'移动基准的工作表Dim targetWs As WorksheetSet targetWs = Worksheets(3)'移动到基准工作表之前sourceWs.Move before:=targetWs
End Sub

移动到目标工作表之后：

Public Sub main()'要移动的工作表Dim sourceWs As WorksheetSet sourceWs = Worksheets(1)'移动基准的工作表Dim targetWs As WorksheetSet targetWs = Worksheets(3)'移动到基准工作表之后sourceWs.Move after:=targetWs
End Sub

2.5. 复制工作表

复制到目标工作表之前：

Public Sub main()'要复制的工作表Dim sourceWs As WorksheetSet sourceWs = Worksheets(1)'复制基准的工作表Dim targetWs As WorksheetSet targetWs = Worksheets(3)'复制到基准工作表之前sourceWs.Copy before:=targetWs
End Sub

复制到目标工作表之后：

Public Sub main()'要复制的工作表Dim sourceWs As WorksheetSet sourceWs = Worksheets(1)'复制基准的工作表Dim targetWs As WorksheetSet targetWs = Worksheets(3)'复制到基准工作表之后sourceWs.Copy after:=targetWs
End Sub

2.6. 工作表保护

1. 利用 Protect 函数给 Sheet 页设置密码保护：

Public Sub main()Dim ws As WorksheetSet ws = Sheet1ws.Protect "123456"
End Sub

2. 利用 Unprotect 函数给 Sheet 页解除密码保护：

Public Sub main()Dim ws As WorksheetSet ws = Sheet1ws.Unprotect "123456"
End Sub

2.7. 判断工作表是否被保护

Public Sub main()Dim ws As WorksheetSet ws = Sheet1If ws.ProtectContents = True ThenDebug.Print "当前Sheet页被保护了!"End If
End Sub

2.8. 删除工作表

Public Sub main()Dim ws As WorksheetSet ws = Sheet1'删除前取消提示框Application.DisplayAlerts = False'删除工作表ws.Delete'删除后恢复提示框Application.DisplayAlerts = True
End Sub

2.9. 选中工作表

Public Sub main()Dim ws As WorksheetSet ws = Sheet1ws.Select
End Sub

Excel-VBA 快速上手（六、工作表对象、Sheet 页的常用操作）相关推荐

Excel·VBA按行拆分工作表
对应之前文章<Excel·VBA按列拆分工作表>,对Excel表格数据按照固定行数,将工作表拆分工作表按行拆分为工作表 Sub 工作表按行拆分为工作表()'当前工作表(worksheet ...
Excel·VBA按列拆分工作表、工作簿
改进<将excel按照某一列拆分成多个文件>,使代码更具通用性,可以实现将工作表拆分为工作表或工作簿对Excel表格数据按照某列的值,将工作表拆分目录 1,工作表按列拆分为工作表 2, ...
Excel VBA:将多个工作表保存为新文件
Sub 创建文件()'定义文本文件的名称 Dim file As String, arr, i'指定文本文件的名称 file = ThisWorkbook.Path & "\需要复制 ...
Excel VBA 将当前活动工作表中的图片保存到以工作表名称命名的文件夹内
Sub exportpic() '将当前活动工作表中的图片保存到以工作表名称命名的文件夹内 Dim sn, path As String, j% sn = ActiveSheet.Name path ...
方法range作用于对象worksheet时失败_VB.NET Excel操作类（获取工作簿列表和工作表列表及工作表对象）...
效果展示引用excel类 Imports Microsoft.Office.Interop Excel类代码开始 Public Class Cls_excel 返回Excel对象 ''' ''' 返 ...
VBA将excel中的多个工作表sheet合成一个工作表，多个工作簿的多个工作表合并为一个工作簿
1 将excel中的多个工作表sheet合成一个工作表工作表合成前: 工作表合成后: **第一步:**在文件中新建一个工作表sheet,用来存放合成后的数据,如图所示: 第二步:点击"开发 ...
vba 定义类_工作表中如何响应自定义事件
大家好,在上两讲中讲了类模块的调试行为,对于我们写代码人员来讲,要充分地理解每个知识点的概念,才能在实际工作中灵活运用,在我的第一套教程<VBA代码解决方案>中,我推出的是一种积木编程的思 ...
征服Excel VBA：让你工作效率倍增的239个实用技巧
下载地址:https://webboy.pipipan.com/fs/19405313-362892031 内容简介: <征服Excel VBA:让你工作效率倍增的239个实用技巧>分16 ...
Excel.VBA 快速删除重复记录
Excel.VBA 快速删除重复记录日常工作中的工作表中经常会有重复记录,清除这些重复记录是一个繁琐的工作,即使在排序之后再进行手工筛选,也经常会出现遗漏,而使用VBA代码就可以快速准确地删除重复记 ...

Excel-VBA 快速上手（六、工作表对象、Sheet 页的常用操作）