当前位置:网站首页>VBA实战(11) - 工作表(Sheet) 操作汇总
VBA实战(11) - 工作表(Sheet) 操作汇总
2022-08-09 10:28:00 【jie_ming514】
Sheet 操作汇总
一、读取所有的 Sheet 页
下面案例为读取所有的 Sheet 页,检查是否有“模切绩效工资汇总表” Sheet 页。
' 打开数据源
Set originalWb = Workbooks.Open(originalFileStr)
Set oSheets = originalWb.Worksheets()
hasSheet = False
For i = 1 To oSheets.Count
If "汇总表" = oSheets(i).Name Then
hasSheet = True
End If
Next
If hasSheet = False Then
MsgBox (originalFileStr & "文件中没有找到名为'汇总表'的Sheet页,请检查选择的文件夹是否正确!")
Range("D2").Select
Exit Sub
End If
二、获取 一个 Sheet 页中有效的行数和列数
读取有效的行数
v_row_count = targetSh.UsedRange.Rows.Count
v_col_count = targetSh.UsedRange.Columns.Count
三、添加 Sheet 页
' 在Sheet页最后添加一个新的Sheet页
originalWb.Sheets.Add after:=Sheets(originalWb.Worksheets().Count)
originalWb.Sheets(originalWb.Worksheets().Count).Name = "核对"
' 在第一个之前添加一个新的Sheet页
targetWb.Sheets.Add before:=Sheets(1)
targetWb.Sheets(1).Name = "汇总报表"
targetWb.Sheets(1).Tab.ColorIndex = 3
targetWb.Sheets(1).Select
四、删除 Sheet 页
originalSh.Delete
五、设置 Sheet 页的背景色
targetWb.Sheets(1).Tab.ColorIndex = 3
六、分级
Selection.ClearOutline
七、判断 Sheet 表格是否被隐藏
For Each sh in Sheets
if sh.Visible = False then
end if
next
其他链接
边栏推荐
- [相机配置] 海康相机丢包配置环境
- 学习NET-SNMP之一 ---------编译NET-SNMP程序。
- OpenGL ES2.0编程三部曲(转载自MyArrow)
- 3D打印了这个杜邦线理线神器,从此桌面再也不乱了
- Electron application development best practices
- unix环境编程 第十五章 15.9 共享存储
- 面试官:MySQL 中 update 更新,数据与原数据相同时会执行吗?大部分人答不上来!
- 借问变量何处存,牧童笑称用指针,Go lang1.18入门精炼教程,由白丁入鸿儒,go lang类型指针(Pointer)的使用EP05
- 1005 继续(3n+1)猜想 (25 分)
- cannot import name ‘load_offloaded_weights‘ from ‘accelerate.utils‘ (/home/huhao/anaconda3/envs/huha
猜你喜欢
随机推荐
Loop nesting and basic operations on lists
分类预测 | MATLAB实现CNN-GRU(卷积门控循环单元)多特征分类预测
[贴装专题] 贴装流程中涉及到的位置关系计算
技术分享 | 使用 cURL 发送请求
OpengGL绘制立方体的三种方法
史上最小白之《Word2vec》详解
By asking where the variables are stored, the shepherd boy laughed and said to use pointers, Go lang1.18 introductory refining tutorial, from Bai Ding to Hongru, the use of go lang type pointers (Poin
shell脚本实战(第2版)/人民邮电出版社 脚本1 在PATH中查找程序
学长告诉我,大厂MySQL都是通过SSH连接的
tuple dictionary collection
元组 字典 集合
程序员的专属浪漫——用3D Engine 5分钟实现烟花绽放效果
[项目配置] 配置Qt函数库和ui界面库的封装并调用的项目
Restful WebServices 学习笔记
basic operator
RTP
Received your first five-figure salary
认识
在犹豫中度过了老多天,今天的工作时记录
主从postition变化无法锁定_Slave_IO_Running显示No_Slave_Sql_Running显示No---Mysql主从复制同步002