А = СоздатьОбъект("Excel.Application");

КвоЛистов = А.Worksheets.Count;

Для Индекс = 1 По КвоЛистов Цикл

    спЛистов.ДобавитьЗначение(А.Worksheets(Индекс).Name);

КонецЦикла;

листНакладной = 0;

Если спЛистов.ВыбратьЗначение(,"Выберите лист",листНакладной,) < 1 Тогда

    Возврат;

КонецЕсли;

Результат = А.Worksheets(листНакладной).Activate;

ИспДиапазон = А.Worksheets(листНакладной).UsedRange;

   СтрНач = ИспДиапазон.Row; СтрКон = ИспДиапазон.Rows.Count;

   СтлНач = ИспДиапазон.Column; СтлКон = ИспДиапазон.Columns.Count;

 

НачСтрока = 0;

Если ВвестиЧисло(НачСтрока,"Строка начала табличной части накладной",,0,0) = 0 тогда

    Возврат;

КонецЕсли;

КонСтрока = 0;

Если ВвестиЧисло(КонСтрока,"Строка конца табличной части накладной",,0,0) = 0 тогда

    Возврат;

КонецЕсли;

столбецКод = 0;

Если ВвестиЧисло(столбецКод,"Колонка кода изделия",,0,0) = 0 тогда

    Возврат;

КонецЕсли;

столбецНаименован = 0;

Если ВвестиЧисло(столбецНаименован,"Колонка наименования изделия",,0,0) = 0 тогда

    Возврат;

КонецЕсли;

столбецКолво = 0;

Если ВвестиЧисло(столбецКолво,"Колонка количества",,0,0) = 0 тогда

    Возврат;

КонецЕсли;

столбецСумма = 0;

Если ВвестиЧисло(столбецСумма,"Колонка суммы",,0,0) = 0 тогда

    Возврат;

КонецЕсли;

 

Для Индекс = НачСтрока По КонСтрока Цикл

    Состояние("Анализ строк накладной - " + Индекс + "/" + СтрКон);

    Если СокрЛП(Строка(А.Worksheets(листНакладной).Cells(Индекс, столбецКод).Value+А.Worksheets(листНакладной).Cells(Индекс, столбецНаименован).Value)) = "" Тогда

        Продолжить;

    КонецЕсли;

// ...

    Цена = А.Worksheets(листНакладной).Cells(Индекс, СтолбецСумма).Value;

    Кво = А.Worksheets(листНакладной).Cells(Индекс, СтолбецКолво).Value;

// ...

// тут что-то делаем с данными

// ...

КонецЦикла;

 

...

table.write(some.xls,1)

excel = createobject("Excel.Application");

excel.open("some.xls");

;