VBA如何说明更改的文件名

我的工作簿“摘要”每天都会更改其名称，因为它以日期结束（即摘要7.2.xlsb）。我试图打开文件中的最后一个工作簿，代码已经运行了；但是，我不确定如何计算周末，因为

-1

不再适用。如果你需要我说得更具体一些，请告诉我。

你只需要一个日期计数器来减少到周一到周五

Sub OpenPreviousWorkdayFile()
    Const filepath = "\\FileShare\work\"
    Dim wb As String
    Dim isum As Workbook
    Dim dWorkDate As Date

    dWorkDate = Date
    Do
        dWorkDate = dWorkDate - 1
    Loop Until Weekday(dWorkDate, vbMonday) < 6 ' Mon=1,Tue=2,etc

    wb = "Summary " & Format(dWorkDate, "m.dd") & ".xlsb"
    Set isum = Workbooks.Open(filepath & wb)
End Sub

Sub-OpenPreviousWorkdayFile（）
Const filepath=“\\FileShare\work\”
将wb设置为字符串
将isum作为工作簿
Dim dWorkDate作为日期
dWorkDate=日期
做
dWorkDate=dWorkDate-1
循环到工作日（dWorkDate，vbMonday）<6'周一=1，周二=2，等等
wb=“Summary”和格式（dWorkDate，“m.dd”）和“.xlsb”
设置isum=Workbooks.Open（filepath&wb）
端接头