Сохранение активного листа с макросом
gge29
Дата: Вторник, 16.08.2016, 15:41 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация:
3
±
Замечаний:
0% ±
Подскажите как сохранить активный лист в Excel c существующей кнопки(откорректировав макрос),при этом макрос и форма остались на сохранённом файле в (C:\TAB) Подробное описание внутри файла
Подскажите как сохранить активный лист в Excel c существующей кнопки(откорректировав макрос),при этом макрос и форма остались на сохранённом файле в (C:\TAB) Подробное описание внутри файла gge29
Ответить
Сообщение Подскажите как сохранить активный лист в Excel c существующей кнопки(откорректировав макрос),при этом макрос и форма остались на сохранённом файле в (C:\TAB) Подробное описание внутри файла Автор - gge29 Дата добавления - 16.08.2016 в 15:41
sboy
Дата: Вторник, 16.08.2016, 15:48 |
Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
Добрый день. Чтобы сохранилась форма и макрос, вам нужно не лист сохранять, а делать копию всей книги, в формате xlsm
Добрый день. Чтобы сохранилась форма и макрос, вам нужно не лист сохранять, а делать копию всей книги, в формате xlsm sboy
Яндекс: 410016850021169
Сообщение отредактировал sboy - Вторник, 16.08.2016, 16:08
Ответить
Сообщение Добрый день. Чтобы сохранилась форма и макрос, вам нужно не лист сохранять, а делать копию всей книги, в формате xlsm Автор - sboy Дата добавления - 16.08.2016 в 15:48
gge29
Дата: Вторник, 16.08.2016, 15:55 |
Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация:
3
±
Замечаний:
0% ±
вам нужно не лист сохранять, а делать копию всей книги, в формате xlsm
В книге 40 листов и весит 1 мб,может быть есть какой другой вариант с листом
вам нужно не лист сохранять, а делать копию всей книги, в формате xlsm
В книге 40 листов и весит 1 мб,может быть есть какой другой вариант с листомgge29
Сообщение отредактировал gge29 - Вторник, 16.08.2016, 15:57
Ответить
Сообщение вам нужно не лист сохранять, а делать копию всей книги, в формате xlsm
В книге 40 листов и весит 1 мб,может быть есть какой другой вариант с листомАвтор - gge29 Дата добавления - 16.08.2016 в 15:55
devilkurs
Дата: Вторник, 16.08.2016, 15:58 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 167
Репутация:
43
±
Замечаний:
0% ±
Excel 2007, 2010
Сделать копию книги и удалить остальные листы. Это проще будет чем копировать один лист в новый файл, а потом еще и модули и формы копировать
Сделать копию книги и удалить остальные листы. Это проще будет чем копировать один лист в новый файл, а потом еще и модули и формы копировать devilkurs
Ответить
Сообщение Сделать копию книги и удалить остальные листы. Это проще будет чем копировать один лист в новый файл, а потом еще и модули и формы копировать Автор - devilkurs Дата добавления - 16.08.2016 в 15:58
sboy
Дата: Вторник, 16.08.2016, 16:07 |
Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация:
724
±
Замечаний:
0% ±
Excel 2010
если вариант с расширением файла не помогает, то можно удалить не нужные листы из копии книги.
если вариант с расширением файла не помогает, то можно удалить не нужные листы из копии книги.sboy
Яндекс: 410016850021169
Ответить
Сообщение если вариант с расширением файла не помогает, то можно удалить не нужные листы из копии книги.Автор - sboy Дата добавления - 16.08.2016 в 16:07
gge29
Дата: Вторник, 16.08.2016, 16:07 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация:
3
±
Замечаний:
0% ±
Как-то можно так [vba]Код
With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = [E1] & " " & [F1] & " - " & [G1] If .Show = 0 Then Exit Sub fn0_ = .SelectedItems(1) fn1_ = Mid(fn0_, 1, InStrRev(fn0_, ".") - 1) SaveAs...дальше сами по справке для SaveAs посмотрите
[/vba] Но дальше не мог разобраться как.Этот код подсказал Boroda(Александр)
Как-то можно так [vba]Код
With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = [E1] & " " & [F1] & " - " & [G1] If .Show = 0 Then Exit Sub fn0_ = .SelectedItems(1) fn1_ = Mid(fn0_, 1, InStrRev(fn0_, ".") - 1) SaveAs...дальше сами по справке для SaveAs посмотрите
[/vba] Но дальше не мог разобраться как.Этот код подсказал Boroda(Александр) gge29
Сообщение отредактировал gge29 - Вторник, 16.08.2016, 16:08
Ответить
Сообщение Как-то можно так [vba]Код
With Application.FileDialog(msoFileDialogSaveAs) .InitialFileName = [E1] & " " & [F1] & " - " & [G1] If .Show = 0 Then Exit Sub fn0_ = .SelectedItems(1) fn1_ = Mid(fn0_, 1, InStrRev(fn0_, ".") - 1) SaveAs...дальше сами по справке для SaveAs посмотрите
[/vba] Но дальше не мог разобраться как.Этот код подсказал Boroda(Александр) Автор - gge29 Дата добавления - 16.08.2016 в 16:07
Kamikadze_N
Дата: Вторник, 16.08.2016, 16:26 |
Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация:
6
±
Замечаний:
0% ±
Excel 2010
Реально а вариант с удалением то чем вам не катит? если сохраняемый лист идентичен? [vba]Код
Dim k& ReDim arr(k) For i = 1 To Sheets.Count Step 1 If Sheets(i).Name <> "Название Нужного Нам Листа" Then ReDim Preserve arr(k) arr(k) = Sheets(i).Name k = k + 1 End If Next Sheets(arr).Select 'удаляем все активные листы ActiveWindow.SelectedSheets.Delete
[/vba]
Реально а вариант с удалением то чем вам не катит? если сохраняемый лист идентичен? [vba]Код
Dim k& ReDim arr(k) For i = 1 To Sheets.Count Step 1 If Sheets(i).Name <> "Название Нужного Нам Листа" Then ReDim Preserve arr(k) arr(k) = Sheets(i).Name k = k + 1 End If Next Sheets(arr).Select 'удаляем все активные листы ActiveWindow.SelectedSheets.Delete
[/vba] Kamikadze_N
Сообщение отредактировал Kamikadze_N - Вторник, 16.08.2016, 16:27
Ответить
Сообщение Реально а вариант с удалением то чем вам не катит? если сохраняемый лист идентичен? [vba]Код
Dim k& ReDim arr(k) For i = 1 To Sheets.Count Step 1 If Sheets(i).Name <> "Название Нужного Нам Листа" Then ReDim Preserve arr(k) arr(k) = Sheets(i).Name k = k + 1 End If Next Sheets(arr).Select 'удаляем все активные листы ActiveWindow.SelectedSheets.Delete
[/vba] Автор - Kamikadze_N Дата добавления - 16.08.2016 в 16:26
gge29
Дата: Вторник, 16.08.2016, 21:27 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация:
3
±
Замечаний:
0% ±
а вариант с удалением то чем вам не катит?
Вариант с удалением не катит,так как: 1.Заполняется основная книга которая находится на удалённом сервере 2.После заполнения своими данными сохраняется в отдельный файл,а связи остаются А если сохранить в отдельную книгу и удалить лишние листы пропадают и связи.А сохранённый необходимо еще доделывать каждому пользователю под себя и сохранить потом в pdf,осталось только добиться сохранения формы и макроса с активным листом
а вариант с удалением то чем вам не катит?
Вариант с удалением не катит,так как: 1.Заполняется основная книга которая находится на удалённом сервере 2.После заполнения своими данными сохраняется в отдельный файл,а связи остаются А если сохранить в отдельную книгу и удалить лишние листы пропадают и связи.А сохранённый необходимо еще доделывать каждому пользователю под себя и сохранить потом в pdf,осталось только добиться сохранения формы и макроса с активным листомgge29
Ответить
Сообщение а вариант с удалением то чем вам не катит?
Вариант с удалением не катит,так как: 1.Заполняется основная книга которая находится на удалённом сервере 2.После заполнения своими данными сохраняется в отдельный файл,а связи остаются А если сохранить в отдельную книгу и удалить лишние листы пропадают и связи.А сохранённый необходимо еще доделывать каждому пользователю под себя и сохранить потом в pdf,осталось только добиться сохранения формы и макроса с активным листомАвтор - gge29 Дата добавления - 16.08.2016 в 21:27
Kamikadze_N
Дата: Среда, 17.08.2016, 07:55 |
Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 75
Репутация:
6
±
Замечаний:
0% ±
Excel 2010
gge29, Цитата
1.Заполняется основная книга которая находится на удалённом сервере
Вообще то основная книга редактируется, в ней удаляются листы, и после удаления нужный вам лист сохраняется в отдельный файл с внесенными изменениями, т.е. сохраняется отдельно только активный лист (то что вам и нужно). А все то, что вы вносили в исходный файл (где все листы хранятся) останется на сервере без изменений. И о каких связях простите идет речь?
gge29, Цитата
1.Заполняется основная книга которая находится на удалённом сервере
Вообще то основная книга редактируется, в ней удаляются листы, и после удаления нужный вам лист сохраняется в отдельный файл с внесенными изменениями, т.е. сохраняется отдельно только активный лист (то что вам и нужно). А все то, что вы вносили в исходный файл (где все листы хранятся) останется на сервере без изменений. И о каких связях простите идет речь? Kamikadze_N
Ответить
Сообщение gge29, Цитата
1.Заполняется основная книга которая находится на удалённом сервере
Вообще то основная книга редактируется, в ней удаляются листы, и после удаления нужный вам лист сохраняется в отдельный файл с внесенными изменениями, т.е. сохраняется отдельно только активный лист (то что вам и нужно). А все то, что вы вносили в исходный файл (где все листы хранятся) останется на сервере без изменений. И о каких связях простите идет речь? Автор - Kamikadze_N Дата добавления - 17.08.2016 в 07:55
Manyasha
Дата: Среда, 17.08.2016, 12:27 |
Сообщение № 10
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
898
±
Замечаний:
0% ±
Excel 2010, 2016
gge29 , проверяйте. Код копирования модуля/формы взяла тут
gge29 , проверяйте. Код копирования модуля/формы взяла тут Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение gge29 , проверяйте. Код копирования модуля/формы взяла тут Автор - Manyasha Дата добавления - 17.08.2016 в 12:27
gge29
Дата: Четверг, 18.08.2016, 02:37 |
Сообщение № 11
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация:
3
±
Замечаний:
0% ±
Марина спасибо Вам огромнейшее,буду тестировать
Марина спасибо Вам огромнейшее,буду тестироватьgge29
Ответить
Сообщение Марина спасибо Вам огромнейшее,буду тестироватьАвтор - gge29 Дата добавления - 18.08.2016 в 02:37
gge29
Дата: Четверг, 18.08.2016, 16:31 |
Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация:
3
±
Замечаний:
0% ±
Не могу понять что случилось с кодом сохранения в PDF выдаётRunTime Error '5' Invalid procedure call or argument
Не могу понять что случилось с кодом сохранения в PDF выдаётRunTime Error '5' Invalid procedure call or argument gge29
Сообщение отредактировал gge29 - Четверг, 18.08.2016, 16:42
Ответить
Сообщение Не могу понять что случилось с кодом сохранения в PDF выдаётRunTime Error '5' Invalid procedure call or argument Автор - gge29 Дата добавления - 18.08.2016 в 16:31
Manyasha
Дата: Четверг, 18.08.2016, 16:44 |
Сообщение № 13
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
898
±
Замечаний:
0% ±
Excel 2010, 2016
gge29 , я его не трогала... В макросе у Вас ActiveSheet.Range("E2").Value должно отвечать за имя файла, а в файле в Е2 пусто.
gge29 , я его не трогала... В макросе у Вас ActiveSheet.Range("E2").Value должно отвечать за имя файла, а в файле в Е2 пусто.Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение gge29 , я его не трогала... В макросе у Вас ActiveSheet.Range("E2").Value должно отвечать за имя файла, а в файле в Е2 пусто.Автор - Manyasha Дата добавления - 18.08.2016 в 16:44
gge29
Дата: Четверг, 18.08.2016, 16:55 |
Сообщение № 14
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 244
Репутация:
3
±
Замечаний:
0% ±
меняю на D2 или F2 не меняется(((
меняю на D2 или F2 не меняется(((gge29
Ответить
Сообщение меняю на D2 или F2 не меняется(((Автор - gge29 Дата добавления - 18.08.2016 в 16:55
Manyasha
Дата: Четверг, 18.08.2016, 17:04 |
Сообщение № 15
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация:
898
±
Замечаний:
0% ±
Excel 2010, 2016
gge29 , создайте новую тему с этим вопросом. Я не знаю, почему не работает, у меня все норм.
gge29 , создайте новую тему с этим вопросом. Я не знаю, почему не работает, у меня все норм.Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение gge29 , создайте новую тему с этим вопросом. Я не знаю, почему не работает, у меня все норм.Автор - Manyasha Дата добавления - 18.08.2016 в 17:04