試圖將數據從一個關閉的工作簿複製到當前工作簿

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

使用，填充您的源和目標excel文件名和調用此代碼

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 

如TargetWorkbook = 「TwoSheet_Compare V2.0.xlsm」 和 SourceWorkbook = 「sourceFile.xlsx」