对象定义错误 - 复制范围直到最后一行信息

Question

>我正在尝试打开一个工作簿，然后选择并复制从A7到L7的范围，直到最后一行信息(向下(。我认为变量定义不正确。有什么帮助吗？

Sub Subtotals()
Dim DT As Workbook
Dim lRowDT As Integer

Set DT = Workbooks.Open("C:UsersricardoDesktopData Fuel.xls")
lRowDT = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Workbooks("Data Fuel.xls").Worksheets("Data").Activate
Worksheets("Data").Range("A7:L" & lRowDT).Copy
End sub

Answer 1

如果没有超过列 L 的数据，那么这段代码是合适的。

Sub Subtotals()
Dim DT As Workbook
Dim lRowDT As Integer
Dim Ws As Worksheet
Dim rngDB As Range, r As Long, c As Long
Set DT = Workbooks.Open("C:UsersricardoDesktopData Fuel.xls")
'lRowDT = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Set Ws = Workbooks("Data Fuel.xls").Worksheets("Data")
With Ws
r = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
c = .Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
Set rngDB = .Range("a7", .Cells(r, "L"))
End With
rngDB.Copy
End Sub