Excel VBA 文件名更改

Question

我必须使用 2 个 Excel 工作簿:Book1october 和 Book2。 Book1october18 是一个导入文件，这意味着它每月都会更改，并且名称也会更改(下个月将是 Book1november18)。我必须通过 VBA 代码自动将一些数据从 Book1october 复制到 Book2。

这是我编写的代码:

Windows("Book1october18").Activate
Sheets("Sheet1").Activate
Range("B2:AQ5").Select
Selection.Copy
Windows("Book2").Activate
Sheets("Sheet1").Activate
Range("R2:BG5").Select
ActiveSheet.Paste

我的问题是，我不知道如何编写代码，以便在月份名称和年份更改时执行我想要的操作。 (我必须在所有月份和 2019 年都做到这一点)

Answer 1

您可以使用 Date() 函数和 Format() 自动更新工作簿名称

Dim sWbName As String
sWbName = "Book1" & LCase(Format(Date, "mmmmyy"))

Debug.Print sWbName
'Prints Book1october18