Загрузка из Excel с выбором листа на управляемых формах

///*
//* 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

&НаСервере
Процедура ЗагрузкаНаСервере(МассивКолонкиСтроки)
    
    // Мы знаем с какой строчки начинаются данные в загружаемом шаблоне
    Для НомерСтроки = 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", П,,,,, Оповещение, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);
КонецПроцедуры