如何在excel上根据日期导入文件

Question

请帮助我，因为我是vba和excel宏的新手。非常感谢你。 我需要获取文件的编码并使其每天运行，因此过程更容易。

我需要的代码要求的照片

这是我到目前为止所做的，但代码不起作用

Option Explicit

Sub test2()
    'DECLARE AND SET VARIABLES
    Dim wbk As Workbook
    Dim Filename As String
    Dim Path As String
    Dim date5 As String


    date5 = Sheets("Main").Range("C3")
    Path = "D:\Users\451269\Desktop\MUREX compare\\"
    Filename = Dir(Path & "*.csv")
    '--------------------------------------------
    'OPEN EXCEL FILES
    Do While Len(Filename) > 0  'IF NEXT FILE EXISTS THEN
    Set wbk = Workbooks.Open(Path & Filename)
    Cells.Select
    Selection.Copy
    wbk.Close True
    Range("A1").Select
    Sheet("FXSM").Select
    ActiveSheet.Paste
    Filename = Dir

    Loop
End Sub

Answer 1

第一个建议是在wbk.Close True之后移动代码行ActiveSheet.Paste。