尝试将数据从已关闭的工作簿复制到当前工作簿

Question

子测试（）     Dim Target_Workbook As Workbook     Dim Source_Workbook As Workbook     Dim Target_Path As String     Target_Path =＆＃34; Sample.xlsx＆＃34;     设置Target_Workbook = Workbooks.Open（Target_Path）     设置Source_Workbook = ThisWorkbook     Source_data = Source_Workbook.Sheets（1）.Range（＆＃34; A1：Y74＆＃34;）。复制     Target_Workbook.Sheets（1）.Range（＆＃34; A1＆＃34）激活。     Source_Workbook.Save     Target_Workbook.Save     Target_Workbook.Close False     MsgBox＆＃34;任务已完成＆＃34; 结束子

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 =＆＃34; TwoSheet_Compare V2.0.xlsm＆＃34;和 SourceWorkbook =＆＃34; sourceFile.xlsx＆＃34;