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

Question

我正在尝试使用宏将多个工作簿复制到一个集成的工作簿中。我能够做到;但是我没有找到一种方法来使用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