VBA错误-下标超出范围-运行时错误9

Question

Dim LastRow As Long

With Workbooks("SampleBook").Sheets("SampleSheet")
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

我已经运行此代码一个多月了。 我没有问题。 突然，在过去的两天里，它使下标超出了范围-运行时错误（9）。

不知道发生了什么！

感谢您的帮助:)

谢谢！

Answer 1

弄清楚了！！ 我已在文件夹选项中启用了显示文件扩展名选项。 我需要将扩展​​名添加到我的工作簿名称中。 以下修改有效

使用Workbooks（“ SampleBook.xlsm”）。Sheets（“ SampleSheet”）LastRow = .Cells（.Rows.Count，“ A”）。End（xlUp）.Row End With