1с программно создать документ excel

1С 8.x : Создание документа Excel по имеющемуся шаблону, оформлению.

 Попытка

    // Создать объект. 

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

Исключение    

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

    Возврат;    

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


Попытка

    // Если при отработке следующего фрагмента кода произойдет ошибка

    // объект "Excel.Application" будет закрыт.


    // Открыть книгу, содержащую шаблон оформления.

    Excel.Workbooks.Open("c:doc.xls");


    НомерКниги = Excel.Workbooks.Count;

    Книга        = Excel.Workbooks.Item(НомерКниги);

    Лист        = Excel.ActiveSheet;



  


                       
  





    // Создать новую книгу (в нее будем записывать данные).

     Excel.Application.Workbooks.Add(1);

    
    НомерКниги = Excel.Workbooks.Count;

    КнигаНовая = Excel.Workbooks.Item(НомерКниги);

    ЛистНовый  = Excel.ActiveSheet;


    // Установить ширину колонки в новой книге.

     ЛистНовый.Columns("B").ColumnWidth = 40;

    
    // Копировать область из книги-шаблона в новую книгу.

     Лист.Range("Шапка").Copy(ЛистНовый.Range("A1:E3")); 

    ЛистНовый.Cells(1, 1).Value = "Наименование контрагента";

    
    // Считаем, что в нашем случае необходимо сформировать только

 
    // две строки табличной части

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

        Лист.Range("Строка").Copy(ЛистНовый.Range(ЛистНовый.Cells(3 + НомерСтроки,1), ЛистНовый.Cells(3 + НомерСтроки, 5)));


        // Записать значение в ячейку листа новой таблицы    

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

         ЛистНовый.Cells(3 + НомерСтроки, 1).Value = НомерСтроки;

        ЛистНовый.Cells(3 + НомерСтроки, 2).Value =    "Наименование номенклатурной позиции " + Строка(НомерСтроки);

        ЛистНовый.Cells(3 + НомерСтроки, 3).Value = НомерСтроки;

        ЛистНовый.Cells(3 + НомерСтроки, 4).Value = НомерСтроки;

        ЛистНовый.Cells(3 + НомерСтроки, 5).Value = НомерСтроки;

    КонецЦикла;


    Excel.Visible = Истина;



  


                       
  





Исключение    

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

    Excel.Quit();    

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

4 — 07.08.10 — 11:58

MS Excel давно стал стандартом для работы с электронными таблицами. В статье рассматриваются способы программной выгрузки и загрузки из 1С в файлы Excel.

Существует несколько способов программной работы с файлами Excel из 1С. Каждый из них имеет свои преимущества и недостатки.

Обмен через табличный документ

Данный способ простой. Его суть заключается в том, что объект ТабличныйДокумент имеет методы:

• Записать(<ИмяФайла>, <ТипФайлаТаблицы>) для выгрузки данных в файл;
• Прочитать(<ИмяФайла>, <СпособЧтенияЗначений>) для загрузки данных из файла.

Внимание!

Метод Записать() доступен как на клиенте, так и на сервере. Метод Прочитать() доступен только на стороне сервера. Необходимо помнить об этом
при планировании клиент-серверного взаимодействия.

Рассмотрим пример сохранения табличного документа в файл. Необходимо любым способом создать и заполнить объект ТабличныйДокумент, а выгрузка в файл осуществляется всего лишь одной строкой:

ТабДок.Записать(ПутьКФайлу, ТипФайлаТабличногоДокумента.XLSX);

Здесь ТабДок — сформированный табличный документ, ПутьКФайлу — имя файла для выгрузки, ТипФайлаТабличногоДокумента.XLSX — формат создаваемого файла. Поддерживаются следующие форматы Excel:

• XLS95 — формат Excel 95;
• XLS97 — формат Excel 97;
• XLSX — формат Excel 2007.

Загрузка из файла осуществляется также достаточно просто:

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

Здесь ПутьКФайлу — путь к загружаемому файлу Excel. СпособЧтенияЗначенийТабличногоДокумента.Значение определяет, каким образом нужно интерпретировать данные, считываемые из исходного документа. Доступны варианты:

