は、現在のワークブック

Question

サブテスト（） 暗いTarget_Workbookブックとして 暗いSource_Workbookブックとして 暗いTARGET_PATHストリング TARGET_PATH =「Sample.xlsx」 セットTarget_Workbook = Workbooks.Openとして（に閉じたブックからデータをコピーしようとTARGET_PATH） 設定Source_Workbook =はThisWorkbook Source_data = Source_Workbook.Sheets（1）.Range（ "A1：Y74"。。）コピー Target_Workbook.Sheets（1）.Range（ "A1"） Source_Workbook.Save Target_Workbookをアクティブにします。保存 Target_Workbook.Close False MsgBox "タスクが完了しました" 、コードの下にサブ

Answer 1

使用を終了し、あなたのソースとターゲットを取り込むファイル名を得意とし、例えばTargetWorkbook = "TwoSheet_Compare V2.0.xlsm" と SourceWorkbook = "sourceFile.xlsx"

Sub CopyWorkbook(Sourceworkbook, TargetWorkbook) 
Dim sh As Worksheet, wb As Workbook, wbSource As Workbook 
Dim SourcefileName As String 

SourcefileName = Sourceworkbook 

Set wbSource = Workbooks.Open(Sourceworkbook) 
Set wb = Workbooks(TargetWorkbook) 
For Each sh In Workbooks(SourcefileName).Worksheets 
    sh.Copy After:=wb.Sheets(wb.Sheets.count) 
Next sh 

wbSource.Close 

End Sub 

このコードを呼び出します