VBA-如何将文件夹中上次修改的文件中的数据粘贴到其他工作簿？

这个项目需要工作，但我无法获得数据。我以前将工作表从一个报表复制到另一个报表，但我需要将多个工作簿中的信息转储到同一个工作表中

以下是到目前为止我得到的信息：

Sub GetMostRecentFile()

Dim FileSys As FileSystemObject
Dim objFile As File
Dim myFolder
Dim strFilename As String
Dim dteFile As Date
 Dim SDrv   As String
Dim DDrv   As String
Dim Sfname As String
Dim Dfname As String
Dim wkbSrc As Workbook
Dim wkbDst As Workbook

Const myDir As String = "INSERT SOURCE FOLDER HERE"


Set FileSys = New FileSystemObject
Set myFolder = FileSys.GetFolder(myDir)



dteFile = DateSerial(1900, 1, 1)
For Each objFile In myFolder.Files
    If objFile.DateLastModified > dteFile Then
        dteFile = objFile.DateLastModified
        strFilename = objFile.Name
    End If
Next objFile

Set FileSys = Nothing
Set myFolder = Nothing


SDrv = myDir
Sfname = strFilename

DDrv = "INSERT TARGET DIRECTORY HERE"
Dfname = "MainReport.xlsm"

Set wkbSrc = Workbooks.Open(SDrv & Sfname)
Set wkbDst = ThisWorkbook

Application.DisplayAlerts = False

下一行给出了应用程序定义的错误或对象定义的错误

wkbSrc.Worksheets(1).UsedRange.Copy After:=wkbDst.Worksheets(1).Range("A1").Value

wkbSrc.Close

End Sub

用于复制图纸，而不是范围。消除它，看看会发生什么。或消除范围：

wkbSrc.Worksheets(1).Copy After:=wkbDst.Worksheets(1)

wkbSrc.Worksheets(1).Copy After:=wkbDst.Worksheets(1)