Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 66777
13.12.2006, 09:17
0.00 руб.
0 2 2
ДРУГОЕ / РАЗНОЕ
Добрый день (если он такой)! Помогите решить проблему!!! Есть некое количество файлов .XLS которые имеют одинаковую структуру размещения информации. Каким способом можно сделать выборку значений определенных ячеек из всех файлов. Некоторые ячейки могут быть объединенными между собой. Информация может быть как текст так и число. Спасибо. Надеюсь на скорый ответ

Обсуждение

Неизвестный
13.12.2006, 10:03
общий
это ответ
Здравствуйте, Ткаченко Алексей Васильевич!
Пример чтения 3 XLS файлов в приложении.
Если ячейки объединены то адресом "объединенных" будет адрес самой левой верхней ячейки.
Удачи!

Приложение:
Процедура Сформировать()Ехсеl_1 = СоздатьОбъект("Excel.Application");Ехсеl_2 = СоздатьОбъект("Excel.Application");Ехсеl_3 = СоздатьОбъект("Excel.Application"); Ехсеl_1.Workbooks.Open("C:\Книга1.xls");Ехсеl_2.Workbooks.Open("C:\Книга2.xls");Ехсеl_3.Workbooks.Open("C:\Книга3.xls");Для Ряд = 1 По 10 Цикл Для Столбец = 1 По 1 Цикл Сообщить("Столбец="+Строка(Столбец)+"Ряд="+Строка(Ряд)+"Значение="+ Ехсеl_1.Cells(Ряд , Столбец).Text); Сообщить("Столбец="+Строка(Столбец)+"Ряд="+Строка(Ряд)+"Значение="+ Ехсеl_2.Cells(Ряд , Столбец ).Value); Сообщить("Столбец="+Строка(Столбец)+"Ряд="+Строка(Ряд)+"Значение="+ Ехсеl_3.Cells(Ряд , Столбец ).Text); Сообщить("============") КонецЦикла;КонецЦикла;КонецПроцедуры //Сформировать
Неизвестный
13.12.2006, 15:16
общий
это ответ
Здравствуйте, Ткаченко Алексей Васильевич!
Исхожу из предположения, что Вы знаете как работать с одним файлом XLS
Тогда Вы просто работаете с каждым файлом по отдельности, значения, даже если это ссылочная ячейка на другой документ (файл) будут присутствовать.
У каждой ячейки есть свойства Text , Value , Formula . Вы можете всегда пользоваться свойством Value . Если в документе бывают ошибки, то лучше сначала это проверить. Например так

Приложение:
Если Cell.Errors.Item(1).Value=0 Тогда Возврат Cell.Value; Иначе Возврат Cell.Text; КонецЕсли;;
Форма ответа