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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение книги с порядковым номером и заголовком - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение книги с порядковым номером и заголовком (Макросы/Sub)
Сохранение книги с порядковым номером и заголовком
gge29 Дата: Среда, 09.12.2015, 21:10 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 3 ±
Замечаний: 0% ±

Подскажите пожалуйста как исправить данный макрос на сохранение книги целиком,есть вот такой но он сохраняет только лист
[vba]
Код
Sub Save_book()
10 With Application.FileDialog(msoFileDialogSaveAs)
20 .InitialFileName = [A1] & " - " & [B2] & " - " & [C3] & ".xlsm"
30 If .Show = 0 Then Exit Sub
40 ThisWorkbook.ActiveSheet.Copy         ' Сохранение активного листа,а необходимо книгу
50 Application.DisplayAlerts = False
60 .Execute
70 Application.DisplayAlerts = True
80 End With
90 ActiveWorkbook.Close False
MsgBox "Книга скопирована в (Базу данных) и сохранена!", , ""
End Sub
[/vba]


Сообщение отредактировал gge29 - Среда, 09.12.2015, 21:11
 
Ответить
СообщениеПодскажите пожалуйста как исправить данный макрос на сохранение книги целиком,есть вот такой но он сохраняет только лист
[vba]
Код
Sub Save_book()
10 With Application.FileDialog(msoFileDialogSaveAs)
20 .InitialFileName = [A1] & " - " & [B2] & " - " & [C3] & ".xlsm"
30 If .Show = 0 Then Exit Sub
40 ThisWorkbook.ActiveSheet.Copy         ' Сохранение активного листа,а необходимо книгу
50 Application.DisplayAlerts = False
60 .Execute
70 Application.DisplayAlerts = True
80 End With
90 ActiveWorkbook.Close False
MsgBox "Книга скопирована в (Базу данных) и сохранена!", , ""
End Sub
[/vba]
Автор - gge29
Дата добавления - 09.12.2015 в 21:10
RAN Дата: Среда, 09.12.2015, 21:24 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата gge29, 09.12.2015 в 21:10, в сообщении № 1
' Сохранение активного листа,а необходимо книгу

Это не сохранение активного листа, а копирование его в новую книгу с дальнейшим сохранением последней.
Сохраняйте книгу без копирования листа.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата gge29, 09.12.2015 в 21:10, в сообщении № 1
' Сохранение активного листа,а необходимо книгу

Это не сохранение активного листа, а копирование его в новую книгу с дальнейшим сохранением последней.
Сохраняйте книгу без копирования листа.
Автор - RAN
Дата добавления - 09.12.2015 в 21:24
gge29 Дата: Среда, 09.12.2015, 21:33 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 3 ±
Замечаний: 0% ±

Цитата RAN, 09.12.2015 в 21:24, в сообщении № 2
Это не сохранение активного листа, а копирование его в новую книгу с дальнейшим сохранением последней.
Сохраняйте книгу без копирования листа.

Как это сделать?Проще сказать есть шаблон,его надо заполнить,И сохранить с новыми данными например(556-Иванов-Акт).Потом нажать очистить эти ячейки в шаблоне и заполнить 557-Сидоров-Акт)
 
Ответить
Сообщение
Цитата RAN, 09.12.2015 в 21:24, в сообщении № 2
Это не сохранение активного листа, а копирование его в новую книгу с дальнейшим сохранением последней.
Сохраняйте книгу без копирования листа.

Как это сделать?Проще сказать есть шаблон,его надо заполнить,И сохранить с новыми данными например(556-Иванов-Акт).Потом нажать очистить эти ячейки в шаблоне и заполнить 557-Сидоров-Акт)
Автор - gge29
Дата добавления - 09.12.2015 в 21:33
gge29 Дата: Среда, 09.12.2015, 21:35 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 3 ±
Замечаний: 0% ±

