Question

我的工作簿“摘要”每天都会更改其名称，因为它以日期结尾（即摘要7.2.xlsb）。我正在尝试打开文件中的最后一个工作簿，并且该代码已经起作用；但是，由于- 1不再适用，因此我不确定如何处理周末。如果您需要我更具体一些，请告诉我。

Answer 1

您只需要一个Date计数器就可以减少直到星期一至星期五。

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

VBA如何解释更改的文件名

1 个答案: