使用VBA宏从另一个Excel文件复制数据

Question

我想打开一个工作簿，并从打开的工作簿表复制到我的工作簿表，如下所示：

Private Sub Workbook_Open()
    Dim openedFile As String
    Dim sourcebook As Workbook
    openedFile = Application.GetOpenFilename(fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") 'Source book opening

    Set sourcebook = Workbooks.Open(openedFile)

    Application.CutCopyMode = True
    sourcebook.Worksheets("source_sheet").Range("A1:L100").Copy
    ThisWorkbook.Worksheets("dest_sgheet").Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    Call sourcebook.Close(False)
End Sub

我运行以下代码后收到以下错误消息：

运行时错误'1004”：Range类的PasteSpecial方法失败

这条线是黑色的：

ThisWorkbook.Worksheets("dest_sheet").Range("A1").PasteSpecial Paste:=xlPasteValues

Answer 1

尝试先激活工作簿（“此工作簿”），然后再激活要粘贴数据的工作表。 由于范围不可见或不存在，因此容易发生错误。

Answer 2

您的代码应该可以工作。 更改此行：

ThisWorkbook.Worksheets("dest_sgheet").Range("A1").PasteSpecial Paste:=xlPasteValues

与此：

 ThisWorkbook.Worksheets("dest_sheet").Range("A1").PasteSpecial Paste:=xlPasteValues

编辑基于2016年5月25日的OP注释，我在纠正了表拼写中的轻微错字错误后，根据OP代码重新运行了该程序。 程序成功运行，没有任何问题。 我没有收到运行时错误1004。屏幕快照显示数据正在正确复制。