从一个工作簿中的工作表复制数据，然后粘贴到另一工作簿中的特定工作表中

Question

我正在尝试编写一个宏，以打开一个导入文件对话框，让用户选择一个文件，然后将特定工作表中的数据从一个工作簿复制/粘贴到打开的工作簿中的特定工作表中。

这是一个摘要报告，需要来自多个工作簿的其他数据。

我对VBA有点陌生，所以我做得不太对。我可以将文件导入到其他工作表中，但不能导入到特定工作表中。任何帮助，将不胜感激！如果没有宏就可以做到这一点，我也很乐意。谢谢！

这是我当前的代码：

Sub importDataFromAnotherWorkbook()
    ' Get workbook...
    Dim ws As Worksheet
    Dim filter As String
    Dim targetWorkbook As Workbook, wb As Workbook
    Dim Ret As Variant

    Set targetWorkbook = Application.ActiveWorkbook

    ' get the customer workbook
    filter = "Text files (*.xlsx),*.xlsx"
    Caption = "Please Select an input file "
    Ret = Application.GetOpenFilename(filter, , Caption)

    If Ret = False Then Exit Sub

    Set wb = Workbooks.Open(Ret)

    wb.Sheets(1).Move After:=targetWorkbook.Sheets(targetWorkbook.Sheets.Count)

    ActiveSheet.Name = "ImportData" 
End Sub

Answer 1

以下应该起作用：