Сохранить лист в отдельный файл. (VBA)

Дата: Среда, 07.09.2016, 11:14 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Доброго дня!
Помогите дополнить макрос, взятый из соседней ветки.
Каким образом внести изменения, что бы:
1) В сохраняемом файл удалялись первый 5 столбцов.
2) Можно было при сохранении изменить имя файла.

К сообщению приложен файл: 7023102.xls (49.5 Kb)

Дата: Среда, 07.09.2016, 11:34 | Сообщение № 2

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

AVI, здравствуйте.
По первому пункту:
[vba]

Код

Sheets(Sh.Name).Columns("a:e").Delete

[/vba]
по второму, если имя листа известно, можно его записать в ячейку листа, например в А1
[vba]

Код

newName = Sheets(Sh.Name).Cells(1, 1)
'...
ActiveWorkbook.SaveAs iPath & newName '& ".xls"

[/vba]

К сообщению приложен файл: 7023102-1.xls (53.5 Kb)

ЯД: 410013299366744 WM: R193491431804

Дата: Среда, 07.09.2016, 11:59 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Цитата Manyasha, 07.09.2016 в 11:34, в сообщении № 2

по второму, если имя листа известно, можно его записать в ячейку листа, например в А1

А если мне нужно присвоить любое имя?

Дата: Среда, 07.09.2016, 12:32 | Сообщение № 4

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

AVI, на примере макроса Лист_в_файл

К сообщению приложен файл: 7023102-2.xls (48.5 Kb)

ЯД: 410013299366744 WM: R193491431804

Дата: Среда, 07.09.2016, 12:34 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Manyasha, Вы - огонь. Спасибо

Дата: Четверг, 08.09.2016, 09:52 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Помогите, пожалуйста, еще:
Я так понимаю, что Sheets(List).Buttons.Delete удаляет кнопки, но не удается флажочек из элементов управления и форм. Что добавить в макрос, что бы флажок тоже удалялся?

Дата: Четверг, 08.09.2016, 10:10 | Сообщение № 7

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

AVI, раскомментируйте строчку
[vba]

Код

Sheets(List).DrawingObjects.Delete 'Удаляем все элементы

[/vba]

ЯД: 410013299366744 WM: R193491431804

Дата: Четверг, 08.09.2016, 10:12 | Сообщение № 8

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Manyasha, Спасибо. Не заметил

Дата: Четверг, 08.09.2016, 11:47 | Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

При выполнении макроса выходит ошибка.

К сообщению приложен файл: 2766488.png (8.5 Kb)

Дата: Четверг, 08.09.2016, 12:21 | Сообщение № 10

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Цитата Manyasha, 07.09.2016 в 11:34, в сообщении № 2

по второму, если имя листа известно, можно его записать в ячейку листа, например в А1
newName = Sheets(Sh.Name).Cells(1, 1)
'...
ActiveWorkbook.SaveAs iPath & newName '& ".xls"
К сообщению приложен файл: 7023102-1.xls(54Kb)

В этом Вашем сообщении не работает автоматичская подстановка имени файла из ячейки а1. Не могли бы Вы подрпавить, пожалуйста.

Сообщение отредактировал AVI - Четверг, 08.09.2016, 12:21

Дата: Четверг, 08.09.2016, 12:27 | Сообщение № 11

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

Цитата AVI, 08.09.2016 в 11:47, в сообщении № 9

При выполнении макроса выходит ошибка.

странно... Запустила макрос раз 10, ошибки нет. Потом открыла другой файл, закрыла его и запустила этот же макрос - ошибка.
Пока не разобралась почему...

Цитата AVI, 08.09.2016 в 12:21, в сообщении № 10

не работает автоматичская подстановка имени файла из ячейки а1

в том файле открывается диалог выбора папки, имя файла указывать уже не нужно. Попробуйте, все равно не работает?

ЯД: 410013299366744 WM: R193491431804

Дата: Четверг, 08.09.2016, 12:31 | Сообщение № 12

Группа: Проверенные

Ранг: Ветеран

Сообщений: 523

Репутация: 17 ±

Замечаний: 0% ±

Excel 2016

Manyasha, Запускаю макрос и он предлагает выбрать папку. Автоматически имя не подставляет. а мне бы хотелось, бы автоматически имя похватывалось из ячейки а1. Открывал первый Ваш файл.

Вышеуказанная ошибка пропала сама собой. Не понимаю почему.

Сообщение отредактировал AVI - Четверг, 08.09.2016, 12:32

Дата: Четверг, 08.09.2016, 12:47 | Сообщение № 13

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 898 ±

Замечаний: 0% ±

Excel 2010, 2016

AVI, запускаете макрос - предлагает выбрать папку - поле "Имя папки" должно быть пустым или содержать имя папки. Нажимаете Ок.

На скрине файл сохранится в папку test. Имя файла будет браться из ячейки А1. Если не получается, напишите в каком месте происходит ошибка и какая.

К сообщению приложен файл: 7419070.jpg (31.0 Kb)

ЯД: 410013299366744 WM: R193491431804