существуетфайл » Поиск

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

Как загрузить данные из Access в 1С ?

Загружаем данные из Access в 1С

Код 1C v 8.х

 Файл = "C:\files\demo.mdb" ;

   //СтрокаПодключения = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + "; Extended Properties=""Excel 8.0;HDR=NO;""";

    СтрокаПодключения  =   "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" + Файл + ";""";

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

    Попытка

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

    Исключение

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

        Возврат;

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

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



    Command.ActiveConnection = Connection;

    Command.CommandText = "S_elect * FROM Table1";

    Command.CommandType = 1;

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

    RecordSet = Command.Execute();

    стр ="";

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

            для н=0 по  Recordset.Fields.Count -1 цикл

            стр = стр + " " + Recordset.Fields(н).Value;

         КонецЦикла;

      Сообщить(стр);

             стр ="";

        RecordSet.MoveNext(); 

      КонецЦикла;

   RecordSet.Close();

    Connection.Close();

Код 1C v 7.x

 Акцесс = СоздатьОбъект("ADODB.CONNECTION");

Попытка

     СтрокаПодключения="Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

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

Исключение

     Сообщить("Все плохо:"+ОписаниеОшибки());

     Возврат;

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

Команда = СоздатьОбъект("ADODB.Command");

Команда.ActiveConnection=Акцесс;

ТекстСелект = "S_elect * FROM tblCustoms";

НаборЗаписей = СоздатьОбъект("ADODB.RecordSet");

Команда.CommandText=ТекстСелект;

Попытка

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

Исключение

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

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

Попытка

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

Исключение //нет записей в рекордсете

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

     Возврат;

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

Пока НаборЗаписей.EOF()=0 Цикл

     ИНН = НаборЗаписей.Fields("INN").Value;

     //ну и т.д.

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

КонецЦикла;

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



// Для тех, у кого в базе Акцесс создана рабочая группа (есть файлик mdw), строка подключения будет такая: 

СтрокаПодключения="Driver= Microsoft Access Driver (*.mdb)};systemDB=C:\wg.mdw;Dbq=C:\mybase.mdb;Uid=Admin;Pwd=";

Работа с ACCESS из 1С через DAO

Код 1C v 7.x

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

//фасВладелец = СтрЗаменить(фасВладелец," ","_"); 

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

   Спр.ИспользоватьВладельца(ФасВладелец); 

   dbe = СоздатьОбъект("dao.DBEngine.36"); 

   wksp = dbe.Workspaces(0); 

   db = 0; 

   Если ФС.СуществуетФайл(КаталогИБ()+"Pric_list.mdb")=0 Тогда               // 

       db = wksp.CreateDataBase(КаталогИБ()+"Pric_list.mdb",";LANGID=0x0419;Cp=1251;Country=0");             //   

       db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

       |(Rec_ind integer, 

       |Код text,                                                                                                           

       |Артикул text, 

       |Цена integer, 

       |Товар text, 

       |Единица text, 

       |Val text);" 

       ); 

       db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

   Иначе 

       db= wksp.OpenDataBase(КаталогИБ()+"Pric_list.mdb"); 

       Попытка 

           rs = db.OpenRecordset(Строка(фасВладелец)); 

       Исключение 

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

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

       Если ПустоеЗначение(rs)= 1 Тогда 

           db.Execute("Create table [" + Строка(фасВладелец) + "]                                                                                             

           |(Rec_ind integer, 

           |Код text, 

           |Артикул text, 

           |Цена integer, 

           |Товар text, 

           |Единица text, 

           |Val text);" 

           ); 

           db.Execute("Create index Rec_ind on ["+Строка(фасВладелец)+"] (Rec_ind);"); 

       КонецЕсли;     

       db.Execute("Delete * From ["+Строка(фасВладелец)+"];");                                                         

   КонецЕсли;   

   rs = db.OpenRecordset(Строка(фасВладелец)); 

   Y = 1; 

   Спр.ВыбратьЭлементы(); 

   Пока Спр.ПолучитьЭлемент() = 1 Цикл 

       лсЕдиницы = ""; 

       Если Спр.асТовар.апТип=Перечисление.ТипТовара.Услуга Тогда 

           лсЕдиницы = ""; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Весовой Тогда 

           лсЕдиницы = "г"; 

       ИначеЕсли Спр.асТовар.апТип=Перечисление.ТипТовара.Штучный Тогда 

           лсЕдиницы = "шт."; 

       КонецЕсли; 

       Если Спр.ЭтоГруппа() = 0 Тогда 

           rs.AddNew(); 

           rs.Rec_ind = Y; 

           rs.Код= Спр.асТовар.ПолныйКод(); 

           rs.Артикул =  Спр.асТовар.сАртикул; 

           rs.Цена = Спр.чЦена; 

           rs.Товар=Спр.асТовар.сПолнНаименование; 

           rs.Единица =  лсЕдиницы; 

           rs.Val = Спр.асВалюта.Код; 

           rs.Update(); 

           Y=Y+1; 

       КонецЕсли; 

   КонецЦикла; 

   db.Close();   

   Сообщить("Выгрузка завершена"); 

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

