VBA, как учитывать имя файла, который изменяется

Question

Моя рабочая книга «Сводка» меняет свое название ежедневно, так как она заканчивается датой (т. Е. Сводная информация 7.2.xlsb). Я пытаюсь открыть последнюю книгу в файле, и код сработал; однако я не уверен, как учитывать выходные дни, поскольку - 1 больше не применяется. Если вы хотите, чтобы я был более конкретным, пожалуйста, дайте мне знать.

Answer 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