在一个主工作簿中复制多个工作簿时，使用在Excelmacros中粘贴特殊function

我正在尝试使用macros将多个工作簿复制到一个集成的工作簿中。 我能做到; 但是我没有find一种方法来使用特殊的粘贴来源工作表的格式完整。 我真的很感激，如果有人可以请帮助/指导

这里是代码：

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