Для работы этого способа необходимо чтобы на компьютере пользователя был установлен MS Excel.
1) Создайте пустую форму и отредактируйте её модуль
///*
//* Copyright (c) 2022, Ilham Djumatov. All rights reserved.
//* Copyrights licensed under the GNU GPLv3.
//* See the accompanying LICENSE file for terms.
//*/
&AtClient
Var ExcelApp;
&AtClient
Var Book;
&AtClient
Var Sheet;
&AtServer
Procedure OnCreateAtServer(Cancel, StandardProcessing)
// Реквизиты формы
AttributesToAdd = New Array;
AttributesToAdd.Add(New FormAttribute("FirstRow", New TypeDescription("Number", New NumberQualifiers(10, 0)), ""));
AttributesToAdd.Add(New FormAttribute("FirstCol", New TypeDescription("Number", New NumberQualifiers(10, 0)), ""));
AttributesToAdd.Add(New FormAttribute("LastRow", New TypeDescription("Number", New NumberQualifiers(10, 0)), ""));
AttributesToAdd.Add(New FormAttribute("LastCol", New TypeDescription("Number", New NumberQualifiers(10, 0)), ""));
AttributesToAdd.Add(New FormAttribute("List", New TypeDescription("ValueList"), ""));
ChangeAttributes(AttributesToAdd);
Parameters.Свойство("FirstRow", ThisObject["FirstRow"]);
Parameters.Свойство("FirstCol", ThisObject["FirstCol"]);
Parameters.Свойство("LastRow", ThisObject["LastRow"]);
Parameters.Свойство("LastCol", ThisObject["LastCol"]);
If ThisObject["FirstRow"] = 0 Then
ThisObject["FirstRow"] = 1;
EndIf;
If ThisObject["FirstCol"] = 0 Then
ThisObject["FirstCol"] = 1;
EndIf;
ThisForm.CommandBar.Visible = False;
ThisForm.Title = "Выберите лист";
ThisForm.AutoTitle = False;
ThisForm.WindowOpeningMode = FormWindowOpeningMode.Independent;
Item = Items.Add("List", Type("FormTable"));
Item.DataPath = "List";
Item.ReadOnly = True;
Item.CommandBar.Visible = False;
Item.SetAction("Selection", "ListSelection");
Item = Items.Add("ListValue", Type("FormField"), Items["List"]);
Item.DataPath = "List.Value";
EndProcedure
&AtClient
Procedure ListSelection(Item, SelectedValue, Field, StandardProcessing)
Status("Выполняется чтение данных");
FirstRow = ThisObject["FirstRow"];
FirstCol = ThisObject["FirstCol"];
LastRow = ThisObject["LastRow"];
LastCol = ThisObject["LastCol"];
WorksheetNumber = Item.CurrentData.Value;
Try // Открываем лист
Sheet = Book.WorkSheets(WorksheetNumber);
Except
ShowMessageBox(, "Не удалось открыть лист.");
Return;
EndTry;
// Определение версии EXCEL.
Version = Left(ExcelApp.Version,Найти(ExcelApp.Version,".")-1);
ColCount = 0;
RowCount = 0;
If Version = "8" Then
ColCount = Sheet.Cells.CurrentRegion.Columns.Count;
RowCount = Sheet.Cells.CurrentRegion.Rows.Count;
Else
// Метод SpecialCells не отображает только количество в области
// если в области несколько областей, то количество получится неверным
//ColCount = Sheet.Cells.SpecialCells(11).Column;
//RowCount = Sheet.Cells.SpecialCells(11).Row;
// Метод UsedRange количество использованных ячеек
// если первая стрчка или колонка пропущены и то они не будут включаться в количество
ColCount = Sheet.UsedRange.Columns.Count;
RowCount = Sheet.UsedRange.Rows.Count;
// Вычисляем правильное количество колонок и строк
ColCount = Sheet.UsedRange.Column + Sheet.UsedRange.Columns.Count-1;
RowCount = Sheet.UsedRange.Row + Sheet.UsedRange.Rows.Count-1;
EndIf;
If LastCol = 0 Then
LastCol = ColCount;
ElsIf ColCount < LastCol Then // не хватает колонок //Увеличение проверочного числа (как и захваченной области в самих документах) на дополнительные колонки
ShowMessageBox(, "В файле не хватает колонок.");
Return;
EndIf;
If LastRow = 0 Then
LastRow = RowCount;
ElsIf RowCount < LastRow Then // не хватает строк
ShowMessageBox(, "В файле не хватает строк.");
Return;
EndIf;
Range = Sheet.Range(Sheet.Cells(FirstRow,FirstCol), Sheet.Cells(LastRow,LastCol));
Data = Range.Value.Unload();
NotifyChoice(Data);
EndProcedure
&AtClient
Procedure OnOpen(Cancel)
Dialog = New FileDialog(FileDialogMode.Open);
Dialog.Title = "Выберите файл";
Dialog.FullFileName = "";
Dialog.Filter = "Excel документ (*.xls/*.xlsx)|*.xls?";
Dialog.Multiselect = False;
Dialog.Directory = "С:\";
Notify = New NotifyDescription("ProcessFileSelection", ThisObject);
Try
BeginPuttingFiles(Notify,Dialog, True);
Except
ErrorDescription = ErrorDescription();
ErrorInfo = ErrorInfo();
If Find(ErrorDescription, "32(0x00000020)") > 0 Then
ShowMessageBox(, "Ошибка совместного доступа к файлу. Пожалуйста сперва закройте файл.");
Else
ShowMessageBox(, ErrorDescription);
EndIf;
Cancel = True;
EndTry;
If Dialog.SelectedFiles.Count() = 0 Then
Cancel = True;
EndIf;
EndProcedure
&AtClient
Procedure ProcessFileSelection(Files, Params) Export
If Files <> Undefined Then
For Each TransferedFileDescription In Files Do
File = New File(TransferedFileDescription.FullName);
Notify = New NotifyDescription("ProcessFile", ThisObject, File);
File.НачатьПроверкуСуществования(Notify);
EndDo;
Else
Close();
EndIf;
EndProcedure
&AtClient
Procedure ProcessFile(Exists, File) Export
If Exists Then
Status("Выполняется чтение листов");
FilePath = File.FullName;
Try
ExcelApp = New COMОбъект("Excel.Application");
Except
Закрыть();
Return;
EndTry;
ExcelApp.DisplayAlerts = False;
ExcelApp.FileValidation = 1;
Try // Открываем файл
Book = ExcelApp.Workbooks.Open(FilePath);
Except
// Debug
ErrorInfo = ErrorInfo();
ErrorDescription = ErrorDescription();
// App
ExcelApp.Quit();
ExcelApp = NULL;
Close();
Return;
EndTry;
For SheetNumber = 1 To Book.WorkSheets.Count Do
ThisObject["List"].Add(SheetNumber, Book.WorkSheets(SheetNumber).Name);
EndDo;
Else
ShowMessageBox(, "Файл не найден: " + File.FullName);
Close();
EndIf;
EndProcedure
&AtClient
Procedure BeforeClose(Cancel, Exit, MessageText, StandardProcessing)
If Book <> Undefined Then
Try
Book.Close();
Except
// Debug
ErrorInfo = ErrorInfo();
ErrorDescription = ErrorDescription();
EndTry;
EndIf;
Book = NULL;
// App
If ExcelApp <> Undefined Then
Try
ExcelApp.Quit();
Except
// Debug
ErrorInfo = ErrorInfo();
ErrorDescription = ErrorDescription();
EndTry;
EndIf;
ExcelApp = NULL;
EndProcedure
// Прикрепим обработчики событий
#If Server Then
ThisForm.SetAction("OnCreateAtServer", "OnCreateAtServer");
ThisForm.SetAction("OnOpen", "OnOpen");
ThisForm.SetAction("BeforeClose", "BeforeClose");
#EndIf
2) Протестируйте загрузку
&НаСервере
Процедура ЗагрузкаНаСервере(МассивКолонкиСтроки)
// Мы знаем с какой строчки начинаются данные в загружаемом шаблоне
Для НомерСтроки = 3 По МассивКолонкиСтроки[0].Количество() Цикл
// Мы знаем в каких колонках содержатся данные в загружаемом шаблоне
Знч1 = МассивКолонкиСтроки[1-1][НомерСтроки-1]; // Значение R{ИндексСтроки}C1
Знч2 = МассивКолонкиСтроки[2-1][НомерСтроки-1]; // Значение R{ИндексСтроки}C2
Знч3 = МассивКолонкиСтроки[3-1][НомерСтроки-1]; // Значение R{ИндексСтроки}C2
// Если в указанной ячейке нету данных то пропускаем эту строчку
Если ПустаяСтрока(Знч1) Тогда
Продолжить;
КонецЕсли;
Сообщить("" + Знч1 + Символы.Таб + Знч2 + Символы.Таб + Знч3);
КонецЦикла;
КонецПроцедуры
&НаКлиенте
Процедура ОбработкаКомандыЗагрузка(Результат, Параметры) Экспорт
Если Результат = Неопределено Тогда
ИначеЕсли ТипЗнч(Результат) = Тип("Массив") Тогда
// Проверяем количество колонок в загружаемом шаблоне
Если Результат.Количество() < 3 Тогда
ПоказатьПредупреждение(,"Ошибка! В файле не хватает колонок.");
Иначе
// Проверяем определённые ячейки загружаемого шаблона
ШаблонПодходит = Истина;
ШаблонПодходит = ШаблонПодходит И Найти(Результат[01-1][2-1], "Сотрудник") > 0;
ШаблонПодходит = ШаблонПодходит И Найти(Результат[02-1][2-1], "Должность") > 0;
ШаблонПодходит = ШаблонПодходит И Найти(Результат[03-1][2-1], "Оклад") > 0;
Если ШаблонПодходит Тогда
ЗагрузкаНаСервере(Результат);
ПоказатьПредупреждение(, "Готово!");
Иначе
ПоказатьПредупреждение(, "Выбран не корректный файл для загрузки.");
КонецЕсли;
КонецЕсли;
Иначе
ПоказатьПредупреждение(, "Загрузка не поддерживается.");
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура Загрузка(Команда)
П = Новый Структура;
Оповещение = Новый ОписаниеОповещения("ОбработкаКомандыЗагрузка", ЭтотОбъект);
ОткрытьФорму("ВнешняяОбработка.БыстраяЗагрузкаИзExcel.Форма.ФормаЧтенияExcel", П,,,,, Оповещение, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
КонецПроцедуры
Тестировалось на платформе 1С:Предприятие 8.3 (8.3.16.1224).
