作者：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