【VBA研究】统计Excel 工作表数量

最新推荐文章于 2024-06-24 08:40:14 发布

宋哥

最新推荐文章于 2024-06-24 08:40:14 发布

阅读量1w

点赞数 1

分类专栏： VBA_Excel 文章标签： excel vba 编程

本文链接：https://blog.csdn.net/iamlaosong/article/details/43950175

版权

VBA_Excel 专栏收录该内容

120 篇文章 72 订阅

订阅专栏

作者：iamlaosong

VBA编程中如果对每一个工作表循环处理，就需要知道工作表的数量，常见的方法如下：

1、当前工作簿中工作表数量

num = ThisWorkbook.Sheets.Count

这当前工作簿就是VBA程序所在的工作簿，那么其它工作簿中工作表的数量如何统计呢？

2、活动工作簿中工作表数量

Windows(datfile).Activate

num = ActiveWorkbook.Sheets.Count

3、知道文件名的工作簿中工作表数量

    datfile = Cells(1, 5)
    datFullName = ThisWorkbook.Path & "\" & datfile
    If Dir(datFullName, vbNormal) <> vbNullString Then
        Workbooks.Open Filename:=datFullName        '打开订单文件
    Else
        MsgBox datfile & "不存在！", vbOKOnly, "iamlaosong"
        Exit Sub
    End If
    num = Workbooks(datfile).Sheets.Count