Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Вход | Зарегистрироваться )



> Как при загрузке из Книги Excel получить досту к нужному листу          
kostya77 Подменю пользователя
сообщение 14.11.23, 16:14
Сообщение #1

Завсегдатай
****
Группа: Пользователи
Сообщений: 105
Спасибо сказали: 5 раз
Рейтинг: 4

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

denis84 Подменю пользователя
сообщение 14.11.23, 16:33
Сообщение #2

Оратор
Иконка группы
Группа: Местный
Сообщений: 395
Из: Украина
Спасибо сказали: 117 раз
Рейтинг: 117.6

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


Сообщение отредактировал denis84 - 14.11.23, 16:35

AnryMc Подменю пользователя
сообщение 14.11.23, 17:30
Сообщение #3

Завсегдатай
Иконка группы
Группа: Местный
Сообщений: 213
Спасибо сказали: 73 раз
Рейтинг: 74.3

    //Перебор листов книги
    КолвоЛистов = 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 Цикл
                    
                    ТД = СтрЗаменить(ТД, "  ", " ");
                    
                КонецЦикла;

Не нашли ответа на свой вопрос?
Зарегистрируйтесь и задайте новый вопрос.


Ответить Новая тема
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

RSS Текстовая версия Сейчас: 11.12.23, 0:44
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!