Код 1C v 7.x

 

Процедура ACCESS()

     dbe=CreateObject("DAO.DBEngine.36");

     wksp=dbe.Workspaces(0);

     db=0;

     // в ковычках имя фаила с расширением MDB

     Если ФС.СуществуетФайл(КаталогПользователя()+"sr.mdb")=0 Тогда

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

          db=wksp.CreateDataBase(КаталогПользователя()+"mars_sr.mdb",";LANGID=0x0419;CP=1251;COUNTRY=0");

          // DDL - запрос на создание таблицы

          // описание языка DDL (подмножество SQL) смотрите в хелпе по MS Access

          // не пытайтесь делать это с другими форматами - DDL через DAO поддерживается только для MDB

          //Создадим еще таблицу

          db.Execute("CREATE TABLE   BANKS

          |(REC_IND INTEGER,

          |BANKCODE INTEGER,

          |BANKNAME  TEXT  ,

          |ModifiedFlg BIT,

          |ChangeSeqFlg BIT);"

          );

          // индекс на нужные поля

          db.Execute("CREATE INDEX REC_IND ON BANKS (REC_IND);");

     Иначе

          // просто открываем базу данных в разделенном режиме

          db=wksp.OpenDataBase(КаталогПользователя()+"sr.mdb");

          // и очищаем имеющиеся данные

          db.Execute("DELETE * FROM BANKS;");

    КонецЕсли;

    // rs-это как раз сама таблица, куда мы будем добавлять записи

    rs=db.OpenRecordset("BANKS");

    // добавление записи

    rs.AddNew();

    // присвоение значений полям

    rs.REC_IND            =     "1";

    rs.BANKCODE       =     "34";

    rs.BANKNAME       =    "Инвест";

    rs.ModifiedFlg        =     "1";

    // запомним запись

    rs.Update();

    // и так далее ...

    db.Close();  // закрытие базы данных

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

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

Создание писем, событий и задач в MS Outlook из 1С

Отправка писем из 1С Предприятия – одна из самых необходимых функций, отсутствующая в штатном функционале платформы. Один из вариантов реализации – это подключение к MS Outlook по технологии OLE. В статье приведены примеры создания писем, событий и задач в MS Outlook из 1С. Автоматическое создание событий и задач используется не часто, но порой бывает очень удобно.

Для 1С 8.х замените

Код 1C v 7.x

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

на

Код 1C v 8.х

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

так же посмотрите: Отправка почтового сообщения на локальный MS Office Outlook с вложенным файлом

Создание сообщения

Код 1C v 7.x

  //создать новое сообщение из 1С в MS Outlook

Процедура СоздатьПисьмо(Адрес,ПутьКВложению)



       Попытка

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

             ЕстьОшибка = 0;

       Исключение

             Предупреждение("Не удалось создать объект Outlook.Application");

             ЕстьОшибка = 1;

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

      

       Если ЕстьОшибка = 0 Тогда



             Письмо = Outlook.CreateItem(0);

             Письмо.Subject = "Тема письма";

             Письмо.Body = "Текст письма";

             Письмо.Recipients.Add(Адрес);



             Если ФС.СуществуетФайл(ПутьКВложению)=1 Тогда

                   Письмо.Attachments.Add(ПутьКВложению);

             КонецЕсли;



             Письмо.Display();

       Иначе

             Тема = "Тема письма";

             ТекстПисьма = "Текст письма";

             СтрокаЗапуска = "mailto:" + Адрес + "?subject=" + Тема + "&body=" + ТекстПисьма;

             ЗапуститьПриложение(СтрокаЗапуска);

       КонецЕсли;

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

Создание события

