VBA中的工作簿工作表上次单元格运行错误

Dears，任何人都可以帮助我为什么停止这个代码与错误消息（运行时错误'9'：下标超出范围）？

代码片段：

CollectFileName = "C:\Users\g\Documents\CAFM\VBS\access.xlsx" Workbooks.Open (CollectFileName) ActiveWindow.Visible = False LastDayRow = Workbooks(CollectFileName).Sheets(1).Range("B" & Rows.Count).End(xlUp).Row 

Answer 1

使用工作簿来指定工作表时，还应该对Rows.Count （以及其他工具，如Cells() , Columns() ， Rows()等）执行相同的操作。

LastDayRow = Workbooks(CollectFileName).Sheets(1).Range("B" & Workbooks(CollectFileName).Sheets(1).Rows.Count).End(xlUp).Row

要么

 CollectFileName = "C:\Users\g\Documents\CAFM\VBS\access.xlsx" Dim wb as Workbook Set wb = Workbooks.Open(CollectFileName) With wb.Sheets(1) lastDayRow = .Range("B" & .Rows.Count).End(xlUp).Row End With