• Значение;
• Текст.

Обмен через OLE

Обмен через технологию OLE automation, пожалуй, самый распространенный вариант программной работы с файлами Excel. Он позволяет использовать весь функционал, предоставляемый Excel, но отличается медленной скоростью работы по сравнению с другими способами. Для обмена через OLE требуется установка MS Excel:

• На компьютере конечного пользователя, если обмен происходит на стороне клиента;
• На компьютере сервера 1С:Предприятие, если обмен происходит на стороне сервера.

Пример выгрузки:

// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application»);
// Отключение вывода предупреждений и вопросов
Эксель.DisplayAlerts = Ложь;
// Создание новой книги
Книга = Эксель.WorkBooks.Add();
// Позиционирование на первом листе
Лист = Книга.Worksheets(1);

// Запись значения в ячейку
Лист.Cells(НомерСтроки, НомерКолонки).Value = ЗначениеЯчейки;

// Сохранение файла
Книга.SaveAs(ИмяФайла);

// Закрытие Эксель и освобождение памяти
Эксель.Quit();
Эксель = 0;

Примеры чтения:

// —— ВАРИАНТ 1 ——

// Создание COM-объекта
Эксель = Новый COMОбъект(«Excel.Application»);
// Открытие книги
Книга = Эксель.Workbooks.Open(ПутьКФайлу);
// Позиционирование на нужном листе
Лист = Книга.Worksheets(1);

// Чтение значения ячейки, обычно здесь располагается цикл обхода ячеек
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;

// Закрытие книги
Книга.Close(0);

// Закрытие Эксель и освобождение памяти
Эксель.Quit();
Эксель = 0;

// —— ВАРИАНТ 2 ——

// Открытие книги
Книга = ПолучитьCOMОбъект(ПутьКФайлу);
// Позиционирование на нужном листе
Лист = Книга.Worksheets(1);

// Чтение значения ячейки, обычно здесь располагается цикл обхода ячеек
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;

// Закрытие книги
Книга.Application.Quit();

Для обхода всех заполненных строк листа Excel можно использовать следующие приемы:

// —— ВАРИАНТ 1 ——
КоличествоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row;
Для НомерСтроки = 1 По КоличествоСтрок Цикл
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;
КонецЦикла;

// —— ВАРИАНТ 2 ——
НомерСтроки = 0;
Пока Истина Цикл
НомерСтроки = НомерСтроки + 1;
ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;
Если НЕ ЗначениеЗаполнено(ЗначениеЯчейки) Тогда
Прервать;
КонецЕсли;
КонецЦикла;

Вместо последовательного обхода всех строк листа можно выгрузить все данные в массив и работать с ним. Такой подход будет быстрее при чтении большого объема данных:

ВсегоКолонок = Лист.Cells(1, 1).SpecialCells(11).Column;
ВсегоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row;

Область = Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок));
Данные = Область.Value.Выгрузить();

В таблице ниже приведены наиболее востребованные свойства и методы для работы с Excel через OLE:

Для того, чтобы узнать какое свойство нужно менять или какой метод вызвать можно воспользоваться макросами Excel. Если записать макрос с требуемыми действиями, то после можно посмотреть программный код на VBA записанного макроса.

Использование COMSafeArray

При выгрузке больших объемов данных из 1С в Excel для ускорения можно использовать объект COMSafeArray. Согласно определению из синтакс-помощника, COMSafeArray — объектная оболочка над многомерным массивом SafeArray из COM. Позволяет создавать и использовать SafeArray для обмена данными между COM-объектами. Проще говоря, это массив значений, который можно использовать для обмена между приложениями по технологии OLE.

// Создание COMSafeArray
МассивКом = Новый COMSafeArray(«VT_Variant», ВсегоКолонок, ВсегоСтрок);
// Заполнение COMSafeArray
Для Стр = 0 По ВсегоСтрок — 1 Цикл
Для Кол = 0 По ВсегоКолонок — 1 Цикл
МассивКом.SetValue(Кол, Стр, Значение);
КонецЦикла;
КонецЦикла;
// Присвоение области листа Excel значений из COMSafeArray
Лист.Range(Лист.Cells(1, 1), Лист.Cells(ВсегоСтрок, ВсегоКолонок)).Value = МассивКом;

