|
Цикл по XLS файлам |
☑ |
0
tatoshka0403
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
✎
09:06
|
(8) Спасибо.
|
|
11
mastodont
20.12.16
✎
09:48
|
(10) мне все же кажется правильным еще проверять вариант отсутствия "итого"...
|
|