如何取得指定工作溥的所有工作表？

marcoleung 2005-03-22 12:48:25

如何取得指定工作溥的所有工作表？

...全文

73 2 打赏收藏举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

88391788 2005-03-22

打赏
举报

回复

？请问楼下的，表的名字不是sheet开头的自己改的可以吗用楼上的代码

BTbug 2005-03-22

打赏
举报

回复

Dim i As Integer
Dim sSheets() As String '存储Sheet表的名称

For i = 0 To Sheets.count - 1
ReDim Preserve sSheets(i)
sSheets(i) = Sheet(i).Name
Next i

在Excel处理数据时，手动删除多张工作表费时费力，VBA代码可快速解决。本文提供了多种VBA代码示例，包括只留指定工作表、留活动工作表、删除指定工作表等不同场景下的工作表删除方法，还介绍了直观显示删除工作表的代码。

本文介绍了利用VBA工具将Excel中的一个工作表按某列拆分成多个sheet工作表的方法。详细说明了操作步骤，包括打开表格文件查看代码、插入模块、粘贴VBA代码、运行宏、选择显示标题和拆分条件等，最终完成工作表的拆分。

博客针对同一文件夹下多个工作簿中两个固定SHEET表打印繁琐的问题，给出解决思路。先将工作簿放同一文件夹，再用dir遍历文件，打开工作簿打印指定工作表后关闭。还给出了两段EXCEL VBA代码来实现该功能。

本文介绍了使用VBA代码提取Excel工作表名称的方法，包括将同一工作薄内所有工作表名称提取到指定工作表的指定位置、新建工作表内，以及提取同一文件夹、不同工作薄内的所有工作表名称，并给出了相应的代码示例。

本文详细介绍了如何在ExcelVBA中引用和操作工作表，包括通过名称、索引、代码名以及活动工作表，添加新工作表，防止工作表名称更改，判断工作簿中是否存在指定工作簿，以及处理工作簿的保存、复制、关闭等操作。

2,506

社区成员

10,830

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章