Версия для печати темы (https://pro1c.org.ua/index.php?s=dd753e5a4123c23a18630ed5b6f9a4d7&showtopic=67377)

Автор: kostya77 14.11.23, 16:14

Добрый день. Подскажите, как при загрузке из Книги Excel получить досту к нужному листу. Сначала нужно прочитать данные из певого листа а потом из второго

Автор: denis84 14.11.23, 16:33

kostya77 @ Сегодня, 16:14 ,

    Попытка
        Эксель = СоздатьОбъект("Excel.Application");
    Исключение
        Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel.","!");
        Возврат;
    КонецПопытки;
    
    Попытка
        Книга = Эксель.WorkBooks.Open(СокрЛП(ИмяФайла));
        Лист  = Книга.Worksheets(1);    
    Исключение
        Сообщить(описаниеОшибки());
        Возврат;
    КонецПопытки;    
    Строк = Лист.Cells.Rows.Count;

Автор: AnryMc 14.11.23, 17:30

    //Перебор листов книги
    КолвоЛистов = ex.Sheets.Count();
    
    Для сч=1 ПО КолвоЛистов Цикл
        
        текЛист = ex.WorkSheets(сч);
        ИмяЛиста = текЛист.Name;
        текЛист.Activate();
        
        Если ИмяЛиста = "Класифікатори" Тогда
            
            Продолжить;
            
        КонецЕсли;
        
        //Перебор на листе
        RCount = ex.Cells(1,1).SpecialCells(11).Row;
        CCount = ex.Cells(1,1).SpecialCells(11).Column;
        
        Для j = 2 по RCount цикл
            
            Новая = ТабЗагрузки.Добавить();
            
            Для i=2 По CCount Цикл
                
                ТД = СокрЛП(ex.ActiveSheet.Cells(j,i).Value);
                
                Пока СтрНайти(ТД, "  ") > 0 Цикл
                    
                    ТД = СтрЗаменить(ТД, "  ", " ");
                    
                КонецЦикла;