Как считать листы другой рабочей книги

Question

Я пытаюсь написать функцию для подсчета листа другой рабочей книги. Но, ниже кода, отладка в wb.Sheets.Count вызывает ошибку. Пожалуйста, помогите мне вернуть счет листа другой рабочей книги (в ссылке wb).

Function GetSheetCount(XlsFileName As String) As Integer
    'Application.ScreenUpdating = False

    Dim wb As Workbook

    'Dim ws As Worksheet
    'Dim i As Integer
    'i = 0

    Set wb = Workbooks.Open(XlsFileName)

    'For Each ws In wb.Sheets
       'i = i + 1
    'Next ws

    GetSheetCount = wb.Sheets.Count'i

    'wb.Close False
    'Application.ScreenUpdating = True
End Function

Answer 1

Код в основном работает в соответствии с сокращенным примером ниже. Можете ли вы указать ошибку, чтобы лучше устранить проблему?

код

Результат