connection » Поиск

Результаты по ключевому слову: connection

Как принудительно завершить работу всех пользователей информационной базы? Категория: Пользователь, роль доступа, интерфейс

Функция выборки данных из SQL сервера и передача во временную таблицу 1С

Код 1C v 8.х

 Функция ЗапросSQL (SQLServer,Login,Password,ЗапросSQL)

   

  СтрокаСоединения = ("Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +  

      (";UID=") + Login + ("; PWD=") + Password + (";");

    

     СоединениеSQL = Новый ComObject("ADODB.Connection");

  СоединениеSQL.ConnectionString=СтрокаСоединения;

   Попытка

    СоединениеSQL.Open();

    Состояние ("Подключение к серверу SQL...");

   Исключение

    Сообщить(ОписаниеОшибки());

    Возврат Ложь;

   КонецПопытки;

    

  Состояние ("Выполнение запроса SQL...");

  ЗаписиSQL = Новый ComObject("ADODB.RecordSet");

  ЗаписиSQL.ActiveConnection = СоединениеSQL;

  ЗаписиSQL = СоединениеSQL.Execute (ЗапросSQL);

   

  Таблица = Новый ТаблицаЗначений;

  Состояние ("Заполнение временной таблицы...");

  Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

   ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;  

   Таблица.Колонки.Добавить(ИмяСтолбца);

   //Сообщить(ИмяСтолбца);

  КонецЦикла;

   

  Пока ЗаписиSQL.EOF=0 Цикл    // Заполнение созданной таблицы

    

   НоваяСтрока =  Таблица.Добавить();

   Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

    НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

    //Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

   КонецЦикла;

          

   ЗаписиSQL.MoveNext();

    

  КонецЦикла;

   

  Состояние ("Закрываем соединение с SQL...");

     ЗаписиSQL.Close();

  СоединениеSQL.Close();

   

  Возврат Таблица;   // Возврат таблицы значений запроса SQL

   

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

Категория: COM-объекты, WMI, WSH

Формирование списка зарегистрированных информационных баз системы 1Cv8 Категория: Полезные, Универсальные Функции

Получить статус сетевой карты(устройства), Работает или уже нет

Код 1C v 7.x

 // Глобальная переменная в которой будем хранить

// известные нам типы статусов сетевой карты

перем сзТипСтатуса;

// Глобальная переменая

перем обШелл;



//*******************************************

// стрСтатусАдаптера(стрИмя = "")

//

// Параметры:

//  стрИмя - Строка. Имя сетевой статус которой надо определить.

//           В том виде как показа в сетвых подключениях.

//

// Возвращаемое значение:

//  Строка. Статус заданой сетевой.

//

// Описание:

//  Функция определяет статус сетевой.

//

функция стрСтатусАдаптера(стрИмя = "")

    Ответ = "";

    // Попытаемся получить статус через контрол скриптов

    попытка

        сзСтевые = создатьобъект("списокзначений");

        // Выполняем скрипт. Из полученного значения пытаемся

        // сформировать список значений

        сзСтевые = значениеизстроки(обШелл.Run("strGetAdapterInfo"));

    исключение

        // По каким-то причинам выполнить скрипт не удалось

        Ответ = "Статус установить не удалось";

    конецпопытки;

    // Если в возращаемом значение пустая строка, то скрипт

    // выполнился. Можно смотреть дальше.

    если Ответ = "" тогда

        // Получаем индекс статуса сетевой.

        стрСтатус = строка(сзСтевые.Получить(стрИмя));

        // Проверяем на пустое значение индекса.

        если пустоезначение(стрСтатус) = 1 тогда

            // Если индекс пуст, то сетевая суказанным именем отсуствует

            Ответ = "Сетевая с таким именем отсуствует";

        иначе

            // Ищем индекс статуса в известных нам типов статуса.

            чисПозиция = сзТипСтатуса.НайтиЗначение(стрСтатус);

            если чисПозиция = 0 тогда

                // Не нашли. Смотрим MSDN

                Ответ = "Не известный тип статуса сетевой";

            иначе

                // Получаем строковое представление статуса.

                сзТипСтатуса.ПолучитьЗначение(чисПозиция, Ответ);

            конецесли;

        конецесли;

    конецесли;

    // Возвращаем полученный статус

    возврат Ответ;

конецфункции;



//*******************************************

// Этот блок обязателен.

// Необходимо что бы он отработал до первого вызова

// функции стрСтатусАдаптера

//*******************************************

// Создаем объект для управления скриптами

обШелл = создатьобъект("MSScriptControl.ScriptControl");

// Устанавливаем рабочий язык для выполнения скриптов

обШелл.Language = "VBScript";

// Сам срипт который соберет статусы всех сетевых устройств

тхтКод = "

|function strGetAdapterInfo()

|  dim objNetworkAdapter

|  Answer = ""{""""СписокЗначений"""",{""

|  set objWMI = getobject(""WinMgmts:\\.\Root\CIMV2"")

|  set objNetworkAdapters = objWMI.ExecQuery(""S_elect * FROM Win32_NetworkAdapter"", , 48)

|  for each objNetworkAdapter in objNetworkAdapters

|    Answer = Answer & ""{{""""Строка"""","""""" & objNetworkAdapter.NetConnectionStatus &_

|             """"""}, """""" & objNetworkAdapter.NetConnectionID & """""",""""0""""}""

|            

|  next

|  Answer = Answer & ""}}""

|  strGetAdapterInfo = Answer

|  end function";

// Добавим наш скрипт в котрол скриптов

обШелл.AddCode(тхтКод);

// Создадим список значений в который поместим все известные нам

// виды статуса сетевых устройств.

сзТипСтатуса = создатьобъект("списокзначений");

// Поместим в список значений виды статусов их строковое представление

сзТипСтатуса.ДобавитьЗначение("0", "Отключенно");

сзТипСтатуса.ДобавитьЗначение("1", "Подключение");

сзТипСтатуса.ДобавитьЗначение("2", "Подключено");

сзТипСтатуса.ДобавитьЗначение("3", "Отключение");

сзТипСтатуса.ДобавитьЗначение("4", "Устройство не представленно");

сзТипСтатуса.ДобавитьЗначение("5", "Устройство отключено");

сзТипСтатуса.ДобавитьЗначение("6", "Устройство не исправно");

сзТипСтатуса.ДобавитьЗначение("7", "Соединение разорвано");

сзТипСтатуса.ДобавитьЗначение("8", "Аутентификация");

сзТипСтатуса.ДобавитьЗначение("9", "Аутентификация прошла успешно");

сзТипСтатуса.ДобавитьЗначение("10", "Аутентификация не прошла");

сзТипСтатуса.ДобавитьЗначение("11", "Неправильный адресс");

сзТипСтатуса.ДобавитьЗначение("12", "Требуется полномочия");

IUnknown

Категория: COM-объекты, WMI, WSH

Запрос к базе данных SQL

Код 1C v 8.х

 Функция ПодключитьCOMОбъект(Путь) Экспорт 

    Отказ = Ложь;

    

    COMСоединение = Новый COMОбъект("ADODB.Connection");

    COMСоединение.ConnectionString  = ".....";

    COMСоединение.ConnectionTimeOut = 1200;

    COMСоединение.CursorLocation    = 3;

    

    Попытка

        COMСоединение.Open(COMСоединение.ConnectionString);

    Исключение

        Отказ = Истина;

        COMСоединение = "";

        Предупреждение("Невозможно установить соединение - " + ОписаниеОшибки());

        Возврат НЕ Отказ;

    КонецПопытки;

    

    Возврат НЕ Отказ;

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



Процедура КнопкаВыплонитьНажатие(Кнопка)

    Если НЕ ПодключитьCOMОбъект(ПутьКФайлуГДБ) Тогда

        ЗакрытьФормуИндикатора();

        Возврат;    

    КонецЕсли;





    КомандаАДО = Новый COMОбъект("ADODB.Command");

    

    ТекстЗапроса = "S_elect id from nomenclature where ext_1c_id = 1";



    Рекордсет = Новый COMОбъект("ADODB.Recordset");

    Попытка

        Рекордсет = КомандаАДО.Execute();

    Исключение

        Предупреждение("Не получилось выполнить запрос!" + " - " + ОписаниеОшибки());

    КонецПопытки;

   Рекордсет.MoveFirst();                                                               

    Пока Рекордсет.EOF() = 0 Цикл   

       ОбработкаПрерыванияПользователя();

           айди = Рекордсет.Fields("id").Value;

           Сообщить(айди);

        КонецЦикла; 

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

еще пример:

Код 1C v 8.х

 стрПодключения = "Driver={SQL Server};"

стрПодключения = стрПодключения + ИмяСервера + ";";

стрПодключения = стрПодключения +"Uid=" + ИмяПользователя + ";";

стрПодключения = стрПодключения + "Pwd=" + Пароль + ";";

стрПодключения = стрПодключения + "DataBase =" + ИмяБазы + ";";

стрПодключения = стрПодключения + "Pwd=" + Пароль + ";";



Connection = Новый COMОбъект("ADODB.Connection");

Connection.OpenServer = стрПодключения;



RS = Новый COMОбъект("ADODB.Recordset");



// Запрос к базе на языке SQL запросов.

RS.Open("S_elect * from TradeUnit", Connection);



Пока RS.EOF() = 0 Цикл



// Можно обращаться и обрабатывать значения полей выборки.

ИД = RS.Fields("ID").Value;

Код = RS.Fields("Code").Value;

   // Обработка других полей

RS.MoveNext();

КонецЦикла;



RS.Close();

Connection.Close();

Категория: COM-объекты, WMI, WSH

Пример подключения к MySQL базе

Код 1C v 8.х

 // Пример 1

Сервер="IP-адрес-сайта"; // IP адрес сайта

ПользовательСервера="имя-пользователя-базы-данных"; // имя пользователя базы данных

ПарольСервера="пароль-пользователя-базы-данных"; // пароль пользователя базы данных

БазаСервера="название-SQL-базы-данных";  // название SQL базы данных

Соединение = Новый COMОбъект("ADODB.Connection");

Соединение_param = "driver={MySQL ODBC 5.1 Driver}; server="+СокрЛП(Сервер)+"; uid="+СокрЛП(ПользовательСервера)+"; pwd="+СокрЛП(ПарольСервера)+"; database="+СокрЛП(БазаСервера)+"; STMT=SET CHARACTER SET utf8";

Try

    Соединение.open(Соединение_param);

    СоединениеУстановлено = Истина;

    Сообщить("Соединение установлено");

Except

    ТекстСообщения = ""+ТекущаяДата()+" Connection error: "+ОписаниеОшибки();

    Сообщить(ТекстСообщения);

    СоединениеУстановлено = Ложь;

    return;

EndTry;

Код 1C v 8.х

 ]// Пример 2 

Соединение = Новый COMОбъект("ADODB.Connection");

ConnectionString = "driver={SQL Server}; server=; uid=; Pwd=; Database = "; // это для MS SQL строка

Попытка

  Соединение.Open(ConnectionString);

  Сообщить("Соединение осуществлено в "+ТекущаяДата());

Исключение

  Предупреждение("Невозможно установить соединение");  

  Возврат;

КонецПопытки;



ТекстЗакпроса = "....................";

НаборЗаписей = Новый COMОбъект("ADODB.RecordSet"); 

НаборЗаписей.ActiveConnection = Соединение;

НаборЗаписей.Open(ТекстЗапроса);



Пока не НаборЗаписей.Eof() Цикл

//  ............код обработки.....................

НаборЗаписей.MoveNext();

КонецЦикла;

НаборЗаписей.Close();

Соединение.Close();

Сообщить("Обработка завершена в "+ТекущаяДата());

Код 1C v 7.x

 DB = СоздатьОбъект("ODBCDatabase");

DB.Соединение("DRIVER={MySQL ODBC 5.1 Driver}; SERVER=IP_Супер_мега_сервера; DATABASE=Мега_база; USER=Супер_юзер; PASSWORD=пароль_супер_мега_юзера; OPTION=3;");



RS = СоздатьОбъект("ODBCRecordSet");

RS.SetDatabase(DB);



Если RS.Выполнить("set names cp1251") = 0 Тогда

    Сообщить("Ошибка подключения к MySQL" + РазделительСтрок + RS.ПолучитьОписаниеОшибки());

    СтатусВозврата(0);

    Возврат;

КонецЕсли;

Используя DSN. Большой плюс dsn есть режим проверки и также в текстах 1с
уже не нужен пользователь и пароль. Все детали скрыты в dsn
вот мой успешно работающий код для MY SQL

Код 1C v 7.x

 sql = СоздатьОбъект("ODBCDatabase");

Имя0 = "DragNet";

Фл1 = sql.Соединение("DSN=" + Имя0 + ";");

Если Фл1 = 0 Тогда

Сообщить("Не смогли открыть DSN = " + Имя0);

	Сообщить("Ошибка = " +  sql.ПолучитьОписаниеОшибки() );

Иначе

	sql.УстТолькоЧтение(1);

КонецЕсли;

rc = СоздатьОбъект("ODBCRecordSet");

rc.УстБД(sql);

еще, драйвер 3.51:

Код 1C v 7.x

 //Тестируем установку параметров соединения

клМускул = СоздатьОбъект("ODBCDatabase");

клМускул.СтрокаСоединения = "Driver={MySQL ODBC 3.51 Driver};Server=localhost;

|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;

|Option=3;";

Результат = клМускул.СтрокаСоединения;

ПроверитьРавенство(Результат,"Driver={MySQL ODBC 3.51 Driver};Server=localhost;

|Port=3306;Database=_1c;User=_1c_user; Password=_1c_pass;

|Option=3;");

Категория: COM-объекты, WMI, WSH

Заполнение табличного поля данными таблицы значений, полученной из SQL - Запроса

Код 1C v 8.х

 Процедура ЗаполнитьНажатие(Элемент)

запрос = СоставитьЗапрос(); //Функция СоставитьЗапрос() возвращает строку запроса

ТаблицаВывода = Новый ТаблицаЗначений;

ТаблицаВывода.Очистить();

ТаблицаВывода = ЗапросКСкуль(CRM_MSSQL_Сервер,CRM_MSSQL_БазаДанных,CRM_MSSQL_Логин,CRM_MSSQL_Пароль,Запрос);



ТабличноеПоле.Очистить();

ЭлементыФормы.ТабличноеПоле.Значение=ТаблицаВывода;

ЭлементыФормы.ТабличноеПоле.СоздатьКолонки();



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



Функция ЗапросКСкуль(SQLServer,DSN,Login,Password,txtSQL)

Соединение = Новый COMОбъект("ADODB.Connection");

НаборЗаписей = Новый ComObject("ADODB.RecordSet");

Команда = Новый COMОбъект("ADODB.Command");



Соединение.ConnectionString = ("Provider=SQLOLEDB; Data Source = ") + SQLServer +

    (";Initial Catalog=") + DSN + (";UID=") + Login + ("; PWD=") + Password + (";");

Соединение.ConnectionTimeOut = 15;

//Попытка

 Соединение.Open();

// Сообщить("Connect");

//Исключение

// Сообщить("No connect");

//КонецПопытки;



Команда.ActiveConnection = Соединение;

Команда.CommandText = txtSQL;

//Попытка

 НаборЗаписей = Команда.Execute ();

// Сообщить("Add record");

//Исключение

// Сообщить("No I_nsert");

//КонецПопытки;



Таблица = Новый ТаблицаЗначений;

//Состояние ("Заполнение временной таблицы...");



Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл   //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =НаборЗаписей.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 //Сообщить(ИмяСтолбца);            // Тестовая строка

КонецЦикла;

 

Пока НЕ НаборЗаписей.EOF Цикл        // Заполнение созданной таблицы

 НоваяСтрока =  Таблица.Добавить();

 Для НомерСтолбца = 0 По НаборЗаписей.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,НаборЗаписей.Fields(НомерСтолбца).Value);

  //Сообщить ("Test " + ЗаписиSQL.Fields(НомерСтолбца).Value +  ЗаписиSQL.Fields(НомерСтолбца).Name);

 КонецЦикла;

 НаборЗаписей.MoveNext();

КонецЦикла;



//Состояние ("Закрываем соединение с SQL...");

Соединение.Close();

Возврат Таблица;

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

Код 1C v 8.х

 Функция ЗапросSQL (SQLServer,Login,Password,ТекстSQL)   //Функция выборки данных из SQL сервера и передача во временную таблицу 1С



СтрокаСоединения = ("Provider=SQLOLEDB;Driver={SQL Server}; Deleted=No; Data Source = ") + SQLServer +

    (";UID=") + Login + ("; PWD=") + Password + (";");

              

   Подключение = Новый ComObject("ADODB.Connection");

Подключение.ConnectionString=СтрокаСоединения;

 Попытка

  Подключение.Open(СтрокаСоединения);

  Состояние ("Подключение к серверу SQL...");

 Исключение

  Сообщить(ОписаниеОшибки());

  Возврат Ложь;

 КонецПопытки;

 

СоединениеSQL = Новый COMObject("ADODB.Command");

СоединениеSQL.ActiveConnection = Подключение;

СоединениеSQL.NamedParameters = True;

СоединениеSQL.CommandText = ТекстSQL;

СоединениеSQL.CommandType = 1;

//СоединениеSQL.Prepared = Истина;



Param1 = СоединениеSQL.CreateParameter("n",3,1,1,1);

СоединениеSQL.Parameters.Append(Param1);



Param2 = СоединениеSQL.CreateParameter("ДатаПриходаС",200,1,8,Формат(НачалоПериода,"ДФ=ггггММдд"));//Формат(НачалоПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param2);



Param3 = СоединениеSQL.CreateParameter("ДатаПриходаПо",200,1,8,Формат(КонецПериода,"ДФ=ггггММдд"));

СоединениеSQL.Parameters.Append(Param3);

   

СоединениеSQL.Parameters.Refresh();



Состояние ("Выполнение запроса SQL...");

ЗаписиSQL = Новый ComObject("ADODB.RecordSet");



ЗаписиSQL = СоединениеSQL.Execute();



 

Таблица = Новый ТаблицаЗначений;

Состояние ("Заполнение временной таблицы...");

Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл //Создание и добавление колонок во временную таблицу

 ИмяСтолбца =ЗаписиSQL.Fields.Item(НомерСтолбца).Name;

 Таблица.Колонки.Добавить(ИмяСтолбца);

 Сообщить(ИмяСтолбца);

КонецЦикла;





Пока ЗаписиSQL.EOF = 0 Цикл // Заполнение созданной таблицы

 

 НоваяСтрока =  Таблица.Добавить();

 Для НомерСтолбца = 0 По ЗаписиSQL.Fields.Count-1 Цикл

  НоваяСтрока.Установить(НомерСтолбца,ЗаписиSQL.Fields(НомерСтолбца).Value);

  Сообщить ("Test " + ЗаписиSQL.Fields(ИмяСтолбца).Value + ИмяСтолбца);

 КонецЦикла;

       

 ЗаписиSQL.MoveNext();

 

КонецЦикла;



Состояние ("Закрываем соединение с SQL...");

   ЗаписиSQL.Close();

Подключение.Close();



Возврат Таблица;   // Возврат таблицы значений запроса SQL



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

Категория: COM-объекты, WMI, WSH

Подключение к EXCEL и чтение данных из листа Excel

Код 1C v 8.х

 Ex = Новый COMObject("Excel.Application");

   Ex.Workbooks.Open(Путь);

   Ex.Visible = 1;    

   ТекЛист=Ex.WorkSheets(1);        

   Для Ячейка = 1 по 400 цикл

       Если НЕ  ТекЛист.Cells(Ячейка,1).Value  = Неопределено тогда

           Сообщить(Строка(ТекЛист.Cells(Ячейка,1).Value));    

           Карта = Справочники.Номенклатура.НайтиПоКоду(ИзЧислаВСтроку(ТекЛист.Cells(Ячейка,1).Value));    

           Если Карта.Пустая() тогда        

               Сообщить(" Пустой элемент "  + ТекЛист.Cells(Ячейка,1));

           иначе

               Объект = Карта.ПолучитьОбъект();

               Объект.ОсновнойПоставщик = ОсновнойКлиент;

               Объект.Записать();

               конецесли;    

       конецесли;

   конеццикла;

Примеры процедур для чтения данных из EXCEL

Код 1C v 8.х

 

// Функция получает данные из файла Excel

//

// Параметры:

//   пФайл - Имя файла

//   пЛист - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//

// Возвращаемое значение:

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_ADO(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0) Экспорт



    #Если Клиент Тогда

    Состояние("Установка соединения с Excel");

    #КонецЕсли



    //ЗаголовкиВСтроке1 = "HDR=YES;"

    ЗаголовкиВСтроке1 = "HDR=NO;";



    СтрокаСоединения ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " + СокрЛП(пФайл) +" ;Extended Properties=""Excel 8.0;" + ЗаголовкиВСтроке1 + "IMEX=1;""";



    Connection = Новый COMОбъект("ADODB.Connection");

    Connection.ConnectionString =  СтрокаСоединения;



    Попытка

        Connection.Open();

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

    КонецПопытки;



    RS = Новый COMОбъект("ADODB.Recordset");



    ТекстЗапроса =

    "S_elect

    |    Лист.*

    |FROM

    |    [" + пЛист + "$] as Лист";



    Попытка

        RS.Open(ТекстЗапроса, Connection);

    Исключение

        Сообщить ("Проблемы с выполнением запроса");

        Возврат Неопределено;

    КонецПопытки;



    Таблица = Новый ТаблицаЗначений;



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По RS.Fields.Count Цикл

            Поле = RS.Fields.Item(Счетчик - 1);

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик, , Поле.Name);

        КонецЦикла;



    Иначе



        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

        КонецЦикла;



    КонецЕсли;



    НомерСтроки = 0;

    КолвоСтрок  = RS.RecordCount;



    Пока RS.EOF() = 0 Цикл



        НомерСтроки = НомерСтроки + 1;



        #Если Клиент Тогда

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

        ОбработкаПрерыванияПользователя();

        #КонецЕсли



        Если НомерСтроки < НачСтрока Тогда

            RS.MoveNext();

            Продолжить;

        КонецЕсли;



        Если КонСтрока > 0 И НомерСтроки > КонСтрока Тогда

            Прервать;

        КонецЕсли;



        НоваяСтрока = Таблица.Добавить();



        Если СтруктураКолонок = Неопределено Тогда



            Для Счетчик = 1 По RS.Fields.Count Цикл



                Поле = RS.Fields.Item(Счетчик - 1);

                НоваяСтрока["К" + Счетчик] = Поле.Value;



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                Поле = RS.Fields.Item(КлючИЗначение.Значение - 1);

                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;



            КонецЦикла;



        КонецЕсли;



        // Обработка других полей

        RS.MoveNext();



    КонецЦикла;



    // Завершение работы



    RS.Close();

    Connection.Close();



    Возврат Таблица;



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



// Функция получает данные из файла Excel

//

// Параметры:

//   пФайл     - Имя файла

//   пЛист     - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//   XLSОбъект - COM объект типа "Excel.Application"

//

// Возвращаемое значение:

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_COM(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт



    #Если Клиент Тогда

    Состояние("Открытие Excel");

    #КонецЕсли



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

    КонецПопытки;



    Лист = Book.Sheets(1);

    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;



    Таблица = Новый ТаблицаЗначений;



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По КолвоКолонок Цикл

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

        КонецЦикла;



    Иначе



        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

        КонецЦикла;



    КонецЕсли;



    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

    КонСтрока = Мин(КонСтрока, КолвоСтрок);



    Для НомерСтроки = НачСтрока По КонСтрока Цикл



        #Если Клиент Тогда

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КонСтрока));

        ОбработкаПрерыванияПользователя();

        #КонецЕсли



        НоваяСтрока = Таблица.Добавить();



        Если СтруктураКолонок = Неопределено Тогда



            Для НомерКолонки = 1 По КолвоКолонок Цикл



                Поле = Лист.Cells(НомерСтроки, НомерКолонки);

                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Поле.Value;



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                Поле = Лист.Cells(НомерСтроки, КлючИЗначение.Значение);

                НоваяСтрока[КлючИЗначение.Ключ] = Поле.Value;



            КонецЦикла;



        КонецЕсли;



    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат Таблица;



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



// Функция получает данные из файла Excel

//

// Параметры:

//   пФайл     - Имя файла

//   пЛист     - Имя листа с данными

//   СтруктураКолонок - Структура вида "ИмяКолонки" - "НомерКолонки"

//                      если не задано, созадуться колонки вида "К1", "К2"

//   XLSОбъект - COM объект типа "Excel.Application"

//

// Возвращаемое значение:

//   ТаблицаЗначений

//

Функция Excel_ПолучитьДанные_COMArray(пФайл, пЛист, СтруктураКолонок = Неопределено, Знач НачСтрока = 0, Знач КонСтрока = 0, XLSОбъект = Неопределено) Экспорт



    #Если Клиент Тогда

    Состояние("Открытие Excel");

    #КонецЕсли



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Сообщить ("Проблемы с подключением к Excel" );

        Возврат Неопределено;

    КонецПопытки;



    Лист = Book.Sheets(1);

    КолвоКолонок = Лист.Cells(1,1).SpecialCells(11).Column;

    КолвоСтрок   = Лист.Cells(1,1).SpecialCells(11).Row;



    Таблица = Новый ТаблицаЗначений;



    Если СтруктураКолонок = Неопределено Тогда



        Для Счетчик = 1 По КолвоКолонок Цикл

            Колонка = Таблица.Колонки.Добавить("К" + Счетчик);

        КонецЦикла;



    Иначе



        МаксимальныйНомерКолонки = 0;

        Для каждого КлючИЗначение Из СтруктураКолонок Цикл

            Колонка = Таблица.Колонки.Добавить(КлючИЗначение.Ключ);

            МаксимальныйНомерКолонки = Макс(МаксимальныйНомерКолонки, КлючИЗначение.Значение);

        КонецЦикла;



        КолвоКолонок = Мин(КолвоКолонок, МаксимальныйНомерКолонки);



    КонецЕсли;



    НачСтрока = ?(НачСтрока = 0, 1, НачСтрока);

    КонСтрока = ?(КонСтрока = 0, КолвоСтрок, КонСтрока);

    КонСтрока = Мин(КонСтрока, КолвоСтрок);



    // Массив типа COMSafeArray

    Массив = Лист.Range(Лист.Cells(НачСтрока, 1), Лист.Cells(КонСтрока, КолвоКолонок)).Value;

    КолвоСтрок   = Массив.GetUpperBound(1);



    Для НомерСтроки = 1 По КолвоСтрок Цикл



        #Если Клиент Тогда

        Состояние("Чтение файла: " + Формат(НомерСтроки) + " из " + Формат(КолвоСтрок));

        ОбработкаПрерыванияПользователя();

        #КонецЕсли



        НоваяСтрока = Таблица.Добавить();



        Если СтруктураКолонок = Неопределено Тогда



            Для НомерКолонки = 1 По КолвоКолонок Цикл



                НоваяСтрока["К" + Формат(НомерКолонки, "ЧГ=0")] = Массив.GetValue(НомерКолонки, НомерСтроки);



            КонецЦикла;



        Иначе



            Для каждого КлючИЗначение Из СтруктураКолонок Цикл



                НоваяСтрока[КлючИЗначение.Ключ] = Массив.GetValue(КлючИЗначение.Значение, НомерСтроки);



            КонецЦикла;



        КонецЕсли;



    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат Таблица;



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



// Функция получает список листов Excel

//

// Параметры:

//   пФайл - Имя файла

//   XLSОбъект - COM объект типа "Excel.Application"

//

// Возвращаемое значение:

//   СписокЗначений

//

Функция Excel_ПолучитьСписокЛистов(пФайл, XLSОбъект = Неопределено) Экспорт



    Если XLSОбъект = Неопределено Тогда

        XLSОбъект = Новый COMОбъект("Excel.Application");

        XLSОбъект.Visible       = Ложь;

        XLSОбъект.DisplayAlerts = Ложь;

    КонецЕсли;



    Попытка

        Book = XLSОбъект.Workbooks.Open(пФайл, , Истина);

    Исключение

        Возврат Новый СписокЗначений;

    КонецПопытки;



    СписокЛистов = Новый СписокЗначений;

    Для каждого Лист Из XLSОбъект.Sheets Цикл

        СписокЛистов.Добавить(Лист.Name);

    КонецЦикла;



    XLSОбъект.Application.Quit();

    Возврат СписокЛистов;



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

Код 1C v 7.x

 Попытка

  Excel = СоздатьОбъект("Excel.Application");

 Исключение

  Сообщить(ОписаниеОшибки()+"; программа Excel не установлена на данном компьютере!");

     Возврат;

 КонецПопытки;

РабочиеКниги=Excel.WorkBooks;  // создаем рабочую книгу



 Попытка // открываем файл

  Отчет=РабочиеКниги.Open(Каталог+ИмяФайла); 

 Исключение 

  Сообщить(ОписаниеОшибки()+"; фаил с макросом не найден!");

  Возврат;

 КонецПопытки;



// заносим в таблицу какие-либо данные



 Лист = Отчет.Worksheets(1);



 Для Ном=1 По 20 Цикл

      Ячейка = Лист .Cells(ном,1); Ячейка.Value;

      Сообщить(Ячейка );

 КонецЦикла; 



Excel.Visible=1;



Попытка

      Отчет.Save();

Исключение

     Сообщить(ОписаниеОшибки()+"; не могу сохранить отчет!");

  Возврат;

 КонецПопытки;

Категория: Работа с Microsoft Office и OpenOffice

Коды ошибок 1Сv8 800* Категория: Системные Ошибки