文件名每天更改时的 Excel 宏

Question

所有单元格位置保持不变，唯一改变的是文件名中的日期。 我只是从一个 Excel 剪切并粘贴到另一个 Excel。 当文件名每天都改变时，我该如何编写代码以允许其执行所需的功能

    ActiveWindow.SmallScroll Down:=108
    Windows("Standard 15OCT23.csv").Activate
    Range("A2:H17").Select
    Selection.Cut
    Windows("Generic 15OCT23.csv").Activate
    Rows("122:122").Select
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=141

Answer 1

• Date

  返回当前系统日期。

    Dim sDate As String
    sDate = UCase(Format(Date, "ddMMMyy"))
    ActiveWindow.SmallScroll Down:=108
    Windows("Standard " & sDate & ".csv").Activate
    Range("A2:H17").Cut
    Windows("Generic " & sDate & ".csv").Activate
    Rows("122:122").Select
    Selection.Insert Shift:=xlDown
    ActiveWindow.SmallScroll Down:=141