Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 19.09.2010, 15:19   #1
Janik
 
Регистрация: 19.09.2010
Сообщений: 3
По умолчанию Копирование значения строки из одного Excel-файла в другой

Добрый день!
Подскажите пожалуйста, есть множество файлов xls в папке, сотни, в каждом из них название предприятия находится в строке А21.Можно ли записать в отдельный файл xls название предприятие и количество раз когда оно встречается?
допустим
Петров 17
Иванов 19
или просто выписывать предприятия в новый файл, а я их потом сам посчитаю
Janik вне форума Ответить с цитированием
Старый 19.09.2010, 17:35   #2
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Проверяйте. Пояснения в файле.
Ядро составляет код ZVI из http://www.planetaexcel.ru/forum.php?thread_id=19264
Остальное - моя компоновка фрагментов других кодов
Если годится - можно добавить диалог выбора папки.
Вложения
Тип файла: zip Svod.zip (12.1 Кб, 35 просмотров)
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 19.09.2010, 22:51   #3
Janik
 
Регистрация: 19.09.2010
Сообщений: 3
По умолчанию

Hugo121 спасибо огромное
только скажи как подредактировать скрипт, у меня иногда данные не в А21 а А22 или А23
Janik вне форума Ответить с цитированием
Старый 19.09.2010, 23:02   #4
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Ну вот, началось...
Вот строка
.Formula = "=ToArray('" & AFile.Parentfolder.Path & "\[" & AFile.Name & "]Лист1'!A21)"
В ней и правьте. Один вариант кода для файлов с А21, другой для А22...
Потом итоговые результаты объедините вручную.
Ну а если серьёзно (хотя вариант выше рабочий) - нужное значение может быть в любой из этих трёх ячеек, а две другие пустые, или там тоже что-то есть?
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 19.09.2010, 23:14   #5
Hugo121
Старожил
 
Регистрация: 11.05.2010
Сообщений: 5,166
По умолчанию

Хотя вот, на эти 3 ячейки. Если будут и другие данные в альтернативных ячейках - они объединятся с нужными и получится ерунда.
Вложения
Тип файла: zip Svod2.zip (12.3 Кб, 22 просмотров)
webmoney: E265281470651 Z422237915069 R418926282008
Hugo121 вне форума Ответить с цитированием
Старый 20.09.2010, 00:29   #6
Janik
 
Регистрация: 19.09.2010
Сообщений: 3
По умолчанию

Огромнейшее спасибо вам!!!Спасли меня
Janik вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
копирование ячейки с одного листа в другой RECit Microsoft Office Excel 7 02.08.2010 20:37
Копирование к строк из одного файла в другой A_Orlov Помощь студентам 1 15.06.2010 14:49
Копирование данных из одного файла в другой! vipcrash Microsoft Office Excel 17 23.01.2010 21:11
Копирование информации из одного листа на другой Юрийpirs2008 Microsoft Office Excel 6 24.03.2009 07:59
Сортировка в StringGrid'е, копирование строк из одного SG в другой monushka Помощь студентам 3 29.10.2007 23:54