获取工作簿工作表数量问题

xzh_yzcn · 发表于 2020-3-5 09:05

我在获取工作簿工作表数量存在疑惑，明明工作簿中仅有4个工作表（且无隐藏工作表），而vba获取的工作表数量却为5个，有1个工作表名称为results,工作簿中看不到此表，请老师们帮看一下指导一下，谢谢！！！

Sub 获取工作表数量()
shtcount = ActiveWorkbook.Sheets.Count
Debug.Print "工作簿内工作表总数量为 " & shtcount & "个"
For i = 1 To Sheets.Count
Debug.Print "第" & i & "表表名是 " & Sheets(i).Name
Next
End Sub

工作簿内工作表总数量为 5个
第1表表名是 pyGVqAc
第2表表名是 Q1
第3表表名是 Q2
第4表表名是 Q3
第5表表名是 Q4

获取我作表个数.zip (23.06 KB, 下载次数: 1)

网海遨游 · 发表于 2020-3-5 09:13

你是不是中了宏病毒了?我下载打开时,杀毒软报病毒.
有一个隐藏的工作表.
以下附件,删除了那个隐藏表,不知你还会中招不?

xzh_yzcn · 发表于 2020-3-5 09:56

谢谢，老师，宏病毒真可误

xzh_yzcn · 发表于 2020-3-5 13:19

老师，那个隐藏工作表，如何才能查看到，如何删除它，谢谢

xzh_yzcn · 发表于 2020-3-5 13:21

我用360宏病毒查杀工具，花了很长时间，未查杀到，是什么原因

网海遨游 · 发表于 2020-3-5 13:41

xzh_yzcn 发表于 2020-3-5 13:19
老师，那个隐藏工作表，如何才能查看到，如何删除它，谢谢

我给你的附件，已经把那个隐藏表删除了。
对于只是一般的隐藏，鼠标对着工作表名点击右键，显示隐藏工作表。

xzh_yzcn · 发表于 2020-3-5 13:50

For Each s In Sheets
s.Visible = -1
Next
我已用以上代码删除了莫名的工作名，但工作表是如何产生的呢

		自动登录	找回密码
密码			免费注册

[求助] 获取工作簿工作表数量问题

评分

最新热点 /1