[c83]

Здесь я расскажу как правильно формировать SQL запрос к EXEL дабы правильно подрубаться через разные методы подключения и создания ComОбьектов, так как в инете много разного пишут по этому поводу но конкретики что делать нет....

Приступим, создаем или открываем заполненную таблицу exel, далее заходим во вкладку данные выбираем "Из других источников и выбираем ИЗ Microsoft Quer" далее выбираете источник Базы Данных "Exel Files" далее будет выбор книги не стал делать скрин так как там просто нужно выбрать файл какой мы открываем("Пользователь /ПутьФайла/Файл"), далее появится форма создания запроса здесь выбираем нужный лист жмем стрелку переноса в столбцы запроса жмём далее, пропускаем все предложенные варианты, так как там будет предрлагатся задать правило отбора данных, порядок сортировки и тп. задача стояла в простом запросе так что пропускаем все условия, далее на заключительном шаге выбираем "Просмотр или изменение данных Microsoft Quer" жмём готово.

Откроется "Microsoft Query" представляет собой программу для переноса данных из внешних источников в программы Microsoft Office, в частности Microsoft Excel - это из справки о программе, а на деле это программа  дает возможность строить правильный запрос к exel как сложные так и простые, о построении сложных подробнее можно почитать в справке о программе, а чтобы увидеть как обратится к exel из 1с достаточно нажать кнопку SQL так называемый режим SQL и мы увидим запрос SQL который можно использовать при написании выгрузки и загрузки exel... в моём случае загрузка в бд через ADODB.Connection упиралась в SQLзапрос, так как я не мог его построить правильно, а здесь уже готовый запрос который подходит по синтаксису к 1с. 





Пример кода чтения EXEL.



Функция ВыполнитьЗагрузку(ПутьКФайлу) Экспорт     

   Файл=Новый Файл(ПутьКФайлу);   

     Если Файл.Существует() Тогда        Стр_Файл=Файл.ПолноеИмя;     

   // Отрезаем слеш если он есть в конце пути        Стр_Путь=Файл.Путь; 

       Если Прав(Стр_Путь,1)="\" Тогда            Стр_Путь=Лев(Стр_Путь,СтрДлина(Стр_Путь)-1); 

      КонецЕсли;        // Строка корнекта        Стр_Конект = "Driver={Microsoft Excel Driver (*.xls)}; 

       |DriverId=790;

        |Dbq="+Стр_Файл+";

        |DefaultDir="+Стр_Путь+";"; 

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

       Попытка            Об_Конект.Open(Стр_Конект);  

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

           Сообщить ("Не возможно подключится к Microsoft Excel Driver!!!            

|Возможно файл ["+Стр_Файл+"] открыт другим пользователем.");

            Возврат Ложь;        КонецПопытки;                

 //формируем запрос       

  //Здесь есть нюанс первая строка данных всегда будет являться заголовком 

        //если она пустая то имена клонок формируются следующим образом F<Номер колонки>  

      Стр_SQL = "SELECT `Лист1$`.Город,`Лист1$`.Заправка FROM`C:\Users\User_scan\Desktop\файл.xls`.`Лист1$``Лист1$`";

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

        //если неудача тогда след. присвоение должно взлететь 

       //Стр_SQL = "SELECT "+Стр_КолонкиВыбора+" FROM [A"+Ч_Начало+":AZ100000] WHERE "+Стр_УсловиеКлючей;

                        Попытка            Об_РекордСет=Об_Конект.Execute(Стр_SQL);

        Исключение            Сообщить("Не удадлось выполнить запрос к файлу Excel           

 |"+ ОписаниеОшибки(),СтатусСообщения.Важное); 

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

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

       Номер = 1;      

  Пока НЕ Об_РекордСет.EOF Цикл            

// Получаем данные из Об_РекордСет 

           // ...            Номер = Номер +1;

            //Сообщить("ВСЕ ОК!!!"); 

           Для каждого ОБ_Поле Из Об_РекордСет.Fields Цикл  

              // Пример вывода информации Сообщить(ОБ_Поле.Name,Об_РекордСет.Fields(ОБ_Поле.Name).value); 

            КонецЦикла;  

          // ...            Об_РекордСет.MoveNext(); 

       КонецЦикла;  

      Сообщить(Номер); 

       Об_Конект.Close(); 

    // Закрываем конект  

      Об_Конект=Неопределено;  

      Об_РекордСет=Неопределено; 

               Возврат Истина; 

   Иначе        Сообщить("Файл "+ПутьКФайлу+" не найден!");

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

    КонецЕсли;   

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



   

 &НаСервере

Функция ОтправитьСервер()

    УспешнаяОтправка = Ложь;

    ПараметрJSON = "{'username': '" + Константы.ПользовательСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",'password': '" + Константы.ПарольСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",'request_type': 'send_message'";

    ПараметрJSON = ПараметрJSON +  ",'destination_address': '" + Объект.Контрагент.НомерТелефона+ "'";

    ПараметрJSON = ПараметрJSON +  ",'message': '" + Объект.ТекстСМС+ "'";

    ПараметрJSON = ПараметрJSON +  ",'source_address': '" + Константы.ПодписьСМС.Получить() + "'";

    ПараметрJSON = ПараметрJSON +  ",flash:'0'}";



    Попытка

        WinHttp=Новый COMОбъект("WinHttp.WinHttpRequest.5.1");

        WinHttp.Option(2,"Windows-1251");

        WinHttp.Open("POST","http://api.avisosms.ru/sms/json/",0);

        WinHttp.SetRequestHeader("Accept-Language", "ru");

        WinHttp.SetRequestHeader("Accept-Charset","Windows-1251");

        WinHttp.setRequestHeader("Content-Language", "ru");

        WinHttp.setRequestHeader("Content-Charset", "Windows-1251");

        WinHttp.setRequestHeader("Content-Type","application/x-www-form-urlencoded; charset=Windows-1251");

        WinHttp.Send(ПараметрJSON);

        ТекстОтвет = WinHttp.ResponseText();

        Если Найти(ТекстОтвет, "OK_Operation_Completed") Тогда

            УспешнаяОтправка = Истина;

        КонецЕсли;

    Исключение

        Сообщить("Ошибка соединения:");

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

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



    //Запись отправленной смс в историю

    Если УспешнаяОтправка Тогда

        ПозицияКодаНачало = Найти(ТекстОтвет, "messageId") + СтрДлина("messageId")+3;

        ПозицияКодаКонец = Найти(ТекстОтвет, "}");

        КодСМС = Сред(ТекстОтвет, ПозицияКодаНачало, ПозицияКодаКонец-ПозицияКодаНачало-1);



        СМСРассылка.ЗаписатьСМСВИсторию(Объект.Контрагент, Объект.ТекстСМС, КодСМС);

    Иначе

        Сообщить("Отправка смс не состоялась. Текст ошибки: " + ТекстОтвет);

    КонецЕсли;

    Возврат УспешнаяОтправка;

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