|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
|
Опции темы | Поиск в этой теме |
22.01.2009, 11:20
|
#11 |
|
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
А Вы не скупитесь, и приложите пример текстового файла-источника в котором будут все возможные варианты записи строк. При этом, подробно опишите задание.
Чем шире угол зрения, тем он тупее.
|
|
|
22.01.2009, 16:08
|
#12 |
|
Пользователь
Регистрация: 20.01.2009
Сообщений: 43
|
Вот нормальный файл, только проблема в том что если открывать блокнотом текст будет не форматированый, его надо открывать с помощью wordpad или какого-нибудь файл-мэнеджера типа far. Надо чтобы в Excel получилось так
ПП "ББК" 600000.00 ТОВ АЗБЗ 180000.00 ТОВ "ІБП "АРТ" 1997105.08 при том что Excel есть колонка ПП "ББК" ТОВ АЗБЗ ТОВ "ІБП "АРТ" Подскажите, пожалуйста. |
|
|
|
22.01.2009, 18:28
|
#13 |
|
Пользователь
Регистрация: 20.01.2009
Сообщений: 43
|
Еще добавлю, что надо чтоб макрос не тупо вставлял последовательность тех цифр во второй колонке, а желательно чтоб была привязка к значениям ячеек, которые в первой колонке, потому что их последовательность может меняться
|
|
|
|
22.01.2009, 19:40
|
#14 |
|
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Попробуйте такой вариант.
На компьютере должен быть установлен Microsoft Word 2003 (он используется для преобразования текстового файла в понятную кодировку) В связи с этим обработка текстового файла длится несколько секунд... |
|
|
|
23.01.2009, 10:14
|
#15 |
|
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Посмотрите другой вариант.
Откройте файл "Extractor.xls". Запустите макрос "Main". Укажите текстовый файл, из которого требуется извлечь данные.
Чем шире угол зрения, тем он тупее.
|
|
|
|
23.01.2009, 16:19
|
#16 | |
|
Пользователь
Регистрация: 20.01.2009
Сообщений: 43
|
Цитата:
А я запускаю ваш макрос и выдается ошибка |
|
|
|
|
23.01.2009, 16:43
|
#17 | |
|
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Какая версия Office установлена на компьютере? XP, 2003, 2007 ? Если не 2003, то появление ошибки объяснимо. К тому же, обработка возможных ошибок в макросе не реализована - так как Вы не прикрепили примеры реальных файлов - текстового и книги Excel. Отпишите в личку, объясню, как избавиться от ошибки. |
|
|
|
|
24.01.2009, 10:21
|
#18 |
|
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Обратите внимание, что мой вариант решения не требует предварительной перекодировки (в методе OpenText коллекции Workbooks установлена опция Origin:=xlMSDOS) и не требует предварительно заполненного столбца с названиями.
Чем шире угол зрения, тем он тупее.
|
|
|
|
29.01.2009, 16:02
|
#19 |
|
Пользователь
Регистрация: 20.01.2009
Сообщений: 43
|
Ваши варианты отличные, только можете объяснить что делает функция cells(), не могу нигде найти ее описание
|
|
|
|
29.01.2009, 16:19
|
#20 |
|
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Функция cells() возвращает значение ячейки, или саму ячейку - объект типа Range.
Поищите информацию в файле C:\Program Files\Microsoft Office\OFFICE11\1049\VBAXL10.CHM Почитайте про эту функцию здесь Например, запись a=cells(2,5) присвоит переменной a значение ячейки, расположенной на пересечении 2 строки и 5 столбца.
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
 Макросы любой сложности на заказ. Мониторинг цен конкурентов
Последний раз редактировалось EducatedFool; 29.01.2009 в 16:22. |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Макрос | kot_842003 | Microsoft Office Excel | 2 | 26.12.2008 05:24 |
| Макрос 2007 | ditoch | Microsoft Office Excel | 6 | 24.06.2008 11:09 |
| Таймер на макрос | Hant | Microsoft Office Excel | 3 | 21.05.2008 20:10 |
| Макрос | Мингиян | Microsoft Office Access | 1 | 24.01.2008 21:54 |
| Назначить макрос | Nando | Microsoft Office Excel | 5 | 07.01.2008 14:33 |
