使用数据,Get Data, From file, From Folder,是比较容易的。 将正确的道路(即,PQ也从所有分文件夹中找到)、CSV延伸过滤器、在档案日对电离层进行分类、然后“只靠一流”和扩大数据。 Done。

It s close.. Replace the initial chunk of code (down to Wend) with:

Dim strPath As String
Dim strFile As String
Dim strLatestFile As String
Dim wb As Workbook
Dim ws As Worksheet
Dim strRawPath As String

  Replace with the correct download directory
strRawPath = "C:UsersAlexandreBrandtDownloads"
strPath = strRawPath & "*.csv"
strFile = Dir(strPath, vbNormal)
strLatestFile = strFile

  Find the last CSV file
While Len(strFile) <> 0
    If FileDateTime(strRawPath & strFile) > FileDateTime(strRawPath & strLatestFile) Then
        strLatestFile = strFile
    End If
    strFile = Dir()   Get next file
Wend
strFile = strLatestFile

Import the Latest CSV File

Sub ImportLatestCSVFile()
    
      Define constants.
    
    Const SRC_ROOT_FOLDER_PATH As String = "C:UsersAlexandreBrandtDownloads"
    Const SRC_FILE_PATTERN As String = "*.csv"
    Const DST_SHEET_NAME As String = "Import"
    
    Dim dwb As Workbook: Set dwb = ThisWorkbook   workbook containing this code
    
      Attempt to store the first file name in a variable ( CurrentFileName ).
    
    Dim DirPath As String: DirPath = SRC_ROOT_FOLDER_PATH & SRC_FILE_PATTERN
    
    Dim CurrentFileName As String: CurrentFileName = Dir(DirPath)
    
    If Len(CurrentFileName) = 0 Then
        MsgBox "No files found.", vbCritical
        Exit Sub
    End If
    
      Store the path of the latest file in a variable ( LatestFilePath ).
    
      Declare additional variables used in the loop.
    Dim CurrentFilePath As String, LatestFilePath As String
    Dim CurrentDateTime As Date, LatestDateTime As Date
    
      Loop through all the files applying the logic...
    Do While Len(CurrentFileName) > 0
        CurrentFilePath = SRC_ROOT_FOLDER_PATH & CurrentFileName
        CurrentDateTime = FileDateTime(CurrentFilePath)
        If CurrentDateTime >= LatestDateTime Then   greater than or equal to max
            LatestDateTime = CurrentDateTime
            LatestFilePath = CurrentFilePath
         Else   less than max; do nothing
        End If
        CurrentFileName = Dir   next file
    Loop

      Attempt to delete the destination worksheet ( dws ).
    
    Dim dws As Worksheet
    
    On Error Resume Next
        Set dws = dwb.Sheets(DST_SHEET_NAME)
    On Error GoTo 0
    
    If Not dws Is Nothing Then   the worksheet exists
        Application.DisplayAlerts = False   delete without confirmation
            dws.Delete
        Application.DisplayAlerts = True
     Else   the worksheet doesn t exist; do nothing
    End If

      Continue, e.g.:
    
       Copy the one and only worksheet in the source file ( .csv )
       as the last sheet in the destination workbook.
 
     Dim swb As Workbook: Set swb = Workbooks.Open(LatestFilePath)
     Dim sws As Worksheet: Set sws = swb.Sheets(1)
 
     sws.Copy After:=dwb.Sheets(dwb.Sheets.Count)   copy as last sheet
     swb.Close SaveChanges:=False   close without saving changes
 
       Reference and rename the destination worksheet and save
       the destination workbook.
 
     Set dws = dwb.Sheets(dwb.Sheets.Count)
     dws.Name = DST_SHEET_NAME
      dwb.Save
     
       Inform.
     
     MsgBox "Latest file imported.", vbInformation        

End Sub