vba - Rows.Count 方法在 Excel VBA 中运行不佳(尽管我指定了获取行数的工作表，但它在错误的工作表中获取行数。)

Question

Sub Example()


On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    Dim src As Workbook

    '//Open The Source Excel Workbook In "Read-Only-Mode"
    Set src = Workbooks.Open(Cells(103, 103).Value, True, True)
    'Set src = Workbooks.Open("E:\Example\Example\Example.xlsx", True, True)

    '//Get The Total Rows From The Source Workbook
    Dim iTotalRows As Long

    iTotalRows = src.Worksheets("Example").Range("B1:B" & Cells(src.Worksheets("Example").Rows.Count, "B").End(xlUp).Row).Rows.Count 
    MsgBox iTotalRows

    Dim iCnt As Long
    Dim 행 As Integer
    .......

上面是我的代码。

我显然在下面的代码中指定了工作表的名称。

iTotalRows = src.Worksheets("Example").Range("B1:B" & Cells(src.Worksheets("Example").Rows.Count, "B").End(xlUp).Row).Rows.Count

但它返回异常结果。

我想知道的是“示例”工作表的行。

通常它会很好地返回“示例”工作表的行。

因为“示例”工作表是工作簿最后打开的工作表。

当我打开另一个工作表并关闭并保存工作簿时，Excel vba 代码计算该工作表的行数!

我显然指定了工作表的名称，但它似乎没有效果。

如何解决这个问题？

感谢您提前的答复。

Answer 1

单元没有定义的父单元。

iTotalRows = src.Worksheets("Example").Range("B1:B" & src.Worksheets("Example").Cells(src.Worksheets("Example").Rows.Count, "B").End(xlUp).Row).Rows.Count 

由于您从第一行开始(例如 B1)，这可能会更好，

with src.Worksheets("Example")
    iTotalRows = .cells(.rows.count, "B").end(xlup).row
end with
MsgBox iTotalRows