外部のワークシートから別のワークシートにデータをコピーする

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