Сохранение книги с определенным именем
rtv206
Дата: Воскресенье, 27.10.2019, 23:06 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Доброго времени суток! Уважаемые форумчане! Прошу помощи в написании макроса Необходимо что бы при нажатии кнопки на Листе Производилось сохранение Книги, название книги ,,Книга1-гггг-мм-дд-чч-мм-сс,, В заданное место: диск Д, папка Share! Благодарю за помощь!)
Доброго времени суток! Уважаемые форумчане! Прошу помощи в написании макроса Необходимо что бы при нажатии кнопки на Листе Производилось сохранение Книги, название книги ,,Книга1-гггг-мм-дд-чч-мм-сс,, В заданное место: диск Д, папка Share! Благодарю за помощь!) rtv206
Ответить
Сообщение Доброго времени суток! Уважаемые форумчане! Прошу помощи в написании макроса Необходимо что бы при нажатии кнопки на Листе Производилось сохранение Книги, название книги ,,Книга1-гггг-мм-дд-чч-мм-сс,, В заданное место: диск Д, папка Share! Благодарю за помощь!) Автор - rtv206 Дата добавления - 27.10.2019 в 23:06
krosav4ig
Дата: Воскресенье, 27.10.2019, 23:41 |
Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2347
Репутация:
997
±
Замечаний:
0% ±
Excel 2007,2010,2013
email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460
Ответить
rtv206
Дата: Вторник, 29.10.2019, 00:01 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 131
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
krosav4ig , я в макросах не силен( По этому и прошу помощи)
krosav4ig , я в макросах не силен( По этому и прошу помощи)rtv206
Ответить
Сообщение krosav4ig , я в макросах не силен( По этому и прошу помощи)Автор - rtv206 Дата добавления - 29.10.2019 в 00:01
mgt
Дата: Понедельник, 04.11.2019, 09:55 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 102
Репутация:
26
±
Замечаний:
0% ±
Excel 2010
[vba]Код
ActiveWorkbook.SaveAs Filename:="D:\Share\" & Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm"
[/vba]
[vba]Код
ActiveWorkbook.SaveAs Filename:="D:\Share\" & Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm"
[/vba] mgt
Сообщение отредактировал mgt - Понедельник, 04.11.2019, 10:05
Ответить
Сообщение [vba]Код
ActiveWorkbook.SaveAs Filename:="D:\Share\" & Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm"
[/vba] Автор - mgt Дата добавления - 04.11.2019 в 09:55
InExSu
Дата: Понедельник, 04.11.2019, 15:12 |
Сообщение № 5
Группа: Друзья
Ранг: Ветеран
Сообщений: 648
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
Привет!
[vba]
Код
Option Explicit Sub REName_() ActiveWorkbook.SaveCopyAs Filename:="D:\Share!\" & _ Имя_без_Расширения(ActiveWorkbook.Name) & _ "-" & _ Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm" End Sub Function Имя_без_Расширения(str As String) _ As String Имя_без_Расширения = CreateObject("Scripting.FileSystemObject"). _ GetBaseName(str) End Function
[/vba]
Привет!
[vba]
Код
Option Explicit Sub REName_() ActiveWorkbook.SaveCopyAs Filename:="D:\Share!\" & _ Имя_без_Расширения(ActiveWorkbook.Name) & _ "-" & _ Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm" End Sub Function Имя_без_Расширения(str As String) _ As String Имя_без_Расширения = CreateObject("Scripting.FileSystemObject"). _ GetBaseName(str) End Function
[/vba]
InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Ответить
Сообщение Привет!
[vba]
Код
Option Explicit Sub REName_() ActiveWorkbook.SaveCopyAs Filename:="D:\Share!\" & _ Имя_без_Расширения(ActiveWorkbook.Name) & _ "-" & _ Format(Now, "Yyyy-mm-dd-Hh-Nn-Ss") & ".xlsm" End Sub Function Имя_без_Расширения(str As String) _ As String Имя_без_Расширения = CreateObject("Scripting.FileSystemObject"). _ GetBaseName(str) End Function
[/vba]
Автор - InExSu Дата добавления - 04.11.2019 в 15:12