v8.Работа с таблицами xls

[alexey]

Наверно каждому, кто связал себя с 1С приходится рано или поздно столкнуться с проблемой загрузки или выгрузки информации из xls.
Примеров много, но для начинающих постараюсь разъяснить все доступным языком:
Пример:
//1. пытаемся прочитать, если возникают ошибки то предупреждаем пользователя
Попытка
   Загрузка = ПолучитьCOMОбъект(ПутьКФайлу);
        //Синтаксис:
        //ПолучитьCOMОбъект(<Имя файла>, <Имя класса COM>);
        //ПолучитьCOMОбъект("C:\DATA\DATA.XLS");
        //Создание нового экземпляра объекта
        //ПолучитьCOMОбъект("", "Excel.Application");
        //В дальнейшем этот документ может быть программно заполнен и сохранен в файл.
Исключение
   Предупреждение("Не удалось загрузить информацию из файла!!!",10);
   Возврат;
КонецПопытки;
//2. прочитали файл необходимо считать с него информацию
//допустим мы читаем информацию с листа 1, со строки 2
НомерЛиста = 1;
//читаем по 10-ю строку
Для НомерСтроки = 2 По 10 Цикл
         //читаем колонки с 1-ой по 15-ю
         Для НомерКолонки = 1 По 15 Цикл
                  НеобходимоеЗначение = Загрузка.Sheets(НомерЛиста).Cells(НомерСтроки,НомерКолонки).Value;
                  //думаю здесь все понятно
                  //в НеобходимоеЗначение записывается значение с конкретного листа, из конкретной строки и конкретной колонки, далее это значение этой можно передать куда необходимо
         КонецЦикла;
КонецЦикла;
//закрываем объект xls
Загрузка.Application.Quit();
При чтении их файлов могут возникать некоторые проблемы связанные с тем, что допустим файл xls создан в другой версии MS Office, отличной от установленной у Вас. Это можно поправить просто пере сохранив файл..
Пример сохранения отчета в формате xls:
Счетчик = 0;
Макет = ПолучитьМакет("МакетОтчета");
Шапка = Макет.ПолучитьОбласть("Шапка");
ТО = Новый ТабличныйДокумент();
ТО.Вывести(Шапка);
//Допустим есть некая ТаблицаОтчета содержащая таблицу некоторых событий
Для Каждого СтрокаОтчета Из ТаблицаОтчета Цикл
   Счетчик = Счетчик + 1;
   Данные = Макет.ПолучитьОбласть("Данные");
   Данные.Параметры.Счетчик = Число(ТаблицаОтчета.Индекс(СтрокаОтчета))+1;
   Данные.Параметры.ДатаВремя = СтрокаОтчета.ВремяСобытия;
   Данные.Параметры.Результат = СтрокаОтчета.РезультатСобытия;
   Данные.Параметры.Описание = СтрокаОтчета.ОписаниеСобытия;
   ТО.Вывести(Данные);
КонецЦикла;
ТО.Записать(КаталогВременныхФайлов()+"\otchet.xls","XLS");
//ну и откроем результат
ЗапуститьПриложение(КаталогВременныхФайлов()+"\otchet.xls");

[JEKA]

далее это значение этой можно передать куда необходимо

А как программно создать новый элемент справочника контрагенты, присвоить ему код и наименование и записать?

[Vasko]

Спр=Справочники.Контрагенты.СоздатьЭлемент();
Спр.Код=бла-бла-бла;
Спр.Наименование=бла-бля-бла;
//другие реквизиты
Спр.бла-бла-бла=бла-бла-бла;
Спр.Записать();

[sherhan]

Интерестно а каким образом можно отсеить при чтении файла xls одинаковые строки

[alexey]

sherhan я за чем? Мне кажется легче слить сначало все в Таблицу значений, а потом её свернуть.. Вот одинаковые строки и схлопнуться.. Хотя все зависит от задачи .. Но гемороя много и работать будет значительно дольше..

[sherhan]

