&НаСервере
Процедура ВыборкаЗаписейЗапросаТолькоНаКоторыеИмеютсяПользовательскиеПрава()

   // Необходимо только для баз, в которых ограничение прав доступа работает на уровне записей (RLS)
   // Данная реализация кода дает возможность выполнить запрос без ошибки
   // и выбрать только те данные, на которые у пользователя есть права
   Запрос = Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ
   |   Ссылка
   |ИЗ
   |   Документ.ПоступлениеМатериалов");

   РезультатЗапроса = Запрос.Выполнить();
   Если Не РезультатЗапроса.Пустой() Тогда // Такая проверка рекомендуется фирмой 1С
       Записи = РезультатЗапроса.Выбрать();
       Пока Записи.Следующий() Цикл
           // Обход результата запроса по каждой записи в полученной выборке
       КонецЦикла;
   Иначе // Сообщить("Данные отсутствуют!");
   КонецЕсли;

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

&НаКлиенте
Процедура ФайлНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка) //необходимо в событии "НачалоВыбора" поля ввода вызвать ДиалогВыбораФайла

    Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
    Диалог.Заголовок = "Выберите файл Excel";
    Диалог.ПредварительныйПросмотр = Ложь;
    Диалог.Фильтр = "(*.xls,*.xlsx)|*.xls;*.xlsx;|Microsoft Excel 97/2000/XP/2003 (*.xls)|*.xls|Microsoft Excel 2007/2010 (*.xlsx)|*.xlsx";

    Если ЗначениеЗаполнено(Объект.Файл) Тогда
        Диалог.ПолноеИмяФайла= Объект.Файл;
    КонецЕсли;

    Если Диалог.Выбрать() Тогда
        Объект.Файл = Диалог.ПолноеИмяФайла;
    КонецЕсли;

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

&НаСервере
Процедура ЗагрузитьИзXLS_ADODB()

    // Создание COM-объекта для соединения
    ADODB_conn = Новый COMОбъект("ADODB.Connection");

    // Установка строки соединения
    ADODB_conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;
    |Data Source="+ИмяФайла+";
    |Extended Properties=""Excel 12.0 XML;HDR=YES"";";
    ADODB_conn.Open(); // Открытие соединения

    // Создание COM-объекта для получения выборки
    ADODB_rec = Новый COMОбъект("ADODB.Recordset");
    ТекстЗапроса = "SELECT * FROM [ЛистN1$]";

    // Выборка (запрос)
    ADODB_rec.Open(ТекстЗапроса, ADODB_conn);

    // Обход результата выборки
    Пока НЕ ADODB_rec.EOF() Цикл
        ЗначениеКолонки1 = ADODB_rec.Fields.Item("КолонкаN1").Value; // Обращение по имени колонки
        ЗначениеКолонки2 = ADODB_rec.Fields.Item(0).Value; // Обращение по индексу колонки
        ADODB_rec.MoveNext();
    КонецЦикла;

    ADODB_rec.Close();
    ADODB_rec = Неопределено;
    ADODB_conn.Close();
    ADODB_conn = Неопределено;

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

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

Процедура ЗаказНарядыОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)

    СтандартнаяОбработка = Ложь;
    
    Если ТипЗнч(ВыбранноеЗначение) = Тип("ДокументСсылка.ЗаказНаряд") Тогда
        Если ЗаказНаряды.НайтиСтроки(Новый Структура("ЗаказНаряд", ВыбранноеЗначение)).Количество() = 0 Тогда
            НоваяСтрока = ЗаказНаряды.Добавить();
            НоваяСтрока.ЗаказНаряд = ВыбранноеЗначение;

            // также здесь можно выполнить дополнительные обработки
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры

&НаСервере
Процедура ЗагрузитьИзXLSНапрямую()// Начиная с версии 1С 8.3.8 (только &НаСервере)

    ТабличныйДокумент.Прочитать(Объект.Файл, СпособЧтенияЗначенийТабличногоДокумента.Значение); //Способ чтения: Значение, Текст

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

Функция Получить_сохраненные_пароли() Экспорт // из регистра

    //   Функция позволяет:
    // получить пароль системной учетной записи 1С
    // учетный данные для обмена 1С с интернет магазином
    // внутренний адрес менеджера сервиса
    // пароль интернет поддержки пользователей
    // и другие учетные жданные 1С

    УстановитьПривилегированныйРежим(Истина);

    ДанныеСтр = Новый Структура();

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |   БезопасноеХранилищеДанных.Данные КАК Данные
    |ИЗ
    |   РегистрСведений.БезопасноеХранилищеДанных КАК БезопасноеХранилищеДанных
    |ГДЕ
    |   БезопасноеХранилищеДанных.Владелец = &Владелец";

    //будет выведен не весь список, а по конкретному владельцу
    //Запрос.УстановитьПараметр("Владелец", Владелец);
    РезультатЗапроса = Запрос.Выполнить().Выбрать();

    Если РезультатЗапроса.Следующий() Тогда
        Если ЗначениеЗаполнено(РезультатЗапроса.Данные) Тогда
            ДанныеИзХранилища = РезультатЗапроса.Данные.Получить();
            Если ЗначениеЗаполнено(ДанныеИзХранилища) Тогда
                ЗаполнитьЗначенияСвойств(ДанныеСтр, ДанныеИзХранилища);
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;

    УстановитьПривилегированныйРежим(Ложь);

    Возврат ДанныеСтр;

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