Код 1C v 7.x

 //создать запись в календаре событий из 1С в MS Outlook

Процедура СоздатьСобытие()

       Попытка

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

       Исключение

             Предупреждение("Не удалось создать объект Outlook.Application");

             Возврат;

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



       Событие = Outlook.CreateItem(1);

       Событие.Subject = "Название события";

       Событие.Start = "15.01.2010 15:00:00";

       Событие.End = "15.01.2010 16:00:00";

       Событие.Body = "Описание события";

       Событие.Location = "Место события";

       Событие.ReminderMinutesBeforeStart = 15;

       Событие.BusyStatus = 0;

       Событие.MeetingStatus = 0;

       Событие.Sensitivity = 2;

       Событие.Save();

       Сообщить("Событие в календаре создано успешно","i");

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

Создание задачи

Код 1C v 7.x

 //создать новую задачу из 1С в MS Outlook

Процедура СоздатьЗадачу(ДатаСтартаЗадачи)



       Попытка

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

       Исключение

             Предупреждение("Не удалось создать объект Outlook.Application");

             Возврат;

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

      

       Задача = Outlook.CreateItem(3);

       Задача.Subject = "Название задачи";

       Задача.StartDate = ДатаСтартаЗадачи;

       Задача.Body = "Описание задачи";

       Задача.Status = 0;

       Задача.Display();

       Задача.Importance = 2;

       Задача.ReminderSet = 1;

       Задача.ReminderTime = "" + ДатаСтартаЗадачи + " 9:00:00";

       //Задача.Save();

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

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

Краткий пример работы с OpenOffice.org Writer и Microsoft Office Word

Обработка демонстрирует простейший пример работы с 2-мя текстовыми процессорами - OpenOffice.org Writer и Microsoft Office Word. Нужно запустить файл обработки, в качестве шаблона она будет использовать файл "Primer.doc", который находится в одном каталоге с обработкой: Скачивать файлы может только зарегистрированный пользователь!

Файл Шаблона - Primer.doc:
От: {Организация}
Кому: {Контрагент}
Ждем акт сверки взаиморасчетов!
Директор /{Директор}/

Необходимо заменить в шаблоне ключевые слова в скобках {}, на указанные значения, вот примерный код обработки:

Код 1C v 7.x

 

//рдТаблицаЗамен - Таблица значений:

// {Организация} ООО "Контора"

// {Контрагент} ООО "Должник"

// {Директор} Дядя Вася

ПечатьИзШаблона(рдТаблицаЗамен, "Primer.doc");



// Функция преобразует Windows имя файла в URL OpenOffice                      

