對象定義的錯誤-復制范圍直到信息的最后一行

Question

我正在嘗試打開一個工作簿，然后選擇並復制從A7到L7的范圍，直到信息的最后一行（向下）。 我認為該變量未正確定義。 有什么幫助嗎？

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


Set DT = Workbooks.Open("C:\Users\ricardo\Desktop\Data 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:\Users\ricardo\Desktop\Data 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