将数据从外部工作表复制到另一个

Question

我一直在尝试做这件事，但我做不到。我通常会搜索更多等，但我对 VBA（仅 C++ 和 Java）不太熟悉。

我有一个 Excel 文件（工作簿），其中包含多个包含数据的工作表（源）。我有另一个 Excel 文件，其中再次包含多个仅包含标题（目标）的工作表。

我想要做的是一个代码，它进入目标工作簿并获取标题，然后进入源工作簿并循环遍历所有工作表，直到找到该标题，然后将数据复制到目标工作簿中。

请记住，源文件中的所有标题在所有工作表中都位于同一行。

Answer 1

这段代码应该可以解决你的问题；

Sub Read_External_Workbook()

    '''''Define Object for Target Workbook
    Dim Target_Workbook As Workbook
    Dim Source_Workbook As Workbook
    Dim Target_Path As String

    '''''Assign the Workbook File Name along with its Path
    '''''Change path of the Target File name
    Target_Path = "D:\Sample.xlsx"
    Set Target_Workbook = Workbooks.Open(Target_Path)
    Set Source_Workbook = ThisWorkbook

    '''''With Target_Workbook object now, it is possible to pull any data from it
    '''''Read Data from Target File - Assuming that your headers's locations are absolute.
    Target_Data = Target_Workbook.Sheets(1).Cells(1, 1)
    Source_Workbook.Sheets(1).Cells(1, 1) = Target_Data

    '''''Update Target File - 
    Source_data = Source_Workbook.Sheets(1).Cells(3, 1)
    Target_Workbook.Sheets(1).Cells(2, 1) = Source_data

    '''''Close Target Workbook
    Source_Workbook.Save
    Target_Workbook.Save
    Target_Workbook.Close False

    '''''Process Completed
    MsgBox "Task Completed"

End Sub