Печать страницы - Excel VBA Макросы. Путь сохраненного файла.

Название: Excel VBA Макросы. Путь сохраненного файла.
Отправлено: Посетитель от 26 августа 2021, 14:59

Как в данный макрос дописать путь для сохранения файла?

Application.DisplayAlerts = False
If ActiveWorkbook.FileFormat <> 51 Then
sfn = sfn & "Телефонный справочник " & Format(Date, "DD.MM.YYYY") & ".xlsx"
ActiveWorkbook.SaveAs sp & sfn, 51
End If

У меня задача пересохранять периодически файл xlsm в xlsx с датой c исходным именем в ту же папку, где лежит исходник xlsm.

Название: Re: Excel VBA Макросы. Путь сохраненного файла.
Отправлено: Администратор от 26 августа 2021, 15:02

Application.DisplayAlerts = False
If ActiveWorkbook.FileFormat <> 51 Then
sfn = sfn & "Телефонный справочник " & Format(Date, "DD.MM.YYYY") & ".xlsx"
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sp & sfn, 51
End If

Название: Re: Re: Excel VBA Макросы. Путь сохраненного файла.
Отправлено: Посетитель от 26 августа 2021, 15:12

Спасибо большое!

Форум по VBA и MS Office

VBA, Excel => VBA, макросы в Excel => Тема начата: Посетитель от 26 августа 2021, 14:59