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

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

不知道发生了什么事

感谢您的帮助：）

---

谢谢大家!

算出了！！我已在文件夹选项中启用了“显示文件扩展名”选项。我需要在工作簿名称中添加扩展名。以下修改有效

使用工作簿（“SampleBook.xlsm”）.Sheets（“SampleSheet”） LastRow=.Cells（.Rows.Count，“A”）.End（xlUp）.Row

---

以结束

是否更改工作簿或工作表的名称？是否重命名工作簿或工作表？尝试类似于，

Dim wb as workbook Dim ws as Worksheet wb=Workbooks（“SampleBook”）Set ws=wb.Sheets（“SampleSheet”）

的操作，看看它是否可以运行。几天前，在为工作簿集合中的工作簿命名时，网络中的一台计算机是否需要.xlsx扩展名？看来这就是答案。

Dim LastRow As Long

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