作者: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
时间: 2024-10-16 09:43:31