Kopieren von Daten aus einem externen Arbeitsblatt zu einem anderen

Question

Ich habe versucht, diese Sache für eine Weile zu tun, aber ich war nicht in der Lage. Ich würde normalerweise mehr usw. suchen, aber ich bin nicht sehr vertraut mit VBA (nur C++ und Java).

Ich habe eine Excel-Datei (Arbeitsmappe) mit mehreren Blättern, die alle Daten enthalten (Quelle). Ich habe eine andere Excel-Datei, die wieder mehrere Arbeitsblätter enthält, die nur die Überschriften (Target) enthalten.

Was ich tun möchte, ist ein Code, der an die Zielarbeitsmappe geht und die Überschrift übernimmt, geht dann zur Quellarbeitsmappe und durchläuft alle Arbeitsblätter, bis diese Überschrift gefunden wird und kopiert dann die Daten in die Zielarbeitsmappe.

Beachten Sie, dass sich alle Überschriften in der Quelldatei in allen Arbeitsblättern in derselben Zeile befinden.

Answer 1

Dieser Code Ihr Problem lösen sollte;

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