|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 |
Попытка XLSОбъектОсновной = Новый COMОбъект("Excel.Application"); Исключение Предупреждение("Невозможно загрузить MS EXCEL !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка"); Возврат; КонецПопытки; XLSОбъектКниги = XLSОбъектОсновной.WorkBooks; Попытка XLSОбъект = XLSОбъектКниги.Open(элементыформы.пвИмяФайла.Значение); Исключение Предупреждение("Невозможно открыть файл " + элементыформы.пвИмяФайла.Значение + " !!!" + Символы.ПС + ОписаниеОшибки(), 10, "Ошибка"); Возврат; КонецПопытки; XLSОбъект.Application.Caption = "Открыто из 1С"; //определим диапозоны Если НомерСтрокиСДанными = 0 Тогда // То с первой строки НомерСтрокиСДанными = 1; КонецЕсли; Если НомерСтраницы = 0 Тогда // То с первой страницы НомерСтраницы = 1; КонецЕсли; Лист = XLSОбъект.Sheets(НомерСтраницы); Если КолВоКолонок = 0 Тогда //КолВоКолонок не установлено, будем автоматически заполнять КолВоКолонок = Лист.Cells(1,1).SpecialCells(11).Column; КонецЕсли; Если КолВоСтрок = 0 Тогда // КолВоСтрок не уставновлено, Будем автоматически заполнять количество строк. КолВоСтрок = Лист.Cells(1,1).SpecialCells(11).Row; КонецЕсли; // ТЗДанных - Таблица значений на форме ТЗДанных.Очистить(); Лист = XLSОбъект.Sheets(НомерСтраницы); Для чС = (НомерСтрокиСДанными + 1) По КолВоСтрок Цикл Состояние("Загружаем строки:" + чС); ностр=ТЗДанных.Добавить(); попытка //грузим номенклатуру Ячейка = Лист.Cells(чС,1); ностр.НоменклатураЕксел = Ячейка.Value; исключение сообщить("Номенклатура - строка - "+чс + Символы.ПС + ОписаниеОшибки()); конецпопытки; попытка //грузим количество Ячейка = Лист.Cells(чС, 2); ностр.Количество = Ячейка.Value; исключение сообщить("Количество - строка - "+чс + Символы.ПС + ОписаниеОшибки()); конецпопытки; попытка //грузим сумму Ячейка = Лист.Cells(чС, 3); ностр.Сумма = Ячейка.Value; исключение сообщить("Сумма - строка - "+чс + Символы.ПС + ОписаниеОшибки()); конецпопытки; попытка //грузим единица измерения Ячейка = Лист.Cells(чС, 4); ностр.ЕдИзмеренияЕксел = Ячейка.Value; исключение сообщить("Ед. измерения - строка - "+чс + Символы.ПС + ОписаниеОшибки()); конецпопытки; //КонецЦикла; КонецЦикла; XLSОбъект.Application.Quit(); |
About the Author
