excel - 将所有工作表从一个(关闭的)工作簿复制到另一个“

Question

我正在尝试将一本书中的所有工作表复制到另一本书

Windows("test.xls").Sheets.Copy Before:=Workbooks(ThisWorkbook).Sheets("00")

错误 - 类型不匹配!
“test.xls”与 ActiveWorkBook 位于同一文件夹中。
特别是 - 有没有办法在不打开“test.xls”的情况下做到这一点？

Answer 1

您可以打开关闭的工作簿(在后台打开比处理关闭的书籍容易得多)，然后将 Test.xls 中的所有工作表复制到另一本书的特定部分(即在工作表 00 之前)一行

代码如下:

• 打开关闭的工作簿c:\temp\Test.xls")
• 复制包含代码的工作簿中工作表 00 之前的所有工作表
• 关闭Test.xls

该代码抑制了 Test.xls 中的任何警报、代码事件和屏幕更新

Sub CopyAll()
Dim Wb1 As Workbook
Dim Wb2 As Workbook
With Application
.ScreenUpdating = False
.EnableEvents = False
.DisplayAlerts = False
End With
Set Wb1 = Workbooks.Open("c:\temp\Test.xls")
Set Wb2 = ThisWorkbook
Wb1.Sheets.Copy Before:=Wb2.Sheets("00")
Wb1.Close False
With Application
.ScreenUpdating = True
.EnableEvents = True
.DisplayAlerts = True
End With
End Sub