Обмен через ADO

Файл Excel при обмене через ADO представляет собой базу данных, к которой можно обращаться при помощи SQL-запросов. Установка MS Excel не требуется, но обязательно наличие драйвера ODBC, при помощи которого будет осуществляться доступ. Используемый драйвер ODBC определяется при указании строки соединения к файлу. Обычно требуемый драйвер уже установлен на компьютере.

Обмен через ADO заметно быстрее обмена через OLE, но при выгрузке нет возможности использовать функционал Excel для оформления ячеек, разметки страниц, задания формул и т.д.

Пример выгрузки:

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

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

// Создание COM-объекта для команды
Команда = Новый COMОбъект(«ADODB.Command»);
Команда.ActiveConnection = Соединение;

// Присвоение текста команды для создания таблицы
Команда.CommandText = «CREATE TABLE [Лист1] (Колонка1 char(255), Колонка2 date, Колонка3 int, Колонка4 float)»;
Команда.Execute(); // Выполнение команды

// Присвоение текста команды для добавления строки таблицы
Команда.CommandText = «INSERT INTO [Лист1] (Колонка1, Колонка2, Колонка3, Колонка4) values (‘абвгдеё’, ‘8/11/2017’, ‘12345’, ‘12345,6789’)»;
Команда.Execute(); // Выполнение команды

// Удаление команды и закрытие соединения
Команда = Неопределено;
Соединение.Close();
Соединение = Неопределено;

Для создания нового листа и формирования его структуры можно воспользоваться объектами ADOX.Catalog и ADOX.Table. В этом случае код примет вид:

// Создание COM-объекта для работы с книгой
Книга = Новый COMОбъект(«ADOX.Catalog»);
Книга.ActiveConnection = Соединение;

// Создание COM-объекта для работы со структурой данных на листе
Таблица = Новый COMОбъект(«ADOX.Table»);
Таблица.Name = «Лист1»;
Таблица.Columns.Append(«Колонка1», 202);
Таблица.Columns.Append(«Колонка2», 7);
Таблица.Columns.Append(«Колонка3», 5);
Таблица.Columns.Append(«Колонка4», 5);

// Создание в книге листа с описанной структурой
Книга.Tables.Append(Таблица);
Таблица = Неопределено;
Книга = Неопределено;

В приведенном примере в методе

Таблица.Columns.Append(«Колонка1», 202);

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

• 5 — adDouble;
• 6 — adCurrency;
• 7 — adDate;
• 11 — adBoolean;
• 202 — adVarWChar;
• 203 — adLongVarWChar.

Пример чтения:

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

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

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

// Выполнение запроса
Выборка.Open(ТекстЗапроса, Соединение);

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

Выборка.Close();
Выборка = Неопределено;
Соединение.Close();
Соединение = Неопределено;

В строке соединения параметр HDR определяет как будет восприниматься первая строка на листе. Возможны варианты:

• YES — первая строка воспринимается как названия колонок. К значениям можно обращаться по имени и по индексу колонки.
• NO — первая строка воспринимается как данные. К значениям можно обращаться только по индексу колонки.

В приведенных примерах рассмотрено лишь несколько объектов ADO. Объектная модель ADO состоит из следующих объектов:

• Connection;
• Command;
• Recordset;
• Record;
• Fields;
• Stream;
• Errors;
• Parameters;
• Properties.

Выгрузка без программирования

Для сохранения данных из 1С в Excel не всегда целесообразно прибегать к программированию. Если в режиме Предприятия пользователь может отобразить требуемые для выгрузки данные, то, их возможно сохранить в Excel без программирования.

Для сохранения табличного документа (например, результата отчета) можно вызвать команду Сохранить или Сохранить как… главного меню.

В открывшемся окне требуется выбрать каталог, имя и формат сохраняемого файла.

Для сохранения данных динамических списков (например, списка номенклатуры) необходимо:

1. Вывести данные в табличный документ при помощи команды Еще ⇒ Вывести список…;
2. Сохранить табличный документ в требуемый формат.

