VBA, чтобы проверить, есть ли у Рабочего листа несколько Рабочих листов

Question

Я искал всюду для ответа на этот вопрос, но я не могу найти его. как проверить, есть ли в рабочей книге более 1 листа.

Answer 1

Это то, что в конечном итоге работает лучше для меня. Он включает в себя несколько ответов, чтобы делать то, что он делает.

Sub CountSheets() 
Dim mainWB As Workbook 
Dim mainWS As Worksheet 
Set mainWB = ActiveWorkbook 
Set mainWS = mainWB.Sheets(1) 

If mainWB.Sheets.Count > 1 Then MsgBox "There is more than one worksheet in this Excel file." 
End Sub 

Answer 2

Чтобы получить количество рабочих листов в пределах открытой книги, что-то вроде:

Sub qwerty() 

    MsgBox "the number of worksheets in this workbook is: " & ThisWorkbook.Worksheets.Count 

End Sub 

Это исключит диаграммы и т.д.
Если у вас есть несколько книг открыть, а затем что-то вроде:

MsgBox "the number of worksheets in this workbook is: " & wb.Worksheets.Count 

Куда вы бы указали Setwb.

Answer 3

Чтобы запустить его из Personal.xlsb затем Попробуйте

Public Sub Count_Sheets() 

    Debug.Print "You Have " & Application.Sheets.count & " Sheets " ' Immediate Window 
    MsgBox "You Have " & Application.Sheets.count & " Sheets " 

End Sub 

Или используйте ActiveWorkbook.Sheets.count