不能使用Cell（）。复制从一个工作簿复制到另一个工作簿？

Question

我正在尝试编写一些由命令按钮控制的vba代码，以打开文件夹中的所有Excel文件，并将每个文件中的选择数据复制到主文件中。

我有文件搜索部分，我认为这将是最困难的部分。但由于某种原因，Cell（）。副本无法正常运行。 （以下代码）

Private Sub Hot_Press_Update_Click()


'This file cannot be placed in the folder it is searching through
Dim wbk As Workbook
Dim Filename As String
Dim Path As String
Path = "C:\test\"
Filename = Dir(Path & "*.xls*")
thiswbk = ActiveWorkbook.Name
x = 0

    Do While Len(Filename) > 0
    Set wbk = Workbooks.Open(Path & Filename)

        Windows(wbk.Name).Activate
            wbk.Sheets(1).Select  '''''this works in source workbook
            Cells(54, 10).Copy   '''this copies from master workbook
                Windows(thiswbk).Activate ''everything else
                    Sheets(3).Select 'works perfectly
                        Cells(3 + x, 5).Select
                        Selection.PasteSpecial Paste:=xlPasteValues

        x = x + 1



    wbk.Close True
    Filename = Dir
Loop

End Sub

副本当前正在从主文件而不是源文件中复制单元格，而源文件前面的代码选择正确工作簿中的工作表。

我已经让朋友试过这个代码了，它实际上适合他。我从中提取数据的文件有一个短宏来填充带有日期的单元格。我不确定这与它有什么关系，但它是我的床单和朋友床单之间的唯一区别。

任何输入都将受到赞赏