среда, 13 марта 2013 г.

1С 8.х и Excel. Часть1. Чтение данных из Excel.


Доступ из 1С к Excel производится посредством OLE. Создание COM-объекта:

Попытка
 Эксель = СоздатьОбъект("Excel.Application"); 
Исключение
 Сообщить(ОписаниеОшибки(),СтатусСообщения.ОченьВажное); 
 Возврат;
КонецПопытки;

Теперь используя переменную Эксель можно управлять приложением Excel.
  • Внимание! Microsoft Excel должен быть установлен на компьютере!



Следующая команда откроет книгу:
Книга = Эксель.WorkBooks.Open(ПутьКФайлу);

Перед тем, как начать считывание данных, укажем лист книги, с которого будем считывать данные:
Лист = Книга.WorkSheets(НомерЛиста);

Нумерация листов книги начинается с 1. Общее количество листов можно получить, используя следующую команду:
КоличествоЛистов = Книга.Sheets.Count;

Лист можно выбрать по имени листа в книге:
Лист = Книга.WorkSheets(ИмяЛиста);

Имя листа в книге можно получить по номеру:
ИмяЛиста = Книга.Sheets(НомерЛиста).Name;

Итак, мы открыли книгу и выбрали лист, теперь посмотрим, сколько строк и колонок на выбранном листе:
ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

Получим значения ячейки листа в строке НомерСтроки и в колонке НомерКолонки:
Значение = Лист.Cells(НомерСтроки, НомерКолонки).Value;

Ниже приведен отрывок кода, запустив который мы прочитаем все данные с первой страницы:
Эксель = СоздатьОбъект("Excel.Application");
Книга = Эксель.WorkBooks.Open(ПутьКФайлу);
Лист = Книга.WorkSheets(1);

ВсегоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1,1).SpecialCells(11).Row;

для Строка = 1 по ВсегоСтрок цикл
 
 для Колонка = 1 по ВсегоКолонок цикл
  Значение = СокрЛП(Лист.Cells(Строка,Колонка).Value);
 КонецЦикла;
  
КонецЦикла;

Где ПутьКФайлу - полный путь к файлу книги Excel (включая имя). 

После выполнения действий необходимо закрыть книгу:
Эксель.Application.Quit();

Отправить комментарий

Неактивный атрибут "скрытый" или как снять атрибут скрытый после вируса

Некоторые пользователи компьютеров часто сталкиваются с проблемой, когда папки и файлы вдруг становятся скрытыми. Или, проще говоря, исчез...