主页 / user-600425

Stepan Boksgorn's questions

Martin Hope
Stepan Boksgorn
Asked: 2024-06-24 19:02:37 +0800 CST
  • 6

[代码和错误屏幕][1]

代码本身：

 &НаКлиенте
    Процедура ПутьКФайлуНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка)
        Проводник=Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
        Проводник.Заголовок="Выберите Файл";
        Оповещение = Новый ОписаниеОповещения("ПослеВыбораФайла", ЭтотОбъект);
        Проводник.Показать(Оповещение); 
    КонецПроцедуры 

                     

&НаКлиенте
Процедура ПослеВыбораФайла(ВыбранныеФайлы, ДополнительныеПараметры) Экспорт
    
    Если ВыбранныеФайлы = Неопределено Тогда
        Возврат;
    КонецЕсли;
    
    Объект.ПутьКФайлу = ВыбранныеФайлы[0];
    

КонецПроцедуры


&НаКлиенте
Процедура ЗагрузитьДанныеИзExcel(Команда) 
    
    ПутьКФайлу= ВыбратьФайл();             
    
    Если ПутьКФайлу=Неопределено Тогда 
        Предупреждение("Файл не выбран");
        Возврат;
    КонецЕсли;
    
    
    Книга = Excel.Workbooks.Open(ПутьКФайлу);
    Лист = Книга.Worksheets(1);

    
    НомерСтроки = ВвестиНомерСтроки();

    Если НомерСтроки = Неопределено Тогда
        Предупреждение("Номер строки не введен!");
        Возврат;
    КонецЕсли;

    
    ДанныеСтроки = Лист.Rows(НомерСтроки).Value;

    
    Книга.Close();
    Excel.Quit();

    ОбработатьДанные(ДанныеСтроки);

    Сообщить("Данные успешно загружены!");
КонецПроцедуры                            
&НаКлиенте
Функция ВыбратьНомерСтроки() Экспорт

    ФормаВвода = ПолучитьФорму("ОбщаяФорма.ИмяТвоейФормы");
    Поле = ФормаВвода.Элементы.Добавить("НомерСтроки", Тип("Число"));
    ФормаВвода.ОткрытьМодально();
    Возврат Поле.Значение;  

КонецФункции
1с