如何將特殊從多個工作簿粘貼到主工作簿

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 

應該

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

可以重新寫爲

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

的一點是，你需要有資格與所有Range()和Cells()方法一個工作表和可能的工作簿對象，當你不指向0時

另請注意，我已使用"Target Sheet"，但應將其更改爲您實際要粘貼到的工作表的名稱。