&НаСервере
Процедура Заполнить(Путь)
Попытка
Excel = новый COMОбъект("Excel.Application");
Книга = Excel.Workbooks.Open(Путь);
Лист = Excel.Sheets(1);
Сообщить("подключились");
Исключение
Сообщить("Похоже, Excel на компьютере не установлен. Необходимо выполнить установку/ переустановку Excel.");
КонецПопытки;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;
Для Номер=4 по ВсегоСтрок Цикл
Нов = Справочники.Абоненты.СоздатьЭлемент();
Нов.Наименование = СокрЛП(Лист.Cells(Номер,2).Value);
Нов.Улица = СокрЛП(Лист.Cells(Номер,3).Value);
Нов.Дом = СокрЛП(Лист.Cells(Номер,4).Value);
Нов.Квартира= СокрЛП(Лист.Cells(Номер,5).Value);
Если Нов.Квартира = Неопределено тогда
Нов.ВидПроживания = Перечисления.ВидПроживания.частный;
Иначе
Нов.ВидПроживания = Перечисления.ВидПроживания.квартира;
КонецЕсли;
Нов.Телефон = СокрЛП(Лист.Cells(Номер,6).Value);
Нов.ДопТелефон = СокрЛП(Лист.Cells(Номер,7).Value);
Нов.ВидДокумента = СокрЛП(Лист.Cells(Номер,9).Value);
Нов.Серия = СокрЛП(Лист.Cells(Номер,10).Value);
Нов.Номер = СокрЛП(Лист.Cells(Номер,11).Value);
Нов.ДеньРождение = СокрЛП(Лист.Cells(Номер,12).Value);
Нов.СтарыйАдрес = СокрЛП(Лист.Cells(Номер,8).Value);
Нов.ДатаПереезда = СокрЛП(Лист.Cells(Номер,14).Value);
Нов.PS = СокрЛП(Лист.Cells(Номер,13).Value);
Сообщить("Абонент");
Сообщить(Нов.Наименование);
КонецЦикла;
КонецПроцедуры
Очень долго выполняется хотя строк в документе 15.
Правильный ли у меня код?
Как написать такой же код для excel 2007 и 2010&&
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.