Выборка и создание нового файла - Microsoft Office Excel

kzld · 23.12.2009, 08:40

Требуется из исходного файла выбрать данные и сформировать новый файл. Более подробно задача изложена внутри файлов.
Прошу подсказать начало пути

kzld · 23.12.2009, 11:44

Цитата:

Сообщение от kzld

Требуется из исходного файла выбрать данные и сформировать новый файл. Более подробно задача изложена внутри файлов.
Прошу подсказать начало пути

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

IgorGO · 23.12.2009, 12:21

смотрите FileDialog

EducatedFool · 23.12.2009, 13:15

Цитата:

Прошу подсказать , как сделать диалог выбора листов из файла.

Сделать-то всё можно, но я бы не стал ничего изобретать, а просто перед запуском макроса (или во время его работы) просто выделил бы нужные листы, удерживая клавишу Ctrl
Ну а потом макросом можно обработать все листы из activewindow.SelectedSheets

doober · 23.12.2009, 15:22

Когда то писал схожее по смыслу приложение,немного изменил под вашу задачу.Может и поможет в работе

SAS888 · 25.12.2009, 05:26

Посмотрите вложение. Запустите макрос "Main". Будет создан требуемый файл и сохранен в той же папке под именем "Итог.xls". В исходном файле может находиться любое количество листов с любыми именами. Обрабатываются только нужные.

kzld · 26.12.2009, 08:41

Цитата:

Сообщение от SAS888

Посмотрите вложение. Запустите макрос "Main". Будет создан требуемый файл и сохранен в той же папке под именем "Итог.xls". В исходном файле может находиться любое количество листов с любыми именами. Обрабатываются только нужные.

Не получилось.
Макрос выдал ошибку на строке
On Error GoTo 0: Workbooks("Итог.xls").Sheets(a(i, 6)).Activate
Файл "Итог.xls" пустой

SAS888 · 26.12.2009, 08:59

Скачал свой же файл и еще раз протестировал. Ошибка не появляется.
Вы запускали макрос именно в этом файле (с имеющимися данными), или в другом? Если в другом, то возможно, что требуется вставить какие-нибудь проверки (на "пустоту" ячейки и т.п.). Прикрепите проблемный файл - разберемся.

kzld · 26.12.2009, 09:02

Цитата:

Сообщение от SAS888

Скачал свой же файл и еще раз протестировал. Ошибка не появляется.
Вы запускали макрос именно в этом файле (с имеющимися данными), или в другом? Если в другом, то возможно, что требуется вставить какие-нибудь проверки (на "пустоту" ячейки и т.п.). Прикрепите проблемный файл - разберемся.

Скачал файл отсюда, двумя поставми выше.
Ошибка та же.
Установлен Excel 2007

SAS888 · 26.12.2009, 09:35

Действительно. В 2007 есть проблема. Для ее устранения, в коде макроса замените строку

Код:

a = ws.Range(ws.[G3], ws.Cells(Rows.Count, "N").End(xlUp)).Value

на строку

Код:

ws.Activate: a = Range([G3], Cells(Rows.Count, "N").End(xlUp)).Value

а также, необходимо устранить неточность, которую я обнаружил в ходе разбирательства. А именно: строку кода

Код:

On Error Resume Next: Set ws = ThisWorkbook.Sheets(lst)

нужно заменить на

Код:

On Error Resume Next: Set ws = ThisWorkbook.Sheets(b(lst))

и будет счастье.

23.12.2009, 12:21	#3
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	смотрите FileDialog Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

26.12.2009, 08:59	#8
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Скачал свой же файл и еще раз протестировал. Ошибка не появляется. Вы запускали макрос именно в этом файле (с имеющимися данными), или в другом? Если в другом, то возможно, что требуется вставить какие-нибудь проверки (на "пустоту" ячейки и т.п.). Прикрепите проблемный файл - разберемся. Чем шире угол зрения, тем он тупее.

26.12.2009, 09:35	#10
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Действительно. В 2007 есть проблема. Для ее устранения, в коде макроса замените строку Код: `a = ws.Range(ws.[G3], ws.Cells(Rows.Count, "N").End(xlUp)).Value` на строку Код: `ws.Activate: a = Range([G3], Cells(Rows.Count, "N").End(xlUp)).Value` а также, необходимо устранить неточность, которую я обнаружил в ходе разбирательства. А именно: строку кода Код: `On Error Resume Next: Set ws = ThisWorkbook.Sheets(lst)` нужно заменить на Код: `On Error Resume Next: Set ws = ThisWorkbook.Sheets(b(lst))` и будет счастье. Чем шире угол зрения, тем он тупее.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Создание нового сайта	Миха ПРОрок	HTML и CSS	7	07.07.2009 10:15
Создание нового типа	master_root	Общие вопросы Delphi	2	02.07.2008 22:33
XML - создание нового документа	PUH	Помощь студентам	5	17.04.2008 20:32
создание нового листа	cathie	Microsoft Office Excel	2	12.12.2007 15:49
Меню, создание нового пункта	Yogik™	Помощь студентам	2	17.08.2007 17:32