Цикл по XLS файлам

20.12.16

✎

08:50

Доброго утра форумчане, подскажите пожалуйста. Сделал обработку которая проходит циклом по XLS файлам из папки, плюс должна обойти все строки начиная с 8 и заканчивая строкой со значением "Итого"

    Эксель= Новый COMОбъект("EXCEL.Application");

    Файлы = НайтиФайлы(ЭтотОбъект.Путь,"*.xls",Ложь);
    //пройдем циклом по файлам из папки

    Для каждого Файл из Файлы Цикл

        Эксель.Workbooks.Open(Файл.ПолноеИмя);
        Эксель.Visible       = 1;
        ТекЛист=Эксель.WorkSheets(1);
        Ячейка=8;
        Для Ячейка=8 по //Ячейка с ИТОГО цикл
            Значение=ТекЛист.Cells(Ячейка,2).Value;
            Сообщить(Значение);
            Ячейка=Ячейка+1;
        КонецЦикла;
        Эксель.Workbooks.Close();
    КонецЦИкла;

1 Альбатрос

20.12.16

✎

08:52

Молодец!

2 tatoshka0403

20.12.16

✎

08:57

(0)+ можно ли воспользоваться безусловным переходом?

3 mastodont

20.12.16

✎

08:57

(0) Вопрос в чем, как найти ячейку с Итого?

4 СлевинК

20.12.16

✎

08:58

(0) Вам более более удобно будет использовать конструкцию
Пока
КонецЦикла

чем

Для
КонецЦикла

5 tatoshka0403

20.12.16

✎

08:58

Для Ячейка=8 по//Ячейка с ИТОГО цикл
Наложить условие чтобы этот цикл прекращался когда в ячейке итого.

6 mastodont

20.12.16

✎

09:00

(5) перебирай все строки и проверяй на "итого"

7 СлевинК

20.12.16

✎

09:01

ПозИтог=0;
Пока ПозИтог=0 Цикл
            Значение=ТекЛист.Cells(Ячейка,2).Value;
            Сообщить(Значение);
            ПозИтог=СтрНайти(Строка(Значение), "Итого");
            Ячейка=Ячейка+1;
КонецЦикла;

8 mastodont

20.12.16

✎

09:01

Можно конечно Пока значение <> Итого, но ведь возможен вариант, что "Итого" не окажется.

9 tatoshka0403

20.12.16

✎

09:02

(6) ну мне так и так надо перебрать все строки(это будут новые элемента справочника), и чтобы когда программа видит итого уходила на другой файл.

10 tatoshka0403

20.12.16