Vaicheslav
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
DrDroid
Я сделал вот так
ЗначениеГруппы = СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаГруппы).Value);
Если ЗначениеГруппы = "Архив" Тогда
Продолжить;
КонецЕсли;
Может я код не так понял то пожалуйста объясните, но мне нужно сделать так чтобы проверка брались из таблицы в обработке, а не я в коде писал что ненужна эта группа, т.е есть 2 таблицы, в Таб1 мы вводим название строк которые мы не хотим выгружать из Excel в Таб2, я понимаю что это надо сделать через цикл но как не могу понять.
Заранее извиняюсь если вы это сделали и я не понял
Вот весь код
Процедура ЗагрузитьИзExel(Команда)
Объект.ТабличнаяЧастьДанные.Очистить();
Состояние("Открыть Excel файл...");
Если СокрЛП(Объект.ИмяФайла) = "" Тогда
Сообщить("Не найден файл!", СтатусСообщения.ОченьВажное);
Возврат
КонецЕсли;
Попытка
Excel = Новый COMОбъект("Excel.Application");
Исключение
Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.");
Возврат;
КонецПопытки;
Excel.WorkBooks.Open(СокрЛП(Объект.ИмяФайла));
Состояние("Открытие файла" +Объект.ИмяФайла+"");
КоличествоЛистов = Excel.Sheets.Count;
КолонкаГруппы = 1;
КолонкаАртикул = 2;
КолонкаКодМодификации = 40;
КолонкаНаименование = 3;
КолонкаЕдИзмерениеВеса = 6;
КолонкаСтавкаНДС = 35;
КолонкаРознечнаяСтавкаНДС = 35;
Для НомераЛиста = 1 По КоличествоЛистов Цикл
Состояние("Обработка листа №"+НомераЛиста+" из всего листов: "+КоличествоЛистов+"", 25);
Excel.Sheets(НомераЛиста).select();
Версия = Лев(Excel.Version, Найти(Excel.Version,".")-1);
Если Версия = "8" Тогда
ФайлСтрок = Excel.Cells.CurrentRegion.Rows.Count;
ФайлКолонок = Макс(Excel.Cells.CurrentRegion.Columns.Count, 13);
Иначе
ФайлСтрок = Excel.Cells(1,1).SpecialCells(11).Row;
ФайлКолонок = Excel.Cells(1,1).SpecialCells(11).Column;
КонецЕсли;
Для СтрокаЕксель = 2 По ФайлСтрок Цикл
Сообщить("Обработка строк...");
Если НЕ ЗначениеЗаполнено(СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаНаименование).Value)) Тогда
Прервать;
КонецЕсли;
ЗначениеГруппы = СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаГруппы).Value);
Если ЗначениеГруппы = "Архив" Тогда
Продолжить;
КонецЕсли;
НовСтр = Объект.ТабличнаяЧастьДанные.Добавить();
НовСтр.Группа = СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаГруппы).Value);
НовСтр.Артикул = СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаАртикул).Value);
НовСтр.КодМодиФикации = СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаКодМодификации).Value);
НовСтр.Наименование = СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаНаименование).Value);
НовСтр.ЕдИзмерениеВеса = СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаЕдИзмерениеВеса).Value);
НовСтр.СтавкаНДС = СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаСтавкаНДС).Value);
НовСтр.РознечнаяСтавкаНДС = СокрЛП(Excel.Cells(СтрокаЕксель, КолонкаРознечнаяСтавкаНДС).Value);
КонецЦикла;
КонецЦикла;
Состояние("ЗакрытьExcel...");
Excel.Activeworkbook.Close();
Excel = Неопределено;
КонецПроцедуры
|
Программы » 
Варезник » 
