Excel VBA 中方法“Range”失败的原因及解决方法

该代码可能会失败，因为在引用源工作表和目标工作表时，应该使用完整的文件路径，而不是相对路径。另外，如果目标工作表未启用宏，则方法‘Range’也可能会失败。建议使用完整的文件路径，并确保目标工作表启用了宏。

以下示例代码展示了如何使用完整文件路径引用工作表：

Dim sourceSheet As Worksheet
Dim targetSheet As Worksheet
' 引用源工作表
Set sourceSheet = Workbooks("E:\检测设备\力学\VBA测试\保温砂浆同条件试块.xls").Worksheets("Sheet1")
' 引用目标工作表
Set targetSheet = Workbooks("E:\检测设备\力学\VBA测试\取6个数的平均值.xlsm").Worksheets("首页")
Dim lastRow As Long
lastRow = sourceSheet.Range("A" & Rows.Count).End(xlUp).Row
MsgBox lastRow

注意：

• 使用完整文件路径时，请使用双反斜杠 () 作为路径分隔符。
• 确保目标工作表已启用宏。如果目标工作表未启用宏，则方法‘Range’将无法访问工作表中的数据。