フォルダ内の複数のブックのデータを1つのブックに貼り付けます。特別な値を貼り付けます。

Question

フォルダ内の複数のブックのすべてのシートを別のブックにコピーします。私はコードの下にあるが、不要な書式を避けるために特別な値だけを貼り付ける方法を知らない。

Sub GetSheets() 

Path = "C:\Users\mechee69\Download\" 
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 

Answer 1

以下のコードを試してみて、あなたがしたい場合、それはPasteSpecialだけValues、あなたもFormatsをコピーするために拡張することができます。

Option Explicit 

Sub GetSheets() 

Dim Path As String, Filename As String 
Dim WB As Workbook 
Dim Sht As Worksheet, ShtDest As Worksheet 

Path = "C:\Users\mechee69\Download\" 
Filename = Dir(Path & "*.xls*") 

Application.ScreenUpdating = False 
Application.DisplayAlerts = False 

Do While Filename <> "" 
    Set WB = Workbooks.Open(Filename:=Path & Filename, ReadOnly:=True) 
    For Each Sht In WB.Sheets 
     Set ShtDest = ThisWorkbook.Sheets.Add(After:=Sheets(1)) 
     Sht.Cells.Copy 
     ShtDest.Name = Sht.Name '<-- might raise an error in case there are 2 sheets with the same name 
     ShtDest.Cells.PasteSpecial xlValues 
    Next Sht 
    WB.Close 
    Filename = Dir() 
Loop 

Application.ScreenUpdating = True 
Application.DisplayAlerts = True 

End Sub