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]
Здравствуйте! Есть следующий код: [vba]Код
Sheets(Array("Entrance", "User rights")).Select Sheets(Array("Entrance", "User rights")).Copy
[/vba] Вроде как это копирует два листа в новую книгу. Подскажите пожалуйста, как мне сохранить получившийся файл в ту же папку, где лежит файл с выполняемым макросом? При учете того, что файл может лежать где угодно, т.е. конечный путь к файлу не известен. Желательно присвоить файлу имя, взятое из ячейки на листе "Entrance". Заранее спасибо! [moder]Оформляйте код тегами (кнопка #). Поправила.[/moder] Red_Sloth
Сообщение отредактировал 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]
Red_Sloth , так можно [vba]Код
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("Entrance").[a1] & ".xlsx"
[/vba]Manyasha
ЯД: 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
Ответить
Сообщение 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
Ответить
Сообщение 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 не должна быть пустой и не должна содержать символы :, \, /, *,? и т.д.
Red_Sloth , Вы хотели присвоить файлу имя, взятое из ячейки на листе "Entrance"
ну я и присвоила (значение ячейки А1). У меня не выплывает, а Вашего файла я не вижу! А1 не должна быть пустой и не должна содержать символы :, \, /, *,? и т.д.Manyasha
ЯД: 410013299366744 WM: R193491431804
Ответить
Сообщение Red_Sloth , Вы хотели присвоить файлу имя, взятое из ячейки на листе "Entrance"
ну я и присвоила (значение ячейки А1). У меня не выплывает, а Вашего файла я не вижу! А1 не должна быть пустой и не должна содержать символы :, \, /, *,? и т.д.Автор - Manyasha Дата добавления - 08.02.2016 в 13:55