Как указать путь сохранения книги - Microsoft Office Excel

MoHoMaXFR · 20.05.2011, 07:25

Есть кнопка которая перемещает 3 листа в новую книгу , а как сделать чтобы он сразу без вопросов сохранял её в нужную папку не выводя никаких окон том что он сделал? Прошу помочь очень срочно

Sparkman · 20.05.2011, 07:37

Код:

Sub Макрос1()
    Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="C:\9Temp\Книга1.xls", FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

вся соль в Application.DisplayAlerts

MoHoMaXFR · 20.05.2011, 10:03

Спасибо щас попробую
а можешь каждую строчку расписать что делает?

MoHoMaXFR · 25.05.2011, 20:17

А как сделать так чтобы имя изменялось? Потомучто сейчас если нажать сколько угодно раз он будет перезаписывать файл с именем книга1 . а как сделать чтобы он например имя изменял както следующее или место имени дату ставил или значение текст бокса какогото?

R Dmitry · 25.05.2011, 20:29

Цитата:

Сообщение от MoHoMaXFR

А как сделать так чтобы имя изменялось? Потомучто сейчас если нажать сколько угодно раз он будет перезаписывать файл с именем книга1 . а как сделать чтобы он например имя изменял както следующее или место имени дату ставил или значение текст бокса какогото?

Код:

Sub Макрос1()
    Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:="C:\9Temp\" & Format(Now, "dd_mm_yyyy_hh_nn_ss") & ".xls", FileFormat:=xlExcel8 _
        , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    Application.DisplayAlerts = True
End Sub

20.05.2011, 07:25	#1
MoHoMaXFR Пользователь Регистрация: 04.05.2011 Сообщений: 36	Как указать путь сохранения книги Есть кнопка которая перемещает 3 листа в новую книгу , а как сделать чтобы он сразу без вопросов сохранял её в нужную папку не выводя никаких окон том что он сделал? Прошу помочь очень срочно

20.05.2011, 07:37	#2
Sparkman 220400 Форумчанин Регистрация: 21.05.2010 Сообщений: 726	Код: `Sub Макрос1() Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:="C:\9Temp\Книга1.xls", FileFormat:=xlExcel8 _ , Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False Application.DisplayAlerts = True End Sub` вся соль в Application.DisplayAlerts Cерьёзной помощи не ждите - помогаю в перерывах на "перекур". Не существует ничего невозможного для человека, который не собирается ничего делать сам. Не учите человека, если вы не его учитель.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как указать путь к каталогу?	iskurt	Общие вопросы C/C++	0	17.06.2010 18:22
Как указать путь к БД в ручную?	Tvik	БД в Delphi	11	26.03.2010 14:46
Как указать путь к шаблону excel ???	antoni	БД в Delphi	4	04.11.2008 11:22
Проблема с FindFirst, как указать меняющийся путь?	_SacreD_	Общие вопросы Delphi	12	26.12.2007 16:14
Как указать путь компилируемуму exe файлу	shurik_7866	Общие вопросы Delphi	2	18.07.2007 23:24

20.05.2011, 10:03	#3
MoHoMaXFR Пользователь Регистрация: 04.05.2011 Сообщений: 36	Спасибо щас попробую а можешь каждую строчку расписать что делает?

25.05.2011, 20:17	#4
MoHoMaXFR Пользователь Регистрация: 04.05.2011 Сообщений: 36	А как сделать так чтобы имя изменялось? Потомучто сейчас если нажать сколько угодно раз он будет перезаписывать файл с именем книга1 . а как сделать чтобы он например имя изменял както следующее или место имени дату ставил или значение текст бокса какогото?