如何將多個工作簿中的特殊內容粘貼到主工作簿

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

關鍵是當您不引用ActiveSheet時，您需要使用工作表和可能的工作簿對象限定所有Range()和Cells()方法

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