vb 隐藏sheet 数量

是要查EXCEL的隐藏sheet数量么？
Dim xlapp As New Excel.Application
Dim xlbook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Dim i As Integer

xlapp.Visible = False
Set xlbook = xlapp.Workbooks.Open("d:\book1.xls")
i = 0
For Each xlsheet In xlapp.ActiveWorkbook.Worksheets
If xlsheet.Visible = xlSheetHidden Then i = i + 1
Next

Debug.Print i

xlapp.Quit
Set xlapp = Nothing