Прочитать из существующего Excel Файла

Процедура ПрочитатьСуществующийExcelФайл(ПутьКФайлу)Попытка
		Excel = Новый COMОбъект("Excel.Application");
		Excel.DisplayAlerts = 0;
		Excel.Visible = 0;
	Исключение
   		Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена"); 
   		Возврат;
	КонецПопытки; 
					Книга 
= Excel.Workbooks.Open(ПутьКФайлу);	
	КоличествоЛистов = Книга.Sheets.Count;//Перебор листов
	Для НомерЛиста = 1 По КоличествоЛистов Цикл
			Лист 
= Книга.Sheets(НомерЛиста);
		КоличествоСтрок = Лист.Cells(1, 1).SpecialCells(11).Row;
		КоличествоКолонок = Лист.Cells(1, 1).SpecialCells(11).Column;//Перебор строк
		Для НомерСтроки = 1 По КоличествоСтрок Цикл//Перебор колонок
			Для НомерКолонки = 1 По КоличествоКолонок Цикл	
				ЗначениеЯчейки = Лист.Cells(НомерСтроки, НомерКолонки).Value;
				//Выполнение действий с полученным значением
				//...
				//...
			КонецЦикла;КонецЦикла;КонецЦикла;
			Excel
.Workbooks.Close();
	Excel.Application.Quit();КонецПроцедуры 

Записать в существующий Excel Файл

Процедура ЗаписатьСуществующийExcellФайл(ПутьКФайлу)Попытка
		Excel = Новый COMОбъект("Excel.Application");
		Excel.DisplayAlerts = 0;
		Excel.Visible = 0;
	Исключение
   		Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена"); 
   		Возврат;
	КонецПопытки; 
					Книга 
= Excel.Workbooks.Open(ПутьКФайлу);	
			Лист 
= Книга.Sheets(1);
	//Установить значение в ячейку	
	Лист.Cells(1, 1).Value = "Тестовое значение";
	Книга.Save();
		Excel
.Workbooks.Close();
	Excel.Application.Quit();КонецПроцедуры 

Создать новый Excel Файл

Процедура СоздатьНовыйExcellФайл(ПутьКФайлу)Попытка
		Excel = Новый COMОбъект("Excel.Application");
		Excel.DisplayAlerts = 0;
		Excel.Visible = 0;
	Исключение
   		Сообщить(ОписаниеОшибки() + " Программа Exсel не установлена"); 
   		Возврат;
	КонецПопытки; //Автоматически будут созданы три листа	
	Книга = Excel.WorkBooks.Add();	
	//Получить первый лист
	Лист = Книга.Sheets(1);
	//Установить значение в ячейку
	Лист.Cells(1, 1).Value = "Тестовое значение";Попытка
		Книга.SaveAs(ПутьКФайлу); 
	Исключение
		Сообщить(ОписаниеОшибки() + " не удалось сохранить файл"); 
	КонецПопытки;
		Excel
.Workbooks.Close();
	Excel.Application.Quit();КонецПроцедуры 

Как выборочно разрешить / запретить редактирование ячеек листа

//Создаем объект EXCEL Эксель = СоздатьОбъект(«Excel.Application»); Книга = Эксель.WorkBooks.Open(ФайлВыгрузки);// Выбор листа Лист =Книга.Worksheets(«Список сотрудников»); //делаем шаблон незащищенным Книга.ActiveSheet.UnProtect(); // Заполняем лист// …………………………….. // Снимаем защиту с области ввода сумм Для Перем = 1 По 10 Цикл // Прописываем, какие ячейки будут доступными Книга.ActiveSheet.Cells(Перем, 2).Locked=0; КонецЦикла; // ставим защиту на лист Книга.ActiveSheet.Protect();

Как запретить появление на экране всяких вопросов от Excel

// чтоб Excel не задавал вопросы: Excel.DisplayAlerts = False;

Как программно скрыть колонку файла Excel

// ПРИМЕР как скрыть колонку программно — скроется колонка №2: ЛистОшибок.Cells(ПозицияШапкиФайла, 2).ColumnWidth = 0; // скрыть колонку №2

