Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Ветеран


Сообщения: 27449
Благодарности: 8088

Профиль | Отправить PM | Цитировать


Цитата Strinteijer:
А что этот цикл делает? »
Удаляет все листы (пустые) из только что созданной Рабочей книги за исключением только что вставленного.

Цитата Strinteijer:
и да я помню как то можно делать с помощью всплывающего окна, т.е. выбирать куда сохранить и как обозвать »
Там прямо в справке приведён пример (правда, кривой):
Код: Выделить весь код
Set NewBook = Workbooks.Add
Do
    fName = Application.GetSaveAsFilename
Loop Until fName <> False
NewBook.SaveAs Filename:=fName

Отправлено: 17:11, 20-09-2016 | #16