将多个工作簿组合到excel 2013中的一个主工作簿

Question

下面列出的代码可用于将多个工作簿sheet1（特定单元格范围）组合到主工作表。但我面临的一个问题是粘贴特殊选项无法正常工作

例如：我的单元格包含背景颜色指示，如每个单元格中的琥珀色，绿色和字体颜色不同。我将输出显示为纯文本而不是富文本。如果我尝试使用Pastespecial修改代码，它将无效。

有人可以帮我解决这个问题吗？

Sub LoopThroughDirectory()      
Dim MyFile As String       
Dim erow       
Dim Filepath As String       
Filepath = "Paste your path    
MyFile = Dir(Filepath)   
Do While Len(MyFile) > 0
If MyFile = "zmaster.xlsm" Then  
End If

Workbooks.Open (Filepath & MyFile)
Range("A2:G2").Copy
ActiveWorkbook.Close

erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range(Cells(erow, 1), Cells(erow, 7))

MyFile = Dir
Loop
End Sub