Как программно назначить ячейке файла Excel перенос по словам

// ПРИМЕР как осуществлять перенос в ячейке по словам программно ячейка в строке ПозицияШапкиФайла, колонке №2: ЛистОшибок.Cells(ПозицияШапкиФайла, 2).WrapText = Истина; // осуществлять перенос в ячейке по словам

Как обработать файл xls, если Excel не установлен на компьютере

Для этого можно использовать метод

СоздатьОбъект(«ADODB.Connection»);

Код для 7.7, решающий такую задачу, будет выглядеть примерно так:

db = СоздатьОбъект(«ADODB.Connection»); ConectionString = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=»+ИмяФайла+»;Extended Properties=»+»Excel 8.0;»; rs=CreateObject(«ADODB.Recordset»); db.Open(ConectionString); rs.ActiveConnection = db; rs.CursorType = 3; rs.LockType = 2; //Чтобы задать Область, надо выделить область в екселе и нажать Вставка-Имя-Присвоить… rs.Source = «Select * from [Лист$1]»; rs.Open(); КоличествоПолей = rs.Fields.Count; Сообщить(КоличествоПолей); КоличествоЗаписей = rs.RecordCount; Сообщить(КоличествоЗаписей); Если rs.Eof()=0 Тогда Сообщить(rs.Fields(0).Value); rs.MoveNext(); Иначе ТЗ.УстановитьЗначение(1,1,rs.Fields(1).Value); КонецЕсли; rs.Close(); db.Close();

Как указать цвет шрифта в ячейке, цвет рамки, цвет фона

Книга.Sheets(1).Cells(1,1).Borders.Color = 25525124; // цвет рамки Книга.Sheets(1).Cells(1,1).Font.Color = 255000000; // цвет шрифта Книга.Sheets(1).Cells(1,1).Interior.Color = 255045; // цвет фона

Организация автоматической обработки файлов xls из выбранной папки

В 8.1 код обработки файлов выглядит примерно так:

// примеры задания пути к файлам:ПримерПапкиВСети = «\Adsf01PublicЗАГРУЗКА ЗАКАЗОВ»;ПримерПапкиЛокал = «C:1сОбмен»;// задаем путь загрузки:ПутьЗагрузки = ПримерПапкиЛокал;// Файлы — Массив из значений типа Файл, содержащий найденные файлы:Файлы = НайтиФайлы(ПутьЗагрузки,»*.xls*»);// организовываем перебор файлов:Для Каждого Файл ИЗ Файлы Цикл // обрабатываем файлы…. // … // В конце можно удалить бработанный файл: Попытка УдалитьФайлы(Файл.ПолноеИмя); Исключение Сообщить(«Не удалось удалить файл » + ОписаниеОшибки()); КонецПопытки; // или в конце можно переместить обработанный файл в специально предназначенную подпапку исходной папки: Попытка ПереместитьФайл(Файл.ПолноеИмя, ПутьЗагрузки+»Arhiv» + Файл.Имя); // папка архива: «C:1сОбменArhiv» Исключение Сообщить(«Не удалось переместить файл » + ОписаниеОшибки()); КонецПопытки;КонецЦикла;

В 7.7 для аналогичных действий используются команды:

ФС.НайтиПервыйФайл()ФС.НайтиСледующийФайл()ФС.УдалитьФайл()ФС.ПереименоватьФайл(,,);

Создание кнопки в Excel в 7.7

ТекущийЛист.Shapes(«CommandButton»).Select ТекущийЛист.OLEObjects(«CommandButton»).Object.Caption = «Кнопуля»;

Процедура открывает Эксель, втавляет на первый лист кнопку «Очистить» и назначает ей макрос,

устанавливающий автофильтр на колонку Е по не нулевым значениям. Текст макроса любой,

главное разделять Симв(13) строки

