Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » сохранить в pdf присвоить имя - текущая дата (Макросы/Sub)
сохранить в pdf присвоить имя - текущая дата
micholap_denis Дата: Четверг, 04.08.2022, 13:30 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 298
Репутация: 0 ±
Замечаний: 40% ±

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]
 
Ответить
СообщениеЕсть макрос, сохраняет в папке "На печать" сводную таблицу "КРЕДИТОРЫ" в 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]

Автор - micholap_denis
Дата добавления - 04.08.2022 в 13:30
Nic70y Дата: Четверг, 04.08.2022, 13:43 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 7646
Репутация: 1827 ±
Замечаний: 0% ±

Excel 2010
попробуйте так[vba]
Код
"\КРЕДИТОРЫ " & Format(Now, "dd.mm.yyyy hhmmss")
[/vba]Ап Дэйт
я бы лучше так делал (делаю) "yyyy.mm.dd hhmmss" - так лучше для отображения в папке (сортировка по имени)


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 04.08.2022, 13:56
 
Ответить
Сообщениепопробуйте так[vba]
Код
"\КРЕДИТОРЫ " & Format(Now, "dd.mm.yyyy hhmmss")
[/vba]Ап Дэйт
я бы лучше так делал (делаю) "yyyy.mm.dd hhmmss" - так лучше для отображения в папке (сортировка по имени)

Автор - Nic70y
Дата добавления - 04.08.2022 в 13:43
Serge_007 Дата: Четверг, 04.08.2022, 14:08 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 15298
Репутация: 2518 ±
Замечаний: ±

Excel 2016
Я тоже так именую файлы :)

К сообщению приложен файл: 4917241.png(6.3 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЯ тоже так именую файлы :)


Автор - Serge_007
Дата добавления - 04.08.2022 в 14:08
micholap_denis Дата: Четверг, 04.08.2022, 14:38 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 298
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Nic70y, спасибо!
 
Ответить
СообщениеNic70y, спасибо!

Автор - micholap_denis
Дата добавления - 04.08.2022 в 14:38
Мир MS Excel » Вопросы и решения » Вопросы по VBA » сохранить в pdf присвоить имя - текущая дата (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!