Хотелось бы посмотреть на примерчик такого действия по свертыванию таблицы значений

[alexey]

sherhan
да вроде помоему ни чего сверхъестественного в данном действе нет .. Допустим в файле xls три колонки Номенклатура, Количество и Сумма..
//Готовим ТЗ - Таблицу Значений
ТЗ = Новый ТаблицаЗначений;
ТЗ.Колонки.Добавить("Номенклатура");
ТЗ.Колонки.Добавить("Количество ");
ТЗ.Колонки.Добавить("Сумма");
//Читаем:
Попытка
   Загрузка = ПолучитьCOMОбъект(ПутьКФайлу);
Исключение
   Предупреждение("Не удалось загрузить информацию из файла!!!",10);
   Возврат;
КонецПопытки;
НомерЛиста = 1;
//читаем по 10-ю строку
Для НомерСтроки = 2 По 10 Цикл
         НоваяСтрока = ТЗ.Добавить();
         //читаем колонки с 1-ой по 3-ю
         Для НомерКолонки = 1 По 3 Цикл
                  НеобходимоеЗначение = Загрузка.Sheets(НомерЛиста).Cells(НомерСтроки,НомерКолонки).Value;
                  Если НомерКолонки = 1 Тогда
                          НоваяСтрока .Номенклатура = СокрЛП(НеобходимоеЗначение );
                  ИначеЕсли НомерКолонки = 2 Тогда
                          НоваяСтрока .Количество= СокрЛП(НеобходимоеЗначение );
                  ИначеЕсли НомерКолонки = 3 Тогда
                          НоваяСтрока .Сумма= СокрЛП(НеобходимоеЗначение );
                  КонецЕсли;
         КонецЦикла;
КонецЦикла;
//закрываем объект xls
Загрузка.Application.Quit();
//Далее используем свернуть что бы исключить дублирующиеся значения Номенклатуры
//Синтаксис:
//Свернуть(<Колонки группировок>, <Колонки суммирования>)
ТЗ.Свернуть("Номенклатура","Количество, Сумма");
Ну вот собственно-то и все ..

[sherhan]

вот спасибо а то я такую конструкцию нагромоздил что аж потерятся можно

[alexey]

sherhan не за что.. Пиши если чё :)..

[sherhan]

есть одно но при свертывании
допустим у меня  есть два поля наименование клиента и его код так вот после свертывания
наименование клиента сорачивается нормально а вот код в итог е залетает как 0

[alexey]

есть одно но при свертывании
допустим у меня  есть два поля наименование клиента и его код так вот после свертывания
наименование клиента сорачивается нормально а вот код в итог е залетает как 0

смотри, я твоего кода не вижу, так что могу только гадать .. Но вариант, допустим в "Колонки группировок" ты код просто не включил, тогда в колонке Код у тебя все значения свернуться к Нулю.. Т.к. как я понял они там числовые.. Исправить это можно, при получение значения кода, значение из ячейки включаешь его в СокрЛП().. Тогда в колонку ТЗ у тебя будет попадать значение в текстовом виде.. Далее обязательно включаешь Код в Колонки группировок: ТЗ.Свернуть("Код, Клиент",Колоки сумирования);

[sherhan]

вот втом то весь и прикол что код как раз я сделал строками вот енто то и удивляет

[alexey]

sherhan ну вообще было бы интерсено посмотреть на код .. т.к. честно говоря особых проблем со сворачиванием ТЗ ни когда не испытывал..
Так же Коди Наименование на сколько я понимаю в разных строках одинаковые?..
Если пропаду, значит уехал на парозе извини.. Если до понедельника ни кто не поможет, то приеду разберемся..

[sherhan]

Здравствуйте ошибка была здесь ( ТЗ.Свернуть("Номенклатура","Количество, Сумма")
а надо  ( ТЗ.Свернуть("Номенклатура,Количество, Сумма")

[sherhan]

Иеще вопрос как прочитать файл XLS c помощъю select
??????????