如何计算另一个工作簿的工作表

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

该代码基本上按照下面的缩写示例工作。您可以指定错误以更好地调试问题吗？

代码

结果