Попытка Ex=CreateObject(«Excel.Application»); Исключение Сообщить(ОписаниеОшибки(),»!!!»); Предупреждение(«Не удалось запустить MS Excel!»); Возврат; КонецПопытки; Состояние(«Открытие файла…»); Попытка Wb=Ex.WorkBooks.Add(); Исключение Возврат; КонецПопытки; Ex.Visible=-1; Wb.Sheets(1).OLEObjects.Add(«Forms.CommandButton.1»,,,10, 99.75, 120.75, «Очистить»);//27.75 st = «Private Sub CommandButton1_Click()» + Chr(13) + » ThisWorkbook.Sheets(1).Columns(«»E:E»»).AutoFilter Field:=1, Criteria1:=»»>0″», Operator:=xlAnd» + Chr(13) + «End Sub»; Ex.VBE.ActiveVBProject.VBComponents(Wb.Sheets(1).Name).CodeModule.AddFromString(st)

текст макроса пишется в переменную st

Как подключиться к запущенному Excel-евскому файлу в реальном времени, изменить его и даже не сохранять, а просто переключить окно на 1С и сразу же выгружать данные в табличную часть, лишь переключив окна

Excel = ПолучитьCOMОбъект(, «Excel.Application»);

При этом первый параметр нужно оставить пустым. В этом случае при этом подцепится тот файл экселя, который был открыт последним, даже если порядок переключения окон был таким:

Excel1, Excel2, IE, Проводник, 1С (т.е. что-то и было открытым между 1с и экселевским файлом) — все равно откроется Excel2, потому что он был активен последним.

Описание команды ПолучитьCOMОбъект

Глобальный контекст

ПолучитьCOMОбъект (GetCOMObject)

Синтаксис:

ПолучитьCOMОбъект(<Имя файла>, <Имя класса COM>)

Параметры:

<Имя файла> (необязательный)

Тип: Строка. Имя файла, включающее полный путь.

<Имя класса COM> (необязательный)

Тип: Строка. Имя класса COM, экземпляр которого должен быть создан или получен. Если расширение имени файла, указанное в первом параметре полностью идентифицирует класс объекта, то параметр может быть опущен.

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

Тип: COMОбъект.

Описание:

Основное применение функции ПолучитьCOMОбъект — это получение COM-объекта, соответствующего файлу. Для этого следует в качестве первого параметра функции задать имя файла, который будет определять COM-объект. Например, фрагмент кода

Таб = ПолучитьCOMОбъект(«C:DATADATA.XLS»);

создает объект Excel.Application и открывает с его помощью файл документа «C:DATADATA.XLS». Если указанный файл во время выполнения данного фрагмента уже открыт с помощью MS Excel, то будет получена ссылка на уже существующий объект.

Для файлов, указываемых в качестве параметра данной функции, должно быть установлено соответствие расширения имени файла и класса COM.

Если в качестве имени файла указана пустая строка, то будет создан новый экземпляр объекта. В этом случае необходимо указать имя класса COM.

Например, фрагмент кода

Таб = ПолучитьCOMОбъект(«», «Excel.Application»);

создает новый документ Excel. В дальнейшем этот документ может быть программно заполнен и сохранен в файл.

Если первый параметр функции пропущен, то будет произведена попытка получить активный объект указанного типа. Если активного объекта указанного типа в настоящий момент не существует, то будет вызвано исключение. Например, в результате выполнения оператора

П = ПолучитьCOMОбъект( , «Excel.Application»);

Переменная П получит значение типа COMОбъект, соответствующее активному приложению MS Excel, если таковое имелось, или будет вызвано исключение, если активных экземпляров MS Excel не было.

Пример:

// Получение объекта COM, соответствующего файлу Таб = ПолучитьCOMОбъект(«C:DATADATA.XLS»); // Создание нового экземпляра объекта Таб = ПолучитьCOMОбъект(«», «Excel.Application»); // Получение активного объекта Таб = ПолучитьCOMОбъект( , «Excel.Application»);

Ниже приведена сравнительная таблица команд — один и тот же код на 7.7 и 8.1 с небольшими дополнениями

Отличия:

• • команда создания самого объекта в 7.7 и 8.1 различна;

  • в 8.1 выводится запись в журнал регистрации (просто для примера, например, когда вывод сообщения на экран невозможен из-за выполнения кода в фоновом задании);

  • в 8.1 параллельно создается, заполняется и сохраняется копия исходного файла с комментариями об ошибках