|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
23.12.2009, 08:40 | #1 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 625
|
Выборка и создание нового файла
Требуется из исходного файла выбрать данные и сформировать новый файл. Более подробно задача изложена внутри файлов.
Прошу подсказать начало пути |
23.12.2009, 11:44 | #2 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 625
|
|
23.12.2009, 12:21 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
смотрите FileDialog
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
23.12.2009, 13:15 | #4 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Ну а потом макросом можно обработать все листы из activewindow.SelectedSheets |
|
23.12.2009, 15:22 | #5 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Когда то писал схожее по смыслу приложение,немного изменил под вашу задачу.Может и поможет в работе
Анализ,обработка данных Недорого
|
25.12.2009, 05:26 | #6 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите вложение. Запустите макрос "Main". Будет создан требуемый файл и сохранен в той же папке под именем "Итог.xls". В исходном файле может находиться любое количество листов с любыми именами. Обрабатываются только нужные.
Чем шире угол зрения, тем он тупее.
Последний раз редактировалось SAS888; 25.12.2009 в 11:11. |
26.12.2009, 08:41 | #7 | |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 625
|
Цитата:
Макрос выдал ошибку на строке On Error GoTo 0: Workbooks("Итог.xls").Sheets(a(i, 6)).Activate Файл "Итог.xls" пустой |
|
26.12.2009, 08:59 | #8 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Скачал свой же файл и еще раз протестировал. Ошибка не появляется.
Вы запускали макрос именно в этом файле (с имеющимися данными), или в другом? Если в другом, то возможно, что требуется вставить какие-нибудь проверки (на "пустоту" ячейки и т.п.). Прикрепите проблемный файл - разберемся.
Чем шире угол зрения, тем он тупее.
|
26.12.2009, 09:02 | #9 | |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 625
|
Цитата:
Ошибка та же. Установлен Excel 2007 |
|
26.12.2009, 09:35 | #10 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Действительно. В 2007 есть проблема. Для ее устранения, в коде макроса замените строку
Код:
Код:
Код:
Код:
Чем шире угол зрения, тем он тупее.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание нового сайта | Миха ПРОрок | 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 |