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

Вход

Регистрация

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

 

= Мир MS Excel/Копирование листов в новую книгу и последующее ее сохранение - Мир MS Excel

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

Excel 2010
Здравствуйте!

Есть следующий код:
[vba]
Код
Sheets(Array("Entrance", "User rights")).Select
Sheets(Array("Entrance", "User rights")).Copy
[/vba]

Вроде как это копирует два листа в новую книгу.

Подскажите пожалуйста, как мне сохранить получившийся файл в ту же папку, где лежит файл с выполняемым макросом? При учете того, что файл может лежать где угодно, т.е. конечный путь к файлу не известен. Желательно присвоить файлу имя, взятое из ячейки на листе "Entrance".

Заранее спасибо!
[moder]Оформляйте код тегами (кнопка #).
Поправила.[/moder]


Сообщение отредактировал Red_Sloth - Понедельник, 08.02.2016, 13:28
 
Ответить
СообщениеЗдравствуйте!

Есть следующий код:
[vba]
Код
Sheets(Array("Entrance", "User rights")).Select
Sheets(Array("Entrance", "User rights")).Copy
[/vba]

Вроде как это копирует два листа в новую книгу.

Подскажите пожалуйста, как мне сохранить получившийся файл в ту же папку, где лежит файл с выполняемым макросом? При учете того, что файл может лежать где угодно, т.е. конечный путь к файлу не известен. Желательно присвоить файлу имя, взятое из ячейки на листе "Entrance".

Заранее спасибо!
[moder]Оформляйте код тегами (кнопка #).
Поправила.[/moder]

Автор - Red_Sloth
Дата добавления - 08.02.2016 в 13:27
Manyasha Дата: Понедельник, 08.02.2016, 13:38 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Red_Sloth, так можно
[vba]
Код
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("Entrance").[a1] & ".xlsx"
[/vba]


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеRed_Sloth, так можно
[vba]
Код
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("Entrance").[a1] & ".xlsx"
[/vba]

Автор - Manyasha
Дата добавления - 08.02.2016 в 13:38
Red_Sloth Дата: Понедельник, 08.02.2016, 13:42 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Manyasha,
а что означает часть кода [vba]
Код
Sheets("Entrance").[a1]
[/vba]
 
Ответить
СообщениеManyasha,
а что означает часть кода [vba]
Код
Sheets("Entrance").[a1]
[/vba]

Автор - Red_Sloth
Дата добавления - 08.02.2016 в 13:42
Red_Sloth Дата: Понедельник, 08.02.2016, 13:48 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 37
Репутация: 1 ±
Замечаний: 0% ±

Excel 2010
Manyasha,
в результате выполнения выплывает ошибка "Method SaveAs of object _workbook failed"
 
Ответить
СообщениеManyasha,
в результате выполнения выплывает ошибка "Method SaveAs of object _workbook failed"

Автор - Red_Sloth
Дата добавления - 08.02.2016 в 13:48
Manyasha Дата: Понедельник, 08.02.2016, 13:55 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2198
Репутация: 898 ±
Замечаний: 0% ±

Excel 2010, 2016
Red_Sloth, Вы хотели
присвоить файлу имя, взятое из ячейки на листе "Entrance"

ну я и присвоила (значение ячейки А1).
выплывает ошибка

У меня не выплывает, а Вашего файла я не вижу!
А1 не должна быть пустой и не должна содержать символы :, \, /, *,? и т.д.


ЯД: 410013299366744 WM: R193491431804
 
Ответить
СообщениеRed_Sloth, Вы хотели
присвоить файлу имя, взятое из ячейки на листе "Entrance"

ну я и присвоила (значение ячейки А1).
выплывает ошибка

У меня не выплывает, а Вашего файла я не вижу!
А1 не должна быть пустой и не должна содержать символы :, \, /, *,? и т.д.

Автор - Manyasha
Дата добавления - 08.02.2016 в 13:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование листов в новую книгу и последующее ее сохранение (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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