День добрый! Есть такой вот код для сохранения листа, но сохраняет только один лист, в данном случае 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]
День добрый! Есть такой вот код для сохранения листа, но сохраняет только один лист, в данном случае 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
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]
Сам разобрался, может кому понадобится:
[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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
