Question

我收到此错误：

错误424：需要对象

在这一行：

ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 1))

在下面的代码中。为什么呢？

    Sub LoopThroughDirectory()

    Dim MyFile As String
    Dim erow
    Dim Filepath As String
    Filepath = "C:\Users\Julio Jesus Sanchez\Desktop\MRSK TXT\"
    MyFile = Dir("C:\Users\Julio Jesus Sanchez\Desktop\MRSK TXT\")

    Do While Len(MyFile) > 0
    If MyFile = "MRSK DATABASE.xlsm" Then
    Exit Sub
    End If

    Workbooks.Open (Filepath & MyFile)
    Range("A1:K1").Copy
    ActiveWorkbook.Close

    erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
    ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 1))

    MyFile = Dir

    Loop

    End Sub

Answer 1

您关闭ActiveWorkbook，然后引用ActiveSheet，ActiveSheet是什么意思？如果它是您所引用的主书，那么您应该明确告诉它，通过将其设置为对象，也是MS Access模块或Excel中的VBA？您刚刚将其标记为Database和VBA，我猜Excel是因为您没有对Excel对象的任何引用。

Dim sh as Worksheet

Set sh = Workbooks("NameOfWorkBook.xlsx").WorkSheets("WorksheetName")

然后，只要您参考表格：

sh.Paste Destination:=sh.Range(Cells(erow, 1), Cells(erow, 1))

粘贴给出＆＃34;对象需要＆＃34;错误

1 个答案: