Быстрая загрузка из EXCEL [1128] [8] AdminITD - 2019-01-31 21:30:05
V82, Обычное приложение

Описание

Исходный EXCEL

Данные в 1С

Алгоритм выгрузки данных в двумерный массив

&НаКлиенте
Функция ПрочитатьЛистExcel(лпИмяФайла, лпНомерЛиста = 1, лпНомерПервойСтроки = 1, лпНомерПервойКолонки = 1) Экспорт
	//Подключение к Excel
	Попытка
		лпExcel = Новый COMОбъект("Excel.Application");
		лпExcel.Interactive	= False;
		лпExcel.DisplayAlerts = False;
		лпExcel.visible = False; 
	Исключение
		ВызватьИсключение "Возможно, Excel на компьютере не установлен. Необходимо выполнить установку/переустановку Excel." + Символы.ПС + ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
	КонецПопытки;     
	
	//Подключились удачно, открываем файл
	лпExcel.Workbooks.Open(лпИмяФайла);
	
	//Открываем необходимый лист
	лпExcel.Sheets(лпНомерЛиста).select();   
	
	//Получим количество строк и колонок.
	//В разных версиях Excel получаются по-разному, поэтому сначала определим версию Excel
	лпВерсия = Лев(лпExcel.Version, Найти(лпExcel.Version, ".") - 1);
	
	Если лпВерсия = "8" тогда
		лпВсегоСтрок   = лпExcel.Cells.CurrentRegion.Rows.Count;
		лпВсегоКолонок = Макс(лпExcel.Cells.CurrentRegion.Columns.Count, 13);
	Иначе
		лпВсегоСтрок   = лпExcel.Cells(1,1).SpecialCells(11).Row;
		лпВсегоКолонок = лпExcel.Cells(1,1).SpecialCells(11).Column;   
	КонецЕсли;
	
	лпОбластьДанных = лпExcel.Range(лпExcel.Cells(лпНомерПервойСтроки, лпНомерПервойКолонки), лпExcel.Cells(лпВсегоСтрок, лпВсегоКолонок));
	
	лпДанныеИзExcel = лпОбластьДанных.Value.Выгрузить(); //это двумерный массив
	
	лпExcel.Workbooks.Close();
	лпExcel.quit();
	
	лпExcel = Неопределено;
	
	Возврат лпДанныеИзExcel;	
КонецФункции

● Файлы для скачивания:

для получения доступа требуется авторизация размер: 6.1 кб, скачиваний: 31. cодержимое архива: Загрузка из EXCEL.epf - 8,9 кб.

● Комментарии: