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

RSS

Jiki Jok

Пользователь

Сообщений: 2 Регистрация: 26.08.2021

26.08.2021 15:02:44

Добрый день.
Подскажите, пожалуйста, как в данный макрос дописать путь для сохранения фала?:

Код

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.

Изменено: vikttur - 26.08.2021 16:40:44

Hugo Пользователь Сообщений: 23795 Регистрация: 22.12.2012	#2 26.08.2021 15:04:55 Так он ведь уже прописан, в sp.

Mershik Пользователь Сообщений: 8277 Регистрация: 03.12.2015	#3 26.08.2021 15:07:39 Jiki Jok, ThisWorkbook.Path Не бойтесь совершенства. Вам его не достичь.

Hugo Пользователь Сообщений: 23795 Регистрация: 22.12.2012	#4 26.08.2021 15:08:14 И слэш не забыть.

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

26.08.2021 15:09:15

Hugo,
дополним:

Код
Путь=ThisWorkbook.Path & "\"

Изменено: Mershik - 26.08.2021 15:09:23

Не бойтесь совершенства. Вам его не достичь.

Jiki Jok Пользователь Сообщений: 2 Регистрация: 26.08.2021	#6 26.08.2021 16:42:58 Всем огромное спасибо

Jack Famous Пользователь Сообщений: 12039 Регистрация: 07.11.2014 OS: Win 10 Корп. x64 \| Excel 2016 x64: \| Browser: Chrome	#7 26.08.2021 16:46:21 Jiki Jok, здравствуйте Вот большая тема и гуглите Макрос автосохранения Excel, если хотите ещё найти Изменено: Jack Famous - 26.08.2021 16:46:55 Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