Vba 在一个主工作簿中复制多个工作簿时，请在excel宏中使用“特殊粘贴”

我试图使用宏将多个工作簿复制到一个集成工作簿中。我能做到；然而，我没有找到一种方法来使用paste special保持源工作表的格式不变。如果有人能帮助/指导我，我将不胜感激

代码如下：

Sub GetSheets()
Path = "C:\Users\ssehgal\Documents\Excel-Files-For-Macro\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Sub-GetSheets（）
Path=“C:\Users\ssehgal\Documents\Excel文件For Macro\”
Filename=Dir（路径&“*.xls”）
文件名“”时执行此操作
工作簿。打开文件名：=路径和文件名，只读：=真
对于ActiveWorkbook.Sheets中的每个工作表
Sheet.Copy After:=此工作簿.Sheets（1）
下一页
工作簿（文件名）。关闭
Filename=Dir（）
环
端接头

什么格式丢失了？复制整个工作表通常会保持所有格式不变。@Chipsleten格式（如页眉颜色）是否会更改？例如，它从黄色变为蓝色？听起来您需要从源工作簿以及工作表中复制主题。看看什么格式丢失了？复制整个工作表通常会保持所有格式不变。@Chipsleten格式（如页眉颜色）是否会更改？例如，它从黄色变为蓝色？听起来您需要从源工作簿以及工作表中复制主题。看看