Получается необходимо 2 кнопки"сохранить книгу"(в этой книге 5 листов с данными и 2 "очистить"ячейки
 
Ответить
СообщениеПолучается необходимо 2 кнопки"сохранить книгу"(в этой книге 5 листов с данными и 2 "очистить"ячейки
Автор - gge29
Дата добавления - 09.12.2015 в 21:35
RAN Дата: Среда, 09.12.2015, 21:56 | Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Ниченепонимаю! :D
Удалите строку 40, и всех делов.
Ну и строку с MsgBox до кучи, чтобы не мельтешила.
На кой ляд что-либо чистить, если вы сохраняете в новый файл?

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 09.12.2015, 21:58
 
Ответить
СообщениеНиченепонимаю! :D
Удалите строку 40, и всех делов.
Ну и строку с MsgBox до кучи, чтобы не мельтешила.
На кой ляд что-либо чистить, если вы сохраняете в новый файл?
Автор - RAN
Дата добавления - 09.12.2015 в 21:56
gge29 Дата: Среда, 09.12.2015, 22:04 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 3 ±
Замечаний: 0% ±

Цитата RAN, 09.12.2015 в 21:56, в сообщении № 5
Удалите строку 40, и всех делов.

Если удалить эту строку то будет сохранять всю книгу шаблон?И у Вас есть какой на чистку шаблона например чтобы чистил 1 кнопкой A1;B2;С2 и диапазон ячеек например D4:D8,весь форум перерыл есть чистка разная но с 1 условием


Сообщение отредактировал gge29 - Среда, 09.12.2015, 22:05
 
Ответить
Сообщение
Цитата RAN, 09.12.2015 в 21:56, в сообщении № 5
Удалите строку 40, и всех делов.

Если удалить эту строку то будет сохранять всю книгу шаблон?И у Вас есть какой на чистку шаблона например чтобы чистил 1 кнопкой A1;B2;С2 и диапазон ячеек например D4:D8,весь форум перерыл есть чистка разная но с 1 условием
Автор - gge29
Дата добавления - 09.12.2015 в 22:04
Wasilich Дата: Среда, 09.12.2015, 22:06 | Сообщение № 7
Группа: Друзья
Ранг: Старожил
Сообщений: 1232
Репутация: 326 ±
Замечаний: 0% ±

2003
Цитата gge29, 09.12.2015 в 21:10, в сообщении № 1
макрос на сохранение книги целиком

[vba]
Код
Sub сохранить()
   ActiveWorkbook.Save
End Sub
[/vba]
 
Ответить
Сообщение
Цитата gge29, 09.12.2015 в 21:10, в сообщении № 1
макрос на сохранение книги целиком

[vba]
Код
Sub сохранить()
   ActiveWorkbook.Save
End Sub
[/vba]
Автор - Wasilich
Дата добавления - 09.12.2015 в 22:06
RAN Дата: Среда, 09.12.2015, 22:14 | Сообщение № 8
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата gge29, 09.12.2015 в 21:10, в сообщении № 1
Подскажите пожалуйста как исправить данный макрос на сохранение книги целиком

[vba]
Код
Application.FileDialog(msoFileDialogSaveAs)
[/vba]
сохраняет книгу целиком.
На вопрос ответили?
А всяких разных "я хочу" и "я думал" можно придумать очень много.
Поэтому, сначала подумайте, определитесь, потом спрашивайте
А применение
[vba]
Код
40 ThisWorkbook.ActiveSheet.Copy
[/vba]
внутри диалога является интересным фортелем.
+ его автору.

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 09.12.2015, 22:17
 
Ответить
Сообщение
Цитата gge29, 09.12.2015 в 21:10, в сообщении № 1
Подскажите пожалуйста как исправить данный макрос на сохранение книги целиком

[vba]
Код
Application.FileDialog(msoFileDialogSaveAs)
[/vba]
сохраняет книгу целиком.
На вопрос ответили?
А всяких разных "я хочу" и "я думал" можно придумать очень много.
Поэтому, сначала подумайте, определитесь, потом спрашивайте
А применение
[vba]
Код
40 ThisWorkbook.ActiveSheet.Copy
[/vba]
внутри диалога является интересным фортелем.
+ его автору.
Автор - RAN
Дата добавления - 09.12.2015 в 22:14
gge29 Дата: Среда, 09.12.2015, 22:33 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация: 3 ±
Замечаний: 0% ±

Цитата RAN, 09.12.2015 в 22:14, в сообщении № 8
сохраняет книгу целиком.
На вопрос ответили?

Всё понял,спасибо!!!
Цитата gge29, 09.12.2015 в 22:04, в сообщении № 6
У Вас есть какой на чистку шаблона например чтобы чистил 1 кнопкой A1;B2;С2 и диапазон ячеек например D4:D8,весь форум перерыл есть чистка разная но с 1 условием
 
Ответить
Сообщение
Цитата RAN, 09.12.2015 в 22:14, в сообщении № 8
сохраняет книгу целиком.
На вопрос ответили?

Всё понял,спасибо!!!
Цитата gge29, 09.12.2015 в 22:04, в сообщении № 6
У Вас есть какой на чистку шаблона например чтобы чистил 1 кнопкой A1;B2;С2 и диапазон ячеек например D4:D8,весь форум перерыл есть чистка разная но с 1 условием
Автор - gge29
Дата добавления - 09.12.2015 в 22:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение книги с порядковым номером и заголовком (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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