VBA：尝试将数据添加到工作表的末尾时出错

Question

我有这段代码：

1. 复制数据（标题行的偏移量）
2. 检查目标工作簿是否已打开，如果它未打开则

3. 转到该工作簿的工作表的末尾并添加复制的数据。

   ActiveWorkbook.ActiveSheet.Range("A1").CurrentRegion.Offset(1, 0).Copy
   
   
   
   
   Dim WbookCheck As Workbook
   
    On Error Resume Next
    Set WbookCheck = Workbooks("PL Template Alpha v2 2-20.xlsb")
    On Error GoTo 0
   
   If WbookCheck Is Nothing Then 'not open....
   
   filepaths = "c:\documents\PL Template Alpha v2 2-20.xlsb"
   
   If Dir(filepaths) = "" Then
       MsgBox "File name does not exist"
   Else
       'file exists - open it
       Set WbookCheck = Workbooks.Open(filepaths)
   End If
   End If
   
   
   Workbooks("PL Template Alpha v2 2-20.xlsb").Sheets("DATA").[a1].End(xlDown).Offset(1, 0).paste
   

但是，我一直在执行时遇到错误（在最后一行） - 我的代码中是否存在问题？

Answer 1

好的，试试这个： 摆脱：doInBackground()

并将其添加到其中：

Workbooks("PL Template Alpha v2 2-20.xlsb").Sheets("DATA").[a1].End(xlDown).Offset(1, 0).paste

您可能需要调整范围和偏移量，以防它没有粘贴到您想要的位置，但它会粘贴给我而没有任何错误。