сохранить в pdf присвоить имя - текущая дата

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

сохранить в pdf присвоить имя - текущая дата (Макросы/Sub)

micholap_denis

Дата: Четверг, 04.08.2022, 13:30 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Есть макрос, сохраняет в папке "На печать" сводную таблицу "КРЕДИТОРЫ" в pdf, при последующем сохранении заменяет файл.
как подпилить макрос что бы: сохранял сводную таблицу в pdf но имя присваивал сегодняшней даты 04.01.02022г. и при повторном сохранении сохранялся второй файл с добавлением к дате (2) типа 04.08.2022г.(2) , (3), (4) и тд
[vba]

Код

Sub ПечатьКредиторов()
ActiveSheet.PivotTables("КРЕДИТОРЫ").TableRange1.Select
    Dim FolderPath As String, piv As PivotTable
    FolderPath = ThisWorkbook.Path & "\На печать"
    On Error Resume Next
    MkDir FolderPath
    On Error GoTo 0
    With ActiveSheet
        Set piv = .PivotTables("КРЕДИТОРЫ")
.PageSetup.PrintArea = Selection.Address
.PageSetup.Zoom = False
.PageSetup.FitToPagesWide = 1
.PageSetup.FitToPagesTall = False
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=FolderPath & "\КРЕДИТОРЫ", Quality:=xlQualityStandard, _
                            IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
    End With
Dim myPrC, myProg
Set myProg = GetObject("winmgmts:")
Set myPrC = myProg.ExecQuery("SELECT * FROM Win32_Process")
For Each X In myPrC
Debug.Print X.Name
If X.Name = "AcroRd32.exe" Then
    X.Terminate
End If
Next
End Sub

[/vba]