Функции сохранения таблицы значений в файл и чтения из файла В данном примере хочу привести несколько универсальных функций по выгрузке таблицы значений в файл и дальнейшего чтения из файла:
П орядок программных действий при выгрузке в файл выглядит так:
Подготавливаем таблицу значений (выгружаем из табличной части, выбираем колонки); Конвертируем таблицу значений в табличный документ; Сохраняем табличный документ в MXL.
При загрузке таблицы порядок действий такой:
Читаем из файла табличный документ; Конвертируем табличный документ в таблицу значений; Используем эту таблицу значений в своих целях (загружаем в табличную часть).
Соответственно файл для хранения данных таблицы имеет расширение *.mxl.
Основные функции для реализации поставленной задачи следующие:
ПреобразоватьТДвТЗ – Функция преобразования табличного документа в таблицу значений.
ПреобразоватьТЗвТД – Функция обратного преобразования таблицы значений в табличный документ.
ПрочитатьТЗИзMXL – Читает из файла данные, определяет колонки таблицы и преобразует эти данные в таблицу значений.
ЗаписатьТЗВMXL – Преобразует таблицу значений в табличный документ и записывает его в файл.
Код 1C v 8.3
Функция ПреобразоватьТДвТЗ(ТабДок, СтруктураКолонок, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, Знач КонецСтрока = Неопределено, Знач КонецСтолбец = Неопределено) Экспорт Если НачалоСтрока = Неопределено И НачалоСтолбец = Неопределено Тогда
НачалоСтрока = 1 ;
НачалоСтолбец = 1 ;
КонецЕсли ;
Если НачалоСтрока = Неопределено Тогда
НачалоСтрока = 1 ;
Пока НЕ ТабДок. Область( НачалоСтрока, НачалоСтолбец) . СодержитЗначение
И НачалоСтрока < ТабДок. ВысотаТаблицы
Цикл
НачалоСтрока = НачалоСтрока + 1 ;
КонецЦикла ;
ИначеЕсли НачалоСтолбец = Неопределено Тогда
НачалоСтолбец = 1 ;
Пока НЕ ТабДок. Область( НачалоСтрока, НачалоСтолбец) . СодержитЗначение
И НачалоСтолбец < ТабДок. ШиринаТаблицы
Цикл
НачалоСтолбец = НачалоСтолбец + 1 ;
КонецЦикла ;
КонецЕсли ;
КонецСтрока = ? ( КонецСтрока = Неопределено , ТабДок. ВысотаТаблицы, КонецСтрока) ;
КонецСтолбец = ? ( КонецСтолбец = Неопределено , ТабДок. ШиринаТаблицы, КонецСтолбец) ;
ЭтоТаблица = ( ТипЗнч( СтруктураКолонок) = Тип( "ТаблицаЗначений" ) ) ;
ТабЗначений = ПолучитьТаблицуВывода( СтруктураКолонок) ;
Для ИндексСтроки = НачалоСтрока По КонецСтрока Цикл
СтрокаТЗ = ТабЗначений. Добавить( ) ;
ИндексКолонки = НачалоСтолбец;
Для Каждого Колонка Из СтруктураКолонок Цикл
НаименованиеКолонки = ? ( ЭтоТаблица, Колонка. Наименование, Колонка. Ключ) ;
пИндексКолонки = ? ( ЭтоТаблица, Колонка. СтолбецОтчёт, ИндексКолонки) ;
Если ТабДок. Область( ИндексСтроки, пИндексКолонки) . СодержитЗначение Тогда
СтрокаТЗ[НаименованиеКолонки] = ТабДок. Область( ИндексСтроки, пИндексКолонки) . Значение;
Иначе
СтрокаТЗ[НаименованиеКолонки] = ТабДок. Область( ИндексСтроки, пИндексКолонки) . Текст;
КонецЕсли ;
ИндексКолонки = ИндексКолонки + 1 ;
КонецЦикла ;
КонецЦикла ;
Возврат ТабЗначений;
КонецФункции ;
Функция ПреобразоватьТЗвТД(ТабЗначений, ТабДок = Неопределено, Знач НачалоСтрока = Неопределено, Знач НачалоСтолбец = Неопределено, ВыводитьЗаголовки = Ложь) Экспорт Если ТабДок = Неопределено Тогда
ТабДок = Новый ТабличныйДокумент;
КонецЕсли ;
НачалоСтрока = ? ( НачалоСтрока = Неопределено , 1 , НачалоСтрока) ;
НачалоСтолбец = ? ( НачалоСтолбец = Неопределено , 1 , НачалоСтолбец) ;
ИндексСтроки = НачалоСтрока;
Если ВыводитьЗаголовки Тогда
ИндексКолонки = НачалоСтолбец;
Для Каждого Колонка Из ТабЗначений. Колонки Цикл
ТабДок. Область( ИндексСтроки, ИндексКолонки) . Текст = ? ( ПустаяСтрока( Колонка. Заголовок) , Колонка. Имя, Колонка. Заголовок) ;
ИндексКолонки = ИндексКолонки + 1 ;
КонецЦикла ;
ИндексСтроки = ИндексСтроки + 1 ;
КонецЕсли ;
Для Каждого Элемент Из ТабЗначений Цикл
ИндексКолонки = НачалоСтолбец;
Для Каждого Колонка Из ТабЗначений. Колонки Цикл
ТабДок. Область( ИндексСтроки, ИндексКолонки) . СодержитЗначение = Истина ;
ТабДок. Область( ИндексСтроки, ИндексКолонки) . ТипЗначения = Новый ОписаниеТипов( Колонка. ТипЗначения) ;
ТабДок. Область( ИндексСтроки, ИндексКолонки) . Значение = Элемент[Колонка. Имя];
ИндексКолонки = ИндексКолонки + 1 ;
КонецЦикла ;
ИндексСтроки = ИндексСтроки + 1 ;
КонецЦикла ;
Возврат ТабДок;
КонецФункции ;
Функция ПрочитатьТЗИзMXL(ИмяФайла, СтруктураКолонок = Неопределено, ЕстьЗаголовок = Истина) Экспорт = Новый ТабличныйДокумент;
ТабДок. Прочитать( ИмяФайла) ;
Если СтруктураКолонок = Неопределено И ЕстьЗаголовок Тогда
СтруктураКолонок = Новый Структура;
Для ИндексКолонки = 1 По ТабДок. ШиринаТаблицы Цикл
Обл1 = ТабДок. Область( 1 , ИндексКолонки) ;
Обл2 = ТабДок. Область( 2 , ИндексКолонки) ;
ИмяКолонки = СокрЛП( Обл1 . Текст) ;
ИмяКолонки = ? ( Найти( ИмяКолонки, " " ) > 0 , СтрЗаменить( ТРег( ИмяКолонки) , " " , "" ) , ИмяКолонки) ;
СтруктураКолонок. Вставить( ИмяКолонки, ? ( Обл2 . СодержитЗначение, Обл2 . ТипЗначения, Новый ОписаниеТипов) ) ;
КонецЦикла ;
ИначеЕсли СтруктураКолонок = Неопределено И НЕ ЕстьЗаголовок Тогда
СтруктураКолонок = Новый Структура;
Для ИндексКолонки = 1 По ТабДок. ШиринаТаблицы Цикл
Обл2 = ТабДок. Область( 1 , ИндексКолонки) ;
ИмяКолонки = "К" + Формат( ИндексКолонки, "ЧДЦ=0; ЧН=0; ЧГ=0" ) ;
СтруктураКолонок. Вставить( ИмяКолонки, ? ( Обл2 . СодержитЗначение, Обл2 . ТипЗначения, Новый ОписаниеТипов) ) ;
КонецЦикла ;
КонецЕсли ;
Таблица = ПреобразоватьТДвТЗ( ТабДок, СтруктураКолонок, ? ( ЕстьЗаголовок, 2 , 1 ) , 1 ) ;
Возврат Таблица;
КонецФункции ;
Процедура ЗаписатьТЗВMXL(ИмяФайла, ТабЗначений, ЕстьЗаголовок = Истина) Экспорт = ПреобразоватьТЗвТД( ТабЗначений, Неопределено , 1 , 1 , ЕстьЗаголовок) ;
ТабДок. Записать( ИмяФайла, ТипФайлаТабличногоДокумента. MXL) ;
КонецПроцедуры ; Еще небольшой набор функций для вывода таблицы значений в табличный документ. После формирования табличного документа, - сохраняем его в файл mxl.
Табличный документ можно сохранить a файлы следующих типов:
ANSITXT - Текстовый документ DOCX - документ MS Word HTML HTML3 HTML4 HTML5 MXL MXL7 ODS - Файл Open Office PDF - файл Acrobat Readr TXT - Текстовый документ XLS - файл Excel XLS95 - файл Excel95 XLS97 - файл Excel97 XLSX - файл Excel2010
Код 1C v 8.3 // Получаем таблицу значения из файла. построчно табличный документПример выгруженной таблицы значений в файл:
Категория:
Работа с Таблицей Значений Как мы писали парсер сайта с ценами для 1С Недавно, мой постоянный клиент решил проводить маркетинговые исследования по изменению цен на товары у конкурентов... и эти данные захотел использовать в 1С в связке с его прайс-листом + куча отчетов с графиками и процентным отклонением от цен основного конкурента
В результате этого, была написана обработка собирающая данные со страниц разных сайтов. Из целей конфиденциальности - сайты раскрывать не буду...
Вид обработки загрузки данных с сайта в 1С
Ниже код загрузки данных со страницы сайта , смысл такой :
в функция передается адрес страницы сайта полученный текст страницы обрабатывается, удаляются теги из полученного текста формируется ТЗ с данными По названию ищется поставщик из вспомогательного справочника Справочники.Pr_Поставщики.НайтиПоНаименованию(, если нет - создается на выходе ТЗ с данными Код 1C v 8.х Функция ПолучитьТаблицуДанных(Строка)построчно В коде используется вспомогательная функция ПолучитьМассивИзСтрокиСРазделителем
Код 1C v 8.2 УП
Функция ПолучитьМассивИзСтрокиСРазделителем(Знач Стр, Разделитель = "." , ОбрезатьНепечатныеСимволы = Ложь) Экспорт = Новый Массив;
Если Разделитель = " " Тогда
Стр = СокрЛП( Стр) ;
Пока 1 = 1 Цикл
Поз = Найти( Стр, Разделитель) ;
Если Поз= 0 Тогда
МассивСтрок. Добавить( Стр) ;
Возврат МассивСтрок;
КонецЕсли ;
МассивСтрок. Добавить( Лев( Стр, Поз- 1 ) ) ;
Стр = СокрЛ( Сред( Стр, Поз) ) ;
КонецЦикла ;
Иначе
ДлинаРазделителя = СтрДлина( Разделитель) ;
Пока 1 = 1 Цикл
Поз = Найти( Стр, Разделитель) ;
Если Поз= 0 Тогда
Фрагмент = Стр;
Если ОбрезатьНепечатныеСимволы Тогда
Фрагмент = СокрЛП( Фрагмент) ;
КонецЕсли ;
МассивСтрок. Добавить( Фрагмент) ;
Возврат МассивСтрок;
КонецЕсли ;
Фрагмент = Лев( Стр, Поз- 1 ) ;
Если ОбрезатьНепечатныеСимволы Тогда
Фрагмент = СокрЛП( Фрагмент) ;
КонецЕсли ;
МассивСтрок. Добавить( Фрагмент) ;
Стр = Сред( Стр, Поз+ ДлинаРазделителя) ;
КонецЦикла ;
КонецЕсли ;
Возврат МассивСтрок;
КонецФункции Конечно, перед тем как мы начали это делать - прошерстили интернет и нашли несколько решений
Код 1C v 8.х Соединение = ПолучитьCOMОбъект( "" , "Microsoft.XMLHTTP" ) ;
ИмяВременногоФайла= ПолучитьИмяВременногоФайла( "htm" ) ;
Соединение. open( "GET" , "http://mamba.ru/my" , 0 ) ;
Соединение. send( ) ;
ТаймАут = 200 ;
Начало= ТекущаяДата( ) ;
Пока Соединение. readyState < > 4 И ( ТаймАут= 0 ИЛИ ТекущаяДата( ) - Начало< ТаймАут) Цикл
бфДиалоги. ксОбработкаПрерыванияПользователя( ) ;
КонецЦикла ;
обСохранитьДвоичныйБуферВФайл( Соединение. responseBody, ИмяВременногоФайла) ;
Соединение. open( "POST" , "http://mamba.ru/my" ) ;
Соединение. send( "login=xxx&password=&&&" ) ;
Функция обСохранитьДвоичныйБуферВФайл(Буфер, ИмяФайла) Экспорт = Новый COMОбъект( "ADODB.Stream" ) ;
Поток. Type = 1 ;
Поток. Mode = 3 ;
Поток. Open( ) ;
Поток. Write( Буфер) ;
Поток. SaveToFile( ИмяФайла) ;
Поток. Close( ) ;
КонецФункции Код 1C v 8.х НТТР = ПолучитьCOMОбъект( "" , "Microsoft.XMLHTTP" ) ;
ИмяФайлаОтвета = КаталогВременныхФайлов( ) + "filename.tmp" ;
НТТР. open( "GET" , "www.google.com" , 0 , , ) ;
НТТР. send( ) ;
StreamTypeEnum = Новый Структура( "adTypeBinary, adTypeText" , 1 , 2 ) ;
ConnectModeEnum = Новый Структура(
"adModeRead, adModeReadWrite, adModeRecursive, adModeShareDenyNone,
|adModeShareDenyRead, adModeShareDenyWrite, adModeShareExclusive,
|adModeUnknown, adModeWrite" , 1 , 3 , 4194304 , 16 , 4 , 8 , 12 , 0 , 2 ) ;
SaveOptionsEnum = Новый Структура( "adSaveCreateNotExist, adSaveCreateOverWrite" , 1 , 2 ) ;
StreamOut = Новый COMОбъект( "ADODB.Stream" ) ;
StreamOut. Type = StreamTypeEnum. adTypeBinary;
StreamOut. Mode = ConnectModeEnum. adModeReadWrite;
StreamOut. Open( ) ;
StreamOut. Write( НТТР. responseBody) ;
StreamOut. SaveToFile( ИмяФайлаОтвета, SaveOptionsEnum. adSaveCreateOverWrite) ;
StreamOut. Close( ) ; И даже не этом сайте есть статья : Парсер сайта связного на 1С
Нужен парсер сайта в 1С!? - Обращайтесь, контакты в
профиле Категория:
Работа с Интернет, Почтой (Mail), FTP Получение текста web-страницы используя HTTPСоединение Код 1C v 8.х
Сервер = "w1c.ru" ;
Соединение = Новый HTTPСоединение( Сервер) ;
Заголовки = Новый Соответствие;
Заголовки. Вставить( "host" , Сервер) ;
Запрос = Новый HTTPЗапрос( "/work.html" , Заголовки) ;
Ответ = Соединение. Получить( Запрос) ;
Если Ответ. КодСостояния = 200 Тогда
ТекстСтраницы= Ответ. ПолучитьТелоКакСтроку( ) ;
Сообщить( ТекстСтраницы) ;
КонецЕсли ; Код 1C v 8.х // ЧЕРЕЗ ФАЙЛпострочно Категория:
Работа с Интернет, Почтой (Mail), FTP Работа с MS Word через OLE В качестве примера использования можно указать вот такую ситуацию: в зависимости от типа клиента (договора, документа и т.п) формируются разные тексты договоров с разным количеством таблиц. В реальности, конечно должены использоваться и макет и описанные здесь динамические механизмы.
В моем примере я заранее создал новый пустой документ.
Тестировалось на Office 2007.
Код 1C v 8.х
Процедура ВыполнитьОбработку() Экспорт Попытка
Объект = ПолучитьCOMОбъект( ПутьКФайлу) ;
Объект. Application. Visible = 1 ;
Word = Объект. Application;
Doc = Объект. Application. Documents( 1 ) ;
Doc. Activate( ) ;
Text = Word. S_election;
Text. WholeStory( ) ;
Text. Delete( 1 , 1 ) ;
Text. TypeText( Символы. ВК) ;
Text. TypeText( Символы. ВК) ;
Text. TypeParagraph( ) ;
Text. TypeText( "Обычный текст, набранный первую очередь" ) ;
Text. HomeKey( , 1 ) ;
Text. Font. Bold = 9999998 ;
Text. Font. Size = 14 ;
Text. Font. Name = "Verdana" ;
Text. MoveUp( , 2 ) ;
Text. HomeKey( , 1 ) ;
Text. TypeText( "Обычный текст, набранный во вторую очередь" ) ;
Text. MoveDown( , 1 ) ;
Text. EndKey( ) ;
Text. TypeParagraph( ) ;
Text. ClearFormatting( ) ;
Position = Text. Range( ) ;
Table = Doc. Tables. Add( Position, 1 , 6 , 1 , 2 ) ;
Table. Columns( 1 ) . PreferredWidth= 10 ;
Table. Columns( 2 ) . PreferredWidth= 50 ;
Table. Columns( 3 ) . PreferredWidth= 10 ;
Table. Columns( 4 ) . PreferredWidth= 10 ;
Table. Columns( 5 ) . PreferredWidth= 10 ;
Table. Columns( 6 ) . PreferredWidth= 10 ;
Row1= Table. Rows( 1 ) ;
Row1. Cells( 1 ) . Range. Text= "№ п/п" ;
Row1. Cells( 2 ) . Range. Text= "Наименование" ;
Row1. Cells( 4 ) . Range. Text= "Кол-во" ;
Row1. Cells( 3 ) . Range. Text= "Ед. изм." ;
Row1. Cells( 5 ) . Range. Text= "Цена,руб." ;
Row1. Cells( 6 ) . Range. Text= "Сумма,руб." ;
НомерСтроки = 1 ;
Для каждого СтрокаТовары Из Ссылка. Товары Цикл
Row= Table. Rows. Add( ) ;
Row. Cells( 1 ) . Range. Text= НомерСтроки;
Row. Cells( 1 ) . Range. ParagraphFormat. Alignment = 1 ;
Row. Cells( 2 ) . Range. Text= СтрокаТовары. Номенклатура. Наименование
+ ? ( ЗначениеЗаполнено( СтрокаТовары. ХарактеристикаНоменклатуры) ,
" (" + СтрокаТовары. ХарактеристикаНоменклатуры+ ")" , "" ) ;
Row. Cells( 4 ) . Range. Text= Строка( СтрокаТовары. Количество) ;
Row. Cells( 4 ) . Range. ParagraphFormat. Alignment = 1 ;
Row. Cells( 3 ) . Range. Text= ? ( ЗначениеЗаполнено( СтрокаТовары. Номенклатура. БазоваяЕдиницаИзмерения)
, СтрокаТовары. Номенклатура. БазоваяЕдиницаИзмерения. Наименование, "-" ) ;
Row. Cells( 3 ) . Range. ParagraphFormat. Alignment = 1 ;
Row. Cells( 5 ) . Range. Text= Формат( СтрокаТовары. Цена, "ЧДЦ=2" ) ;
Row. Cells( 5 ) . Range. ParagraphFormat. Alignment = 1 ;
Row. Cells( 6 ) . Range. Text= Формат( СтрокаТовары. Сумма, "ЧДЦ=2" ) ;
Row. Cells( 6 ) . Range. ParagraphFormat. Alignment = 1 ;
НомерСтроки= НомерСтроки+ 1 ;
КонецЦикла ;
Row1. Range. Font. Bold = 9999998 ;
Row1. Range. Font. Size = 14 ;
Row1. Range. Font. Name = "Verdana" ;
Row1. Range. ParagraphFormat. Alignment = 1 ;
Row = Table. Rows. Add( ) ;
Row. Range. Font. Bold = 9999998 ;
Row. Cells( 1 ) . Range. Text= "Итого:" ;
Исключение
Doc. Save( ) ;
Сообщить( ОписаниеОшибки( ) ) ;
Объект. Application. Quit( ) ;
Объект = Неопределено ;
КонецПопытки ;
Попытка
Table. cell( НомерСтроки+ 1 , 1 ) . Merge( Table. cell( НомерСтроки+ 1 , 5 ) ) ;
Исключение
КонецПопытки ;
Попытка
Row. Cells( 1 ) . Range. ParagraphFormat. Alignment = 3 ;
Row. Cells( 2 ) . Range. Text= Формат( Ссылка. Товары. Итог( "Сумма" ) , "ЧДЦ=2" ) ;
Row. Cells( 2 ) . Range. ParagraphFormat. Alignment = 1 ;
Doc. Save( ) ;
Объект. Application. Quit( ) ;
Объект = Неопределено ;
Исключение
Doc. Save( ) ;
Сообщить( ОписаниеОшибки( ) ) ;
Объект. Application. Quit( ) ;
Объект = Неопределено ;
КонецПопытки ;
КонецПроцедуры Часто при создании документа из макета используют метод замены кусков текста. В примере представлен другой вариант выполнения того же действия - с использованием закладок. Также представлен пример построения нумерованного списка, вставки картинки, настройки ее параметров.
Пример использования описанных возможностей прост. При формировании коммерческого предложения бывает необходимо описать список условий, добавить изображение образца продукции.
Для отображения закладок включите эту опцию в настройках вашего Word'а.
В моем примере я заранее создал новый пустой документ, путь к документу и картинке прописан в тексте. Не забудте указать свои пути.
Код 1C v 8.х Процедура ВыполнитьОбработку() Экспорт Попытка
Объект = ПолучитьCOMОбъект( "C:\Users\NKrylov\Desktop\Тест.docx" ) ;
Объект. Application. Visible = 1 ;
Word = Объект. Application;
ThisDocument = Word. Documents( 1 ) ;
ThisDocument. Activate( ) ;
ThisDocument. GrammarChecked= 0 ;
ThisDocument. ShowGrammaticalErrors= 0 ;
S_election = Word. S_election;
S_election. WholeStory( ) ;
S_election. Delete( 1 , 1 ) ;
S_election. ParagraphFormat. LineSpacingRule = 0 ;
S_election. ParagraphFormat. SpaceAfter = 0 ;
ThisDocument. Bookmarks. Add( "Закладка1" , S_election. Range( ) ) ;
S_election. TypeParagraph( ) ;
S_election. TypeText( "34r3 " ) ;
S_election. HomeKey( , 1 ) ;
ThisDocument. Bookmarks. Add( "Закладка2" , S_election. Range( ) ) ;
S_election. EndKey( ) ;
S_election. TypeParagraph( ) ;
ThisDocument. Bookmarks. Add( "Закладка3" , S_election. Range( ) ) ;
S_election. TypeParagraph( ) ;
ThisDocument. Bookmarks. Add( "Закладка4" , S_election. Range( ) ) ;
S_election. EndKey( ) ;
ThisDocument. Bookmarks( "Закладка3" ) . Range. S_elect( ) ;
S_election = Word. S_election;
Bookmark = ThisDocument. Bookmarks( "Закладка3" ) ;
Table = ThisDocument. Tables. Add( Bookmark. Range( ) , 1 , 5 , 1 , 2 ) ;
Table. Rows( 1 ) . Cells( 1 ) . Range. Text = 1 ;
Table. Rows( 1 ) . Cells( 2 ) . Range. Text = 2 ;
Table. Rows( 1 ) . Cells( 3 ) . Range. Text = 3 ;
Table. Rows( 1 ) . Cells( 4 ) . Range. Text = 4 ;
Table. Rows( 1 ) . Cells( 5 ) . Range. Text = 5 ;
S_election. MoveDown( , 1 ) ;
S_election. Delete( 1 , 1 ) ;
ThisDocument. Bookmarks( "Закладка2" ) . Range. S_elect( ) ;
S_election = Word. S_election;
Text = S_election. Range. Text;
S_election. TypeText( Text + " sdcsdcs" ) ;
S_election. HomeKey( , 1 ) ;
ThisDocument. Bookmarks. Add( "Закладка2" , S_election. Range( ) ) ;
S_election. EndKey( ) ;
ThisDocument. Bookmarks( "Закладка4" ) . Range. S_elect( ) ;
S_election = Word. S_election;
S_election. TypeText( "sdcsdcsdcsdc" ) ;
S_election. TypeParagraph( ) ;
S_election. TypeText( "sdcsdcsdcsdc" ) ;
S_election. TypeParagraph( ) ;
S_election. TypeText( "sdcsdcsdcsdc" ) ;
S_election. TypeParagraph( ) ;
S_election. TypeText( "sdcsdcsdcsdc" ) ;
S_election. TypeParagraph( ) ;
S_election. MoveUp( , 4 , 1 ) ;
ListTemplate = Word. ListGalleries( 2 ) . ListTemplates( 1 ) . ListLevels( 1 ) ;
ListTemplate. NumberFormat = "%1." ;
ListTemplate. NumberStyle = 0 ;
S_election. Range. ListFormat. ApplyListTemplateWithLevel( Word. ListGalleries( 2 ) . ListTemplates( 1 ) ) ;
S_election. EndKey( 6 ) ;
Picture = S_election. InlineShapes. AddPicture( "C:\Users\NKrylov\Desktop\Новый.bmp" , Ложь , Истина ) ;
Picture. Height = 100 ;
Picture. Width = 150 ;
Shape = Picture. ConvertToShape( ) ;
Shape. WrapFormat. Type = 0 ;
ThisDocument. Save( ) ;
Объект = Неопределено ;
Исключение
ThisDocument. Save( ) ;
Сообщить( ОписаниеОшибки( ) ) ;
Объект = Неопределено ;
КонецПопытки ;
КонецПроцедуры
Автор:
Крылов Николай Категория:
Работа с Microsoft Office и OpenOffice Как отчет на СКД сохранить в таблицу значений, а потом выгрузить в файл? Допустим у нас есть отчет с ОсновнойСхемойКомпановкиДанных,
Создадим ФормуОтчета:
На форму добавим Кнопку Выгрузка( Процедура ДействияФормыВыгрузка(Кнопка) ) и Выбор Периода формирования отчета
Выводить можно только Группировки:
Код отчета будет следующий:
Код 1C v 8.х Процедура ДействияФормыВыгрузка(Кнопка)построчно Смотрите так же:
Вывод отчета СКД в коллекцию значений - Дерево Значений Категория:
Схема Компоновки Данных Как организовать обмен данными между произвольными конфигурациями? Код 1C v 8.х Процедура Выгрузка(Элемент) = "c:\" ;
ЗаписьXML = Новый ЗаписьXML( ) ;
ЗаписьXML. ОткрытьФайл( Путь + "выгрузка.xml" ) ;
Узел = ПланыОбмена. Поставка. НайтиПоКоду( "Маг1" ) ;
ЗапСообщения = ПланыОбмена. СоздатьЗаписьСообщения( ) ;
ЗапСообщения. НачатьЗапись( ЗаписьXML, Узел) ;
Выборка = ПланыОбмена. ВыбратьИзменения( Узел, ЗапСообщения. НомерСообщения) ;
Пока Выборка. Следующий( ) Цикл
Данные = Выборка. Получить( ) ;
Если ТипЗнч( Данные) = Тип( "ДокументОбъект.РеализацияТоваров" ) Тогда
ВыгрузкаРеализации( ЗаписьXML, Данные) ;
Иначе
ЗаписатьXML( ЗаписьXML, Данные) ;
КонецЕсли ;
КонецЦикла ;
ЗапСообщения. ЗакончитьЗапись( ) ;
ЗаписьXML. Закрыть( ) ;
КонецПроцедуры
Процедура ВыгрузкаРеализации(ЗаписьXML, Документ) . ЗаписатьНачалоЭлемента( "DocumentObject.ПередачаТовара" ) ;
ЗаписатьXML( ЗаписьXML, Документ. Ссылка. УникальныйИдентификатор( ) , "Ref" , НазначениеТипаXML. Явное) ;
ЗаписатьXML( ЗаписьXML, Документ. ПометкаУдаления, "DeletionMark" , НазначениеТипаXML. Явное) ;
ЗаписатьXML( ЗаписьXML, Документ. ВалютаДокумента, "ВалютаДокумента" , НазначениеТипаXML. Явное) ;
ЗаписьXML. ЗаписатьНачалоЭлемента( "Товары" ) ;
Для Каждого ТекСтрока Из Документ. Товары Цикл
ЗаписьXML. ЗаписатьНачалоЭлемента( "Row" ) ;
ЗаписатьXML( ЗаписьXML, ТекСтрока. Номенклатура, "Номенклатура" , НазначениеТипаXML. Явное) ;
ЗаписатьXML( ЗаписьXML, ТекСтрока. Количество, "Количество" , НазначениеТипаXML. Явное) ;
ЗаписьXML. ЗаписатьКонецЭлемента( ) ;
КонецЦикла ;
ЗаписьXML. ЗаписатьКонецЭлемента( ) ;
ЗаписьXML. ЗаписатьКонецЭлемента( ) ;
КонецПроцедуры
Процедура Загрузка(Элемент) = "c:\" ;
ЧтениеXML = Новый ЧтениеXML( ) ;
ЧтениеXML. ОткрытьФайл( Путь + "выгрузка.xml" ) ;
ЧтСообщения = ПланыОбмена. СоздатьЧтениеСообщения( ) ;
ЧтСообщения. НачатьЧтение( ЧтениеXML) ;
ПланыОбмена. УдалитьРегистрациюИзменений( ЧтСообщения. Отправитель, ЧтСообщения. НомерСообщения) ;
Пока ВозможностьЧтенияДанных( ЧтениеXML) Цикл
Данные = ПрочитатьДанные( ЧтениеXML) ;
Если РазрешениеКоллизий( Данные) Тогда
Данные. ОбменДанными. Отправитель = ЧтСообщения. Отправитель;
Данные. ОбменДанными. Загрузка = Истина ;
Данные. Записать( ) ;
КонецЕсли ;
КонецЦикла ;
ЧтСообщения. ЗакончитьЧтение( ) ;
ЧтениеXML. Закрыть( ) ;
КонецПроцедуры
Функция ВозможностьЧтенияДанных(ЧтениеXML) = ПолучитьXMLТип( ЧтениеXML) ;
Если ТипXML = Неопределено Тогда
Возврат Ложь ;
КонецЕсли ;
Если ТипXML. ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML. URIПространстваИмен = "" Тогда
Возврат Истина ;
КонецЕсли ;
Возврат ВозможностьЧтенияXML( ЧтениеXML) ;
КонецФункции
Функция ПрочитатьДанные(ЧтениеXML) = ПолучитьXMLТип( ЧтениеXML) ;
Если ТипXML. ИмяТипа = "DocumentObject.ПередачаТовара" И ТипXML. URIПространстваИмен = "" Тогда
Возврат ЧтениеРеализации( ЧтениеXML) ;
КонецЕсли ;
Возврат ПрочитатьXML( ЧтениеXML) ;
КонецФункции
Функция ЧтениеРеализации(ЧтениеXML) . Прочитать( ) ;
ПолученнаяСсылка = ПрочитатьXML( ЧтениеXML) ;
Док = Документы. ПоступлениеТоваров. ПолучитьСсылку( Новый УникальныйИдентификатор( ПолученнаяСсылка) ) ;
Документ = Док. ПолучитьОбъект( ) ;
Если Документ = Неопределено Тогда
Документ = Документы. ПоступлениеТоваров. СоздатьДокумент( ) ;
Документ. УстановитьСсылкуНового( Док) ;
Документ. Дата = ТекущаяДата;
Документ. УстановитьНовыйНомер( ) ;
КонецЕсли ;
Документ. ПометкаУдаления = ПрочитатьXML( ЧтениеXML) ;
Документ. ВалютаДокумента = ПрочитатьXML( ЧтениеXML) ;
ЧтениеXML. Прочитать( ) ;
Документ. Товары. Очистить( ) ;
Пока ЧтениеXML. Имя = "Row" Цикл
ЧтениеXML. Прочитать( ) ;
НоваяСтрока = Документ. Товары. Добавить( ) ;
НоваяСтрока. Номенклатура = ПрочитатьXML( ЧтениеXML) ;
НоваяСтрока. Количество = ПрочитатьXML( ЧтениеXML) ;
ЧтениеXML. Прочитать( ) ;
КонецЦикла ;
ЧтениеXML. Прочитать( ) ;
ЧтениеXML. Прочитать( ) ;
Возврат ( Документ) ;
КонецФункции
Функция РазрешениеКоллизий(Данные) Если ТипЗнч( Данные) = Тип( "ДокументОбъект.ПоступлениеТоваров" ) Тогда
Если Не Данные. ЭтоНовый( ) Тогда
СсылкаНаУзел = ПланыОбмена. Поставка. НайтиПоКоду( "Опт" ) ;
Если ПланыОбмена. ИзменениеЗарегистрировано( СсылкаНаУзел, Данные) Тогда
Возврат ( Ложь ) ;
КонецЕсли ;
КонецЕсли ;
КонецЕсли ;
Возврат ( Истина ) ;
КонецФункции Категория:
Конвертация данных, Обмен, Перенос Создание документа Word без использования макетов и пример создания таблицы и её оформление. Кроме прочего в статье присутствует пример создания таблицы с любым количеством колонок и столбцов. Несколько строк с форматированием текста и таблицы. Создание "объединенных" ячеек.
В качестве примера использования можно указать вот такую ситуацию: в зависимости от типа клиента (договора, документа и т.п) формируются разные тексты договоров с разным количеством таблиц. В реальности, конечно должены использоваться и макет и описанные здесь динамические механизмы.
В моем примере я заранее создал новый пустой документ.
Тестировалось на Office 2007.
Исп. переменные: "ПутьКФайлу" - строка. Полное имя файла в формате MSWord.
"Ссылка" - ДокументСсылка (в моем случае - счет).
Вот текст модуля:
Код 1C v 8.х Процедура ВыполнитьОбработку() Экспорт Попытка
Объект = ПолучитьCOMОбъект( ПутьКФайлу) ;
Объект. Application. Visible = 1 ;
Word = Объект. Application;
Doc = Объект. Application. Documents( 1 ) ;
Doc. Activate( ) ;
Text = Word. S_election;
Text. WholeStory( ) ;
Text. Delete( 1 , 1 ) ;
Text. TypeText( Символы. ВК) ;
Text. TypeText( Символы. ВК) ;
Text. TypeParagraph( ) ;
Text. TypeText( "Обычный текст, набранный первую очередь" ) ;
Text. HomeKey( , 1 ) ;
Text. Font. Bold = 9999998 ;
Text. Font. Size = 14 ;
Text. Font. Name = "Verdana" ;
Text. MoveUp( , 2 ) ;
Text. HomeKey( , 1 ) ;
Text. TypeText( "Обычный текст, набранный во вторую очередь" ) ;
Text. MoveDown( , 1 ) ;
Text. EndKey( ) ;
Text. TypeParagraph( ) ;
Text. ClearFormatting( ) ;
Position = Text. Range( ) ;
Table = Doc. Tables. Add( Position, 1 , 6 , 1 , 2 ) ;
Table. Columns( 1 ) . PreferredWidth= 10 ;
Table. Columns( 2 ) . PreferredWidth= 50 ;
Table. Columns( 3 ) . PreferredWidth= 10 ;
Table. Columns( 4 ) . PreferredWidth= 10 ;
Table. Columns( 5 ) . PreferredWidth= 10 ;
Table. Columns( 6 ) . PreferredWidth= 10 ;
Row1= Table. Rows( 1 ) ;
Row1. Cells( 1 ) . Range. Text= "№ п/п" ;
Row1. Cells( 2 ) . Range. Text= "Наименование" ;
Row1. Cells( 4 ) . Range. Text= "Кол-во" ;
Row1. Cells( 3 ) . Range. Text= "Ед. изм." ;
Row1. Cells( 5 ) . Range. Text= "Цена,руб." ;
Row1. Cells( 6 ) . Range. Text= "Сумма,руб." ;
НомерСтроки = 1 ;
Для каждого СтрокаТовары Из Ссылка. Товары Цикл
Row= Table. Rows. Add( ) ;
Row. Cells( 1 ) . Range. Text= НомерСтроки;
Row. Cells( 1 ) . Range. ParagraphFormat. Alignment = 1 ;
Row. Cells( 2 ) . Range. Text= СтрокаТовары. Номенклатура. Наименование
+ ? ( ЗначениеЗаполнено( СтрокаТовары. ХарактеристикаНоменклатуры) ,
" (" + СтрокаТовары. ХарактеристикаНоменклатуры+ ")" , "" ) ;
Row. Cells( 4 ) . Range. Text= Строка( СтрокаТовары. Количество) ;
Row. Cells( 4 ) . Range. ParagraphFormat. Alignment = 1 ;
Row. Cells( 3 ) . Range. Text= ? ( ЗначениеЗаполнено( СтрокаТовары. Номенклатура. БазоваяЕдиницаИзмерения)
, СтрокаТовары. Номенклатура. БазоваяЕдиницаИзмерения. Наименование, "-" ) ;
Row. Cells( 3 ) . Range. ParagraphFormat. Alignment = 1 ;
Row. Cells( 5 ) . Range. Text= Формат( СтрокаТовары. Цена, "ЧДЦ=2" ) ;
Row. Cells( 5 ) . Range. ParagraphFormat. Alignment = 1 ;
Row. Cells( 6 ) . Range. Text= Формат( СтрокаТовары. Сумма, "ЧДЦ=2" ) ;
Row. Cells( 6 ) . Range. ParagraphFormat. Alignment = 1 ;
НомерСтроки= НомерСтроки+ 1 ;
КонецЦикла ;
Row1. Range. Font. Bold = 9999998 ;
Row1. Range. Font. Size = 14 ;
Row1. Range. Font. Name = "Verdana" ;
Row1. Range. ParagraphFormat. Alignment = 1 ;
Row = Table. Rows. Add( ) ;
Row. Range. Font. Bold = 9999998 ;
Row. Cells( 1 ) . Range. Text= "Итого:" ;
Исключение
Doc. Save( ) ;
Сообщить( ОписаниеОшибки( ) ) ;
Объект. Application. Quit( ) ;
Объект = Неопределено ;
КонецПопытки ;
Попытка
Table. cell( НомерСтроки+ 1 , 1 ) . Merge( Table. cell( НомерСтроки+ 1 , 5 ) ) ;
Исключение
КонецПопытки ;
Попытка
Row. Cells( 1 ) . Range. ParagraphFormat. Alignment = 3 ;
Row. Cells( 2 ) . Range. Text= Формат( Ссылка. Товары. Итог( "Сумма" ) , "ЧДЦ=2" ) ;
Row. Cells( 2 ) . Range. ParagraphFormat. Alignment = 1 ;
Doc. Save( ) ;
Объект. Application. Quit( ) ;
Объект = Неопределено ;
Исключение
Doc. Save( ) ;
Сообщить( ОписаниеОшибки( ) ) ;
Объект. Application. Quit( ) ;
Объект = Неопределено ;
КонецПопытки ;
КонецПроцедуры Написал Nikola23 - http://infostart.ru/public/67727/ Категория:
Работа с Microsoft Office и OpenOffice Выгрузка / Загрузка данных посредством текстовых (TXT) файлов Для работы с текстовыми документами существуют три типа данных –
ТекстовыйДокумент, ЗаписьТекста и ЧтениеТекста . Разница двух подходов состоит в способе загрузки документа:
ТекстовыйДокумент загружает файл целиком и далее
построчно обрабатывает его;
ЗаписьТекста и ЧтениеТекста загружают файл
построчно .
ПРИМЕР 1:
Запись данных справочника в текстовый файл:
Код 1C v 8.х Текст = Новый ТекстовыйДокумент;
Выборка = Справочники. Клиенты. Выбрать( ) ;
Пока Выборка. Следующий( ) Цикл
Текст. ДобавитьСтроку( "" + Выборка. Код+ ";" + Выборка. Наименование) ;
КонецЦикла ;
Текст. Записать( "C://1.txt" ) ; С помощью типа ЗаписьТекста этот код будет таким:
Код 1C v 8.х
Текст = Новый ЗаписьТекста( "C://1.txt" , КодировкаТекста. UTF8) ;
Выборка = Справочники. Клиенты. Выбрать( ) ;
Пока Выборка. Следующий( ) Цикл
Текст. ЗаписатьСтроку( "" + Выборка. Код+ ";" + Выборка. Наименование) ;
КонецЦикла ;
Текст. Закрыть( ) ; Чтение данных из текстового файла в справочник:
Код 1C v 8.х Текст = Новый ТекстовыйДокумент;
Текст. Прочитать( "C://1.txt" ) ;
Для НомерСтроки= 1 по Текст. КоличествоСтрок( ) Цикл
Стр = Текст. ПолучитьСтроку( НомерСтроки) ;
Позиция = Найти ( Стр, ‘; ’) ;
Спр= Справочники. Клиенты. СоздатьЭлемент( ) ;
Спр. Код = Сред( Стр, 1 , Позиция- 1 ) ;
Спр. Наименование = Сред ( Стр, Позиция+ 1 ) ;
Спр. Записать( ) ;
КонецЦикла ; С помощью типа ЗаписьТекста этот код будет таким:
Код 1C v 8.х
Текст = Новый ЧтениеТекста( "C://1.txt" , КодировкаТекста. UTF8) ;
Стр= "" ;
Пока Стр< > Неопределено Цикл
Стр = Текст. ПрочитатьСтроку( ) ;
Позиция = Найти ( Стр, ‘; ’) ;
Спр= Справочники. Клиенты. СоздатьЭлемент( ) ;
Спр. Код = Число( Сред( Стр, 1 , Позиция- 1 ) ) ;
Спр. Наименование = Сред ( Стр, Позиция+ 1 ) ;
Спр. Записать( ) ;
КонецЦикла ; ПРИМЕР 2:
В строке текста значения реквизитов справочника разделяются символом кавычка. Его можно получить, например, используя функцию Символ(34).
В случае если символ разделителя (в данном случае – кавычка) может встречаться в выгружаемых данных,
перед помещением в строку меняем этот символ на заранее определенную комбинацию символов.
В нашем случае это %квч%.
Код 1C v 8.х // Выгрузка данных в текстовый файлпострочно построчно Код 1C v 7.x
Данные = СоздатьОбъект( "Текст" ) ;
Данные. КодоваяСтраница( 0 ) ;
НачВремя = _GetPerformanceCounter( ) ;
ТЗ. ВыбратьСтроки( ) ;
Пока ТЗ. ПолучитьСтроку( ) = 1 Цикл
Стр = "" + ТЗ. ЭтоГруппа+ ";" + ТЗ. Уровень+ ";" + ТЗ. КодРодителя+ ";" + ТЗ. Код+ ";" + ТЗ. Наименование;
Данные. ДобавитьСтроку( Стр) ;
КонецЦикла ;
Данные. Записать( "c:\export.txt" ) ;
КонВремя = _GetPerformanceCounter( ) ;
Длительность = Окр( ( КонВремя- НачВремя) / 1000 , 3 ) ;
Сообщить( "Время выгрузки в TXT файл: " + Длительность+ " с" ) ;
НачВремя = _GetPerformanceCounter( ) ;
Данные = СоздатьОбъект( "Текст" ) ;
Данные. КодоваяСтраница( 0 ) ;
Данные. Открыть( "c:\export.txt" ) ;
КолСтр = Данные. КоличествоСтрок( ) ;
Для н= 1 по КолСтр Цикл
ТекСтр = Данные. ПолучитьСтроку( н) ;
Состояние( "В файле прочитано строк " + н+ " из " + КолСтр) ;
КонецЦикла ;
КонВремя = _GetPerformanceCounter( ) ;
Длительность = Окр( ( КонВремя- НачВремя) / 1000 , 3 ) ;
Сообщить( "Время чтения TXT файла: " + Длительность+ " с" ) ; Категория:
JSON, XML, TXT, CSV, DBF Выгрузка / Загрузка данных посредством DBF файлов? DBF-файл – это файл, в котором данные хранятся в виде таблицы (Database format). Работа с этими файлами происходит по принципу курсора, т.е. по одной строке. Для работы с DBF-файлами существует тип данных XBase. Несмотря на то, что формат DBF считается уже устаревшим, может возникнуть необходимость работы с файлами данного формата, особенно, если вы перегружаете данные из какой-нибудь старой программы!
Код 1C v 8.х // ПРИМЕР 1построчно Код 1C v 8.х
БД = Новый XBase;
БД. Поля. Добавить( "CODE" , "S" , 5 ) ;
БД. Поля. Добавить( "NAME" , "S" , 40 ) ;
БД. СоздатьФайл( Путь + "start.dbf" , Путь + "index.cdx" ) ;
БД. Индексы. Добавить( "IDXCODE" , "CODE" ) ;
ФлИБД = БД. СоздатьИндексныйФайл( Путь + "index.cdx" ) ;
БД. АвтоСохранение = Истина ;
Выборка = Справочники. Номенклатура. ВыбратьИерархически( ) ;
Пока Выборка. Следующий( ) Цикл
БД. Добавить( ) ;
БД. CODE = Выборка. Код;
БД. NAME = Выборка. Наименование;
КонецЦикла ;
БД. ЗакрытьФайл( ) ;
БД = Новый XBase;
БД. ОткрытьФайл( Путь + "start.dbf" , Путь + "index.cdx" ) ;
БД. ТекущийИндекс = БД. Индексы. IDXCODE;
Пока БД. Следующая( ) Цикл
Сообщить( БД. CODE) ;
Сообщить( БД. NAME) ;
КонецЦикла ;
БД. ЗакрытьФайл( ) ; Код 1C v 7.x
НачВремя = _GetPerformanceCounter( ) ;
ДБФ = СоздатьОбъект( "XBASE" ) ;
ДБФ. ДобавитьПоле( "IsGroup" , "N" , 1 , 0 ) ;
ДБФ. ДобавитьПоле( "Level" , "N" , 1 , 0 ) ;
ДБФ. ДобавитьПоле( "ParentCode" , "S" , 8 , 0 ) ;
ДБФ. ДобавитьПоле( "Code" , "S" , 8 , 0 ) ;
ДБФ. ДобавитьПоле( "Descr" , "S" , 60 , 0 ) ;
ДБФ. КодоваяСтраница( 0 ) ;
ДБФ. СоздатьФайл( "c:\export.dbf" ) ;
ТЗ. ВыбратьСтроки( ) ;
Пока ТЗ. ПолучитьСтроку( ) = 1 Цикл
ДБФ. Добавить( ) ;
ДБФ. IsGroup= ТЗ. ЭтоГруппа;
ДБФ. Level= ТЗ. Уровень;
ДБФ. ParentCode = ТЗ. КодРодителя;
ДБФ. Code= ТЗ. Код;
ДБФ. Descr= СокрЛП( ТЗ. Наименование) ;
ДБФ. Записать( ) ;
КонецЦикла ;
ДБФ. ЗакрытьФайл( ) ;
КонВремя = _GetPerformanceCounter( ) ;
Длительность = Окр( ( КонВремя- НачВремя) / 1000 , 3 ) ;
Сообщить( "Время выгрузки в DBF файл: " + Длительность+ " с" ) ;
НачВремя = _GetPerformanceCounter( ) ;
ДБФ = СоздатьОбъект( "XBASE" ) ;
ДБФ. КодоваяСтраница( 0 ) ;
ДБФ. ОткрытьФайл( "c:\export.dbf" ) ;
Если ДБФ. Открыта( ) = 0 Тогда
Сообщить( "Файл DBF не открыт !" , "!" ) ;
Возврат ;
КонецЕсли ;
КолСтр = ДБФ. КоличествоЗаписей( ) ;
н= 0 ;
ДБФ. Первая( ) ;
ПризнакГруппы = ДБФ. IsGroup;
ТекУровень = ДБФ. Level;
ТекКодРодителя = ДБФ. ParentCode;
ТекКод = ДБФ. Code;
ТекНаименоване = ДБФ. Descr;
н = н+ 1 ;
Состояние( "В файле прочитано записей " + н+ " из " + КолСтр) ;
Пока ДБФ. Следующая( ) = 1 Цикл
ПризнакГруппы = ДБФ. IsGroup;
ТекУровень = ДБФ. Level;
ТекКодРодителя = ДБФ. ParentCode;
ТекКод = ДБФ. Code;
ТекНаименоване = ДБФ. Descr;
н = н+ 1 ;
Состояние( "В файле прочитано записей " + н+ " из " + КолСтр) ;
КонецЦикла ;
ДБФ. ЗакрытьФайл( ) ;
КонВремя = _GetPerformanceCounter( ) ;
Длительность = Окр( ( КонВремя- НачВремя) / 1000 , 3 ) ;
Сообщить( "Время чтения DBF файла: " + Длительность+ " с" ) ; Категория:
JSON, XML, TXT, CSV, DBF Как в Excel сделать кнопку с макросом Код 1C v 8.х
Отчет = РабочиеКниги. Open( Каталог+ Названиефайла) ;
ОтЛевогоКрая= 550 ;
ОтВерха= 80 ;
Длина= 100 ;
Высота= 50 ;
кн = Отчет. Sheets( 1 ) . OLEObjects. Add( "Forms.CommandButton.1" , , , , , , , ОтЛевогоКрая, ОтВерха, Длина, Высота) ;
st = "Private Sub CommandButton1_Click()" + Chr( 13 ) + " ThisWorkbook.Sheets(1).range("" I10:I10000"" ).AutoFilter Field:=1, Criteria1:="" >0"" , Operator:=xlAnd" + Chr( 13 ) + "End Sub" ;
Excel. VBE. ActiveVBProject. VBComponents. Add ( 1 ) ;
Excel. VBE. ActiveVBProject. VBComponents. Item( 1 ) . CodeModule. I_nsertLines ( 1 , st) ;
в переменную st записываем нужный нам макрос. У меня в процедуре он выводиться в одной строке, но можно сделать чтобы он выводился
построчно
Код 1C v 8.х
Excel. VBE. ActiveVBProject. VBComponents. Item( 1 ) . CodeModule. I_nsertLines ( 1 , st1) ;
Excel. VBE. ActiveVBProject. VBComponents. Item( 1 ) . CodeModule. I_nsertLines ( 2 , st2) ;
в этом макросе делается фильтр по колонке > 0
Категория:
Работа с Microsoft Office и OpenOffice 
Функции сохранения таблицы значений в файл и чтения из файла 
.gif)
, вот они:
