如何每周使用不同的文件名更新文件路径

Question

我每周使用两本工作簿。 工作簿 1 是日程安排和其他信息。 练习册 2 是精选内容。 WB2 从 WB1 获取信息，然后关闭 WB1。 我想看看是否有办法使用 VBA 每周更新文件路径和工作簿名称。每个新的 WB1 都会有一个日期，即周日。月.日.年。 WB1 将始终保存为 SCHED MM.DD.YY。 WB2 将始终按 MM.DD.YY 安排取件。

这是我当前使用的脚本。 我想看看是否有一种方法可以将 11.17.24 更改为另一个日期，而不必每周都进行更改。 我主要在 WB2 工作，这个脚本是从那里运行的。

Application.ScreenUpdating = False

Workbooks.Open Filename:= _"C:\Users\jvittur\OneDrive\Desktop\Orginal Schedules\SCHED 11.17.24.xlsm"
Windows("SCHED 11.17.24.xlsm").Activate
Sheets("ROADMAP").Select
Range("A400:AI550").Select
Selection.Copy
Windows("Sched Pickup 11.17.24.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A5").Select
Windows("SCHED 11.17.24.xlsm").Activate
Application.CutCopyMode = False

我在互联网上到处寻找，但没有找到任何东西。

Answer 1

此函数创建周日日期早于或等于今天日期。
测试 Sub 中有一个使用示例。

Function strgen()

dat = Date - Weekday(Now(), 1) + 1
datstring = Month(dat) & "." & Day(dat) & "." & Right(Year(dat), 2)
strgen = datstring & ".xlsm"
End Function

Sub test()


Debug.Print strgen

Workbooks.Open Filename:="C:\Users\jvittur\OneDrive\Desktop\Orginal Schedules\SCHED " & strgen

Windows("SCHED " & strgen).Activate

End Sub