複数のワークブックのスペシャルをマスターブックに貼り付けるには

Question

フォルダ内のすべてのファイルの値をマスターフォルダに貼り付けようとしていますが、貼り付けプロセスでエラーが発生し続けます。これは私のコードです：

Sub LoopThrough() 
Dim MyFile As String 
    Dim erow 
    Dim FilePath As String 
    Dim DestWB As Workbook 
    Dim SourceWB As Workbook 


    Set DestWB = ThisWorkbook 


    FilePath = "C:\data\" 
    MyFile = Dir(FilePath) 


    Do While Len(MyFile) > 0 
    If MyFile = "Master.xlsm" Then 
    Exit Sub 
    End If 


    Set SourceWB = Workbooks.Open(FilePath & MyFile) 
    Workbooks.Open (FilePath & MyFile) 
    Range("A1:L51").Copy 
    DestWB.Range(Cells(erow, 1), Cells(erow, 12)).PasteSpecial xlValues 
    SourceWB.Close False 
    MyFile = Dir 
    Loop 


    End Sub 

助けてもらえますか？

Answer 1

このライン

DestWB.Range(Cells(erow, 1), Cells(erow, 12)).PasteSpecial xlValues 

は

With DestWB.Sheets("Target Sheet") 
    .Range(.Cells(erow, 1), .Cells(erow, 12)).PasteSpecial xlValues 
End With 

として再書き込み可能なポイントは、あなたが持つすべてのRange()とCells()メソッドを修飾する必要があるということです

DestWB.Sheets("Target Sheet").Range(DestWB.Sheets("Target Sheet").Cells(erow, 1), DestWB.Sheets("Target Sheet").Cells(erow, 12)).PasteSpecial xlValues 

であるべきあなたが0を参照していないときにワークシートとワークブックオブジェクト

また、私は"Target Sheet"を使用しましたが、これは貼り付けたいシートの名前に変更する必要があります。