|
0
razbiralshik
13.03.13
✎
17:57
|
Excel = Новый COMОбъект("Excel.Application");
Excel.DisplayAlerts = 0;
ExcelBooks = Excel.Workbooks.Open(ВыбФайл.ПолноеИмя);
Excel.ActiveWorkbook.RunAutoMacros(1);
ТаблицаНомеров = Новый ТаблицаЗначений;
ТаблицаНомеров.Колонки.Добавить("МодельФайла");
Для КолВаЛистов = 1 По Excel.Sheets.Count Цикл
ОбработкаПрерыванияПользователя();
ТекущийЛист = Excel.Sheets(КолВаЛистов);
ИмяТекущегоЛиста = ExcelBooks.Sheets(КолВаЛистов).Name;
ФайлСтрок = ТекущийЛист.Cells(1,1).SpecialCells(11).Row;
ФайлКолонок = ТекущийЛист.Cells(1,1).SpecialCells(11).Column;
Для Строка = 2 По ФайлСтрок Цикл
КодПроизводителя = СокрЛП(Excel.Cells(Строка, 4).Value);
СтрПоиска = ТаблицаСоответствия.Найти(КодПроизводителя, "МодельФайла");
Если СтрПоиска = Неопределено Тогда
СтрТабл = ТаблицаНомеров.Добавить();
СтрТабл.МодельФайла = КодПроизводителя;
КонецЕсли;
КонецЦикла;
КонецЦикла;
ExcelBooks.Close();
В файле эксель содержится 4 листра, данным кодом у меня 4 раза считывается первый лист, а не пробегается по всем 4ем листам, как сделать чтобы пробегалось по всем 4 листам?
|
|