Функция ПреобразоватьВURL(ИмяФайла)

	Возврат "file:///" + СтрЗаменить(ИмяФайла, "\", "/"); 	

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



Функция ОбработкаФайлаШаблона(ИмяШаблона) Экспорт

	                                              

	ИмяФайла = КаталогВременныхФайлов() + "doc.tmp";	                                                                                      

	Путь = "";	Имя = "";

	ФайлОбработки = РасположениеФайла(Путь, Имя);

	

	КаталогШаблонов = Путь;       

	ПолноеИмяШаблона = КаталогШаблонов + ИмяШаблона;

	

	РезультатОбработки = 0;

	                         

	// Проверка на существование 

	ЕстьШаблон = 0;

	Если ФС.СуществуетФайл(КаталогШаблонов + ИмяШаблона) = 0 Тогда  

		Сообщить("Файл " + ИмяШаблона + " не найден в каталоге шаблонов печатных форм! Обратитесь к системному администратору!", "!!!");    					   		

	Иначе

		ЕстьШаблон = 1;

	КонецЕсли;                  

	

	// Копирование во временный каталог

	                        

	Если ЕстьШаблон = 1 Тогда 

		ФС.КопироватьФайл(ПолноеИмяШаблона, ИмяФайла, 0);

	КонецЕсли;                                                            

	

	// Проверка копирования

	

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

		РезультатОбработки = 1;  

	Иначе

		Сообщить("Не удалось скопировать шаблон во временный файл.");

	КонецЕсли;

	

	Возврат РезультатОбработки; 	

	

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



Процедура ОткрытьТекстовыйПроцессор(ИмяФайла, ТаблицаЗамен)  

	

	ТекПроцессор = рдТекстовыйПроцессор.ПолучитьЗначение(рдТекстовыйПроцессор.ТекущаяСтрока());

	

	Если ТекПроцессор = "OOoWriter" Тогда 

		

		// Открыть OpenOffice 

		

		ServiceManager = СоздатьОбъект("com.sun.star.ServiceManager");

		Desktop        = ServiceManager.createInstance("com.sun.star.frame.Desktop");

		

		

		Scr = СоздатьОбъект("MSScriptControl.ScriptControl");

		Scr.Language="javascript";

		Scr.Eval("Args=new Array()");

		Args = Scr.Eval("Args"); 

		Scr.AddObject("ServiceManager", ServiceManager);

		

		// Откроем шаблон

		

		ТекстовыйПроцессор = Desktop.LoadComponentFromURL(ПреобразоватьВURL(ИмяФайла), "_blank", 0, Args); 

		

		// Заменяем ключевые поля на нужные значения

		                         

		Replace = ТекстовыйПроцессор.CreateReplaceDescriptor();

		

		Для x=1 По ТаблицаЗамен.КоличествоСтрок() Цикл

			

			Replace.SearchString  = ТаблицаЗамен.ПолучитьЗначение(x, 1);

			Replace.ReplaceString = ТаблицаЗамен.ПолучитьЗначение(x, 2);

			ТекстовыйПроцессор.ReplaceAll(Replace);

			

		КонецЦикла;

		

	Иначе                        		

		

		// Открываем MS Office Word

		

		Попытка

			ТекстовыйПроцессор = СоздатьОбъект("Word.Application"); 

		Исключение 			

			Сообщить("Не удалось создать объект Microsoft Office Word!", "!!!");

			Возврат;			

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

		

		// Открываем шаблон

		

		ТекстовыйПроцессор.Visible = 0; 

		ТекстовыйПроцессор.Documents.Open(ИмяФайла,, -1);

		Fnd = ТекстовыйПроцессор.ActiveDocument.Range().Find;

		Fnd.ClearFormatting();

		Fnd.Forward = -1;  

		

		// Заменяем ключевые поля на нужные значения

		

		ТаблицаЗамен.ВыбратьСтроки();

		Пока ТаблицаЗамен.ПолучитьСтроку() = 1 Цикл  

			Fnd.Execute(ТаблицаЗамен.Найти,,,,,,,,, ТаблицаЗамен.Заменить, 2);   

		КонецЦикла;  

		

		ТекстовыйПроцессор.Visible = -1;    

		ТекстовыйПроцессор.Activate(); 

		

	КонецЕсли;

	



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

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

Процедура ПечатьИзШаблона(ТаблицаЗамен, ИмяФайлаШаблона) Экспорт

	            

	// Проверим, есть ли нужный шаблон	

	Если ОбработкаФайлаШаблона(ИмяФайлаШаблона) = 0 Тогда

		Возврат;

	КонецЕсли;              

	

	ИмяФайла = КаталогВременныхФайлов() + "doc.tmp";	

	

	// Открываем в текстовом процессоре файл шаблона	

	ОткрытьТекстовыйПроцессор(ИмяФайла, ТаблицаЗамен);

	

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

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

Как получить список зарегистрированных пользователей базы 1С

Код 1C v 8.х

  Выборка = ПользователиИнформационнойБазы.ПолучитьПользователей(); 

Для Каждого ЭлементМассива Из Выборка Цикл 

	ИмяПользователя = ЭлементМассива.Имя; 

	ПолноеИмяПользователя = ЭлементМассива.ПолноеИмя; 

	ЕстьПароль = ЭлементМассива.ПарольУстановлен; 

	Роли = ЭлементМассива.Роли; 

	

	Для Каждого Роль Из Роли Цикл 

		ИмяРоли = Роль.Имя; 

	КонецЦикла; 

КонецЦикла;

Код 1C v 7.x

 //  Функция возвращает список зарегистрированных для выбранной

//  базы пользователей. Если пользователи не определены, список

//  будет пуст.

//

функция сзПолучитьПользователей(стрПутьКБазе)

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

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

    // Формируем полное имя файла, в котором 1С

    // хранит информацию о пользователях базы.

    стрИмяФайла = стрПутьКБазе + "\UsrDEF\Users.USR";

    // Проверим его наличие.

    если фс.СуществуетФайл(стрИмяФайла) > 0 тогда

        // Создаем объект FSO для работы с файлами.

        обФСО = создатьобъект("Scripting.FileSystemObject");

        // Открываем файл пользователей как текстовый.

        тхтФайл = обФСО.OpenTextFile(стрИмяФайла);

        // Инициализация первоначальных переменных

        // Загружаем в буфер(тестовую строку) информацию из файла.

        стрБуфер = "";

        чисПозиция = 0;

        // Перебеирать файл придеться посимвольно, так как 1С не совсеми

        // символами может работать коректно если они находяться в строке.

        пока тхтФайл.AtEndOfStream = 0 цикл

            // Получаем очередную позицию в файле.

            чисПозиция = чисПозиция + 1;

            // Получаем символ из данной позиции.

            стрСимв = тхтФайл.Read(1);

            // Если код символа больше 31

            если кодсимв(стрСимв) > 31 тогда

                // Тогда добавляем его к буферу.

                стрБуфер = стрБуфер + стрСимв;

            конецесли;

        конеццикла;

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

        // Признаком для пользователя будет строка '{"UserItemType","Page.'

        стрПоиска = "{""UserItemType"",""Page.";

        // Получаем позицию первого пользователя.

        чисПозиция = найти(стрБуфер, стрПоиска);

        // Проверяем если в буфере нужная нам строка

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

            // Если есть, вырезаем из строки ненужную информацию.

            стрБуфер = сред(стрБуфер, чисПозиция);

            // Позиция после отрезания становиться в единицу

            чисПозиция = 1;

        конецесли;

        // В цикле получаем информацию о пользователях БД

        пока чисПозиция > 0 цикл

            // Удаляем из буфера 'мусор'

            стрБуфер = сред(стрБуфер, чисПозиция + 22);

            // Находим признак начала информации об имени пользователя.

            чисСмещение = найти(стрБуфер, """,""") + 3;

            // Перемещаем начало буфера на начало информации об имени пользователя

            стрБуфер = сред(стрБуфер, чисСмещение);

            // Получаем имя пользователя

            стрИмяПользователя = лев(стрБуфер, найти(стрБуфер, """,""") - 1);

            // Добовляем имя к нашему списку.

            Ответ.ДобавитьЗначение(стрИмяПользователя);

            // Получаем очередную позицию информации о пользователе

            чисПозиция = найти(стрБуфер, стрПоиска);

        конеццикла;

    конецесли;

    // Возращаем полученный список значений содержащий в себе список пользователей базы

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

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

еще Пример получения списка пользователей из файла users.usr

Категория: Полезные, Универсальные Функции

Функция открывает таблицу в MS Excel

Код 1C v 7.x

 Код

//Функция открывает таблицу в MS Excel

//Таблица         - печатная форма 1С

//ИмяЛиста         - имя, которое будет присвоено листу книги MS Excel (если не задано, то остается "Sheet1")

//ОтображатьЯрлычки   - показывать/скрыть ярлычки листов в MS Excel

//ОтображатьСетку   - показывать/скрыть линии сетки в MS Excel

//УдалитьСтроки      - позволяет удалить указанное количество верхних строк таблицы

//УдалитьСтроки      - позволяет удалить указанное количество левых столбцов таблицы

Функция глОткрытьТаблицуВExcel(Таблица, ИмяЛиста = "", ОтображатьЯрлычки = 1, ОтображатьСетку = 1, УдалитьСтроки = 0, УдалитьСтолбцы = 0) Экспорт

   Перем Excel, ExcelWB, ExcelSh, ExcelPS, ИмяФайла, Рез, Зн, Зн1;

   

   Если ТипЗначенияСтр(Таблица) <> "Таблица" Тогда

      Возврат 0;

   КонецЕсли;    

   

   Попытка

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

   Исключение

      Сообщить("Не удалось открыть MS Excel","!");

      Возврат 0;

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

   

   Пока 1=1 Цикл

      //Подберем уникальное имя для временного файла

      ИмяФайла = КаталогВременныхФайлов() + "1c" + СтрЗаменить(ТекущееВремя(), ":", "");

      Если (ФС.СуществуетФайл(ИмяФайла+".tmp") = 1) или (ФС.СуществуетФайл(ИмяФайла+".xls") = 1) Тогда

         ФС.УдалитьФайл(ИмяФайла+".tmp");

         ФС.УдалитьФайл(ИмяФайла+".xls")

      Иначе

         Прервать;

      КонецЕсли

   КонецЦикла;

   

   Таблица.Записать(ИмяФайла+".tmp", "XLS");

   

   Если ФС.СуществуетФайл(ИмяФайла+".tmp") = 0 Тогда

      Сообщить("Ошибка записи файла """ + ИмяФайла + "tmp""","!");

      Excel = "";

      Возврат 0;

   КонецЕсли;    

   

   Рез = 1;

   

   Попытка

      ExcelWB = Excel.Workbooks.Add(ИмяФайла+".tmp");   //Откроем временный файл в Excel в режиме шаблона (чтобы не блокировать файл)

      Попытка                                 //Если на клиентской машине не установлен принтер, обращение к настройкам страницы вызывает ошибку. Поэтому работаем в "Попытка ... КонецПопытки"

         ExcelPS = ExcelWB.Sheets(1).PageSetup;      //Исправим спецсимволы в колонтитулах

         Зн = ExcelPS.LeftHeader;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.LeftHeader   = Зн1 КонецЕсли;

         Зн = ExcelPS.CenterHeader;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.CenterHeader   = Зн1 КонецЕсли;

         Зн = ExcelPS.RightHeader;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.RightHeader   = Зн1 КонецЕсли;

         Зн = ExcelPS.LeftFooter;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.LeftFooter   = Зн1 КонецЕсли;

         Зн = ExcelPS.CenterFooter;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.CenterFooter   = Зн1 КонецЕсли;

         Зн = ExcelPS.RightFooter;   Зн1 = СтрЗаменить(СтрЗаменить(СтрЗаменить(СтрЗаменить(Зн, "#P", "&P"), "#Q", "&N"), "#T", "&T"), "#D", "&D"); Если Зн <> Зн1 Тогда ExcelPS.RightFooter   = Зн1 КонецЕсли;

      Исключение

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

      

      ExcelWB.SaveAs(ИмяФайла+".xls", -4143);         //Сохраним, чтобы обновить формат файла до текущего (xlNormal = -4143)

      ExcelWB.Close(0);                        //Закроем книгу ...

      ExcelWB = Excel.Workbooks.Add(ИмяФайла+".xls");   //... и вновь откроем в режиме шаблона

      

      Попытка

         ExcelSh = ExcelWB.Sheets(1);

         

         Если ПустаяСтрока(ИмяЛиста) = 0 Тогда         //Зададим имя ярлычка

            ExcelSh.Name = ИмяЛиста

         КонецЕсли;

         

         Если ОтображатьЯрлычки = 1 Тогда            //Сделаем видимыми ярлычки листов

             ExcelWB.Windows(1).DisplayWorkbookTabs = 1;

            ExcelWB.Windows(1).TabRatio = 0.6         //... и отодвинем горизонтальную полосу прокрутки от левого края

         КонецЕсли;

         

         Если ОтображатьСетку = 0 Тогда               //Скроем линии сетки

            ExcelWB.Windows(1).DisplayGridlines = 0

         КонецЕсли;

      

         Если УдалитьСтроки > 0 Тогда               //Удалим верхние строки

            ExcelSh.Range(ExcelSh.Rows(1), ExcelSh.Rows(УдалитьСтроки)).Delete()

         КонецЕсли;

         

         Если УдалитьСтолбцы > 0 Тогда               //Удалим левые столбцы

            ExcelSh.Range(ExcelSh.Columns(1), ExcelSh.Columns(УдалитьСтолбцы)).Delete()

         КонецЕсли;

      Исключение

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

      

      ExcelWB.Saved = 0;

   Исключение

      Сообщить("Ошибка открытия файла в MS Excel","!"); Рез = 0

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

   

   Попытка

      Excel.Visible = 1

   Исключение

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

   

   ExcelWB = ""; ExcelSh = ""; ExcelPS = ""; Excel = "";

   ФС.УдалитьФайл(ИмяФайла+".tmp");

   ФС.УдалитьФайл(ИмяФайла+".xls");

   Возврат Рез

КонецФункции //глОткрытьТаблицуВExcel

Автор неизвестен, если код ваш, напишите в комментариях

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

Процедура заполняет WORD шаблон из СпискаЗначений

Заполняет Вордовский шаблон из СпискаЗначений
Вставляется в виде обрабтки. При открытии передается СЗ первым значением идет WORD, в строковом представлеии наименование файла шаблона. Затем идентификаторы закладок (поля) в тексте шаблона - в представлении что подставить.
Сперва хотел сделать что-то универсальное Ворд-Ексель, а потом передумал. Отого такой первый параметр в списке значений

Код 1C v 7.x

 Процедура ПриОткрытии()

   Перем Закладка, ТектВывода, сз;

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

   сз = Форма.Параметр;

   ФайлШаблон = ""; ОЛЕ_Объект = "";

   Если ТипЗначенияСтр(сз)<>"СписокЗначений" Тогда

       Сообщить("Для формирования документа передайте подготовленный список значений", "!!!"); Возврат;

   ИначеЕсли сз.РазмерСписка()=0 Тогда

       Сообщить("Для формирования документа передайте подготовленный список значений", "!!!"); Возврат;

   Иначе

       ФайлШаблон = сз.ПолучитьЗначение(1, ОЛЕ_Объект);

       

       Если ВРег(ОЛЕ_Объект) <> "WORD" Тогда

           Сообщить("OLE объект "+ОЛЕ_Объект+" не поддерживается", "!!!"); Возврат;

       КонецЕсли;

       

       Если ФС.СуществуетФайл(КаталогИБ()+"Шаблоны" + ФайлШаблон) = 0 Тогда

           Сообщить("Нет файла - шаблона " + ФайлШаблон, "!!!"); Возврат;

       КонецЕсли

           

   КонецЕсли;



   OLE = СоздатьОбъект(ОЛЕ_Объект+".Application");

     OLE.Documents.Add(""""+КаталогИБ()+"Шаблоны" + ФайлШаблон + """");

   Для Индекс = 2 по сз.РазмерСписка() цикл

       ТекстВывода = сз.ПолучитьЗначение(Индекс, Закладка);

       //Если OLE.ActiveDocument.Bookmarks(СокрЛП(Закладка)).Exists()=0 Тогда  // Проверяем - существует ли закладка

       //    Сообщить("Не найдена закладка "+Закладка,"!!!" ); Продолжить;

       //КонецЕсли;

       Попытка

           OLE.ActiveDocument.Bookmarks(СокрЛП(Закладка)).Select();  //выделим выбранную закладку

           OLE.Selection.TypeText(СокрЛП(ТекстВывода));              // выведем на место выделения текст

       Исключение

           Сообщить("Не найдена закладка "+Закладка,"!!!" );

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

   КонецЦикла;



   OLE.Visible=1;  /// видимость - True

   OLE.ActiveDocument.Activate(); /// активизировать!!!

   OLE=""; /// ссылочку прибить

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

Автор: GrayT

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

Как загрузить внешнюю компоненту?

Код 1C v 8.х

 Попытка 

	ЗагрузитьВнешнююКомпоненту("scanopos.dll") 

Исключение 

	Сообщить("Ошибка загрузки внешней компоненты!"); 

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



Попытка 

	// Получить объект компоненты. 

	Объект = Новый("AddIn.Scanner"); 



Исключение 

	Сообщить("Не удалось создать объект внешней компоненты"); 

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

Код 1C v 7.x

 //в качестве аргумента "Значение" в функцию передаётся имя файла внешней компоненты

//функция возвращает "1", если загрузка выполнена успешно, или "0", если внешнюю компоненту загрузить не получилось

Функция гВнешняяКомпонента_Загрузить(Значение) Экспорт

     Состояние("Загрузка компоненты: "+Значение);

     Если ЗагрузитьВнешнююКомпоненту(Значение)=1 Тогда

          Возврат(1);

     Иначе

          Сообщить("Ошибка при загрузке компоненты: "+Значение,"!");

          Возврат(0);

     КонецЕсли;

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



//этот код можно разместить в локальном модуле, в котором требуется использовать внешнюю компоненту

Если гВнешняяКомпонента_Загрузить("v7plus.dll")=0 Тогда

     Возврат;

КонецЕсли;

При загрузке полезно проверять, а есть ли в наличии указанный файл DLL (к сожалению, этого не делает сам движок 1С:Предприятие 7.7).

Код 1C v 7.x

 имяф="e:\Events\Events.dll";

    Если фс.СуществуетФайл(имяф)=0 Тогда

        Сообщить("Файл не найден: "+имяф,"!"); 

    КонецЕсли;    

    Если ЗагрузитьВнешнююКомпоненту(имяф)=0 Тогда

        Сообщить("Ошибка загрузки внешней компоненты: "+имяф);

    КонецЕсли;    

    vk=СоздатьОбъект("Addin.Events");

Категория: Внешние компоненты