VB中确定Excel工作表的总数

显示全部楼层 · 2008-7-14 15:55:22

Dim ex As Excel.Application

Dim exbook As Excel.Workbook

Dim exsheet As Excel.Worksheet

Dim i As Integer

Dim j As Integer

Dim k As Integer

Set exsheet = ex.Worksheets(1)
'设exsheet为第一个工作表

i = exsheet.UsedRange.Cells.Rows.Count '行总数

j = exsheet.UsedRange.Cells.Columns.Count'列总数

那么工作表的总数如何判断?

k=??????????

千问 · 2008-7-14 15:55:22

ex.Worksheets.Count