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

Вход

Регистрация

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

 

= Мир MS Excel/Сохранение листов книги в другой файл - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение листов книги в другой файл (Макросы/Sub)
Сохранение листов книги в другой файл
Aero16 Дата: Понедельник, 05.03.2018, 15:38 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
День добрый! Есть такой вот код для сохранения листа, но сохраняет только один лист, в данном случае 1-й, подскажите как сделать чтоб можно было сохранять не один а допустим два или больше выбранных листов?? именно не выделением этих листов а чтоб заранее прописать, допустим 1-й и 2-й или по названиям

[vba]
Код
Sub saves()
way = Sheets("Лист1").Range("B2").Value
Dim FileN$
FileN = "" & way & "\ лист1 .xlsx"
ThisWorkbook.Sheets(1).Copy
ActiveWorkbook.SaveCopyAs FileN
ActiveWorkbook.Close SaveChanges:=False
MsgBox "Лист сохранен"
End Sub
[/vba]


Сообщение отредактировал Pelena - Вторник, 06.03.2018, 17:00
 
Ответить
СообщениеДень добрый! Есть такой вот код для сохранения листа, но сохраняет только один лист, в данном случае 1-й, подскажите как сделать чтоб можно было сохранять не один а допустим два или больше выбранных листов?? именно не выделением этих листов а чтоб заранее прописать, допустим 1-й и 2-й или по названиям

[vba]
Код
Sub saves()
way = Sheets("Лист1").Range("B2").Value
Dim FileN$
FileN = "" & way & "\ лист1 .xlsx"
ThisWorkbook.Sheets(1).Copy
ActiveWorkbook.SaveCopyAs FileN
ActiveWorkbook.Close SaveChanges:=False
MsgBox "Лист сохранен"
End Sub
[/vba]

Автор - Aero16
Дата добавления - 05.03.2018 в 15:38
китин Дата: Понедельник, 05.03.2018, 15:45 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение Как оформлять сообщения?

Автор - китин
Дата добавления - 05.03.2018 в 15:45
Aero16 Дата: Вторник, 06.03.2018, 16:17 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Сам разобрался, может кому понадобится:

[vba]
Код
Sub savesheets()  
Dim lists As Window
Dim filen$
way = Sheets("list1").Range("B2").Value
filen = "" & way & "\list.xlsx"
Sheets(Array(1, 2)).Select
Set lists = ActiveWindow
lists.SelectedSheets.Copy
ActiveWorkbook.SaveCopyAs filen
ActiveWorkbook.Close SaveChanges:=False
Enв sub
[/vba]


Сообщение отредактировал Aero16 - Вторник, 06.03.2018, 16:24
 
Ответить
СообщениеСам разобрался, может кому понадобится:

[vba]
Код
Sub savesheets()  
Dim lists As Window
Dim filen$
way = Sheets("list1").Range("B2").Value
filen = "" & way & "\list.xlsx"
Sheets(Array(1, 2)).Select
Set lists = ActiveWindow
lists.SelectedSheets.Copy
ActiveWorkbook.SaveCopyAs filen
ActiveWorkbook.Close SaveChanges:=False
Enв sub
[/vba]

Автор - Aero16
Дата добавления - 06.03.2018 в 16:17
Pelena Дата: Вторник, 06.03.2018, 16:23 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Aero16, оформите код тегами с помощью кнопки # в режиме правки поста


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеAero16, оформите код тегами с помощью кнопки # в режиме правки поста

Автор - Pelena
Дата добавления - 06.03.2018 в 16:23
Aero16 Дата: Вторник, 06.03.2018, 16:26 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Aero16, оформите код тегами с помощью кнопки # в режиме правки поста

ок, уже понял
 
Ответить
Сообщение
Aero16, оформите код тегами с помощью кнопки # в режиме правки поста

ок, уже понял

Автор - Aero16
Дата добавления - 06.03.2018 в 16:26
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сохранение листов книги в другой файл (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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