Имя: Пароль:
1C
1С v8
1с excel ActiveDocument заполнение полей
0 b612
 
29.08.16
00:00
Есть шаблон excel (почтовый бланк)
в нём в ячейках прописаны формулы вида
${o.sourceAgentRequisite.actualAddress.concat("   ").substring(0, 60)}                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                
${o.sourceAgentRequisite.INN.concat("   ").substring(5, 6)}
${o.sourceAgentRequisite.INN.concat("   ").substring(6, 7)}
${o.sourceAgentRequisite.INN.concat("   ").substring(6, 8)}
этих ячеек там куча.
Казалось бы разумнее всего сделать в 1С соответствие
и как-то передать его ёкселю, чтобы он сам заполнил значения.

взял образец кода от вордовской задачи
что дальше делать не знаю.

Процедура ПечатьWord(ИмяМакета,Документ)
    //Все возможные параметры документа вносим в соотвтетствие ПараметрыДокумента
    ПараметрыДокумента = Новый Соответствие;
    ПараметрыДокумента.Вставить("sourceAgentRequisite","ввввввв");
    // получаем макет
    Макет=ЭтотОбъект.ПолучитьМакет(ИмяМакета);
    MSWord=Макет.Получить();
    
    // выводим данные
    Попытка
        Документ=MSWord.Application.Workbooks(1).worksheets(1);   //получаем объект - документ. Это OLE объект, с ним можно работать используя все методы, которые существуют в VBA
        Документ.Activate();
        
//        Документ.Cells(1, 1).Value        =ПараметрыДокумента;
                                                      
        //MSWord.Application.Run("mmm");//,ПараметрыДокумента);
//        Документ.Fields.UpDate();

//        ${o.sourceAgentRequisite.actualAddress.concat("                                        ").substring(0, 60)}
        
        //делаем окно MS Word видимым и активным.
        MSWord.Application.Workbooks(1).Windows(1).Visible = true;
        MSWord.Application.Visible=Истина;
        MsWord.Activate();
    Исключение
        Сообщить(ОписаниеОшибки());
        MSWord.Application.Quit();   //в случае неудачи - закрываем документ  MS Word
    КонецПопытки;
КонецПроцедуры
1 b612
 
29.08.16
00:04
извините за оформление но я чтото не нашел ни кнопки "удалить" ни кнопки "редактировать"
2 Горогуля
 
29.08.16
03:15
продолжай наблюдения
3 DrZombi
 
гуру
29.08.16
07:27
4 DrZombi
 
гуру
29.08.16
07:32
Руководство пользователя сервиса “Мой Склад”
http://kak.znate.ru/docs/index-622.html?page=15
5 b612
 
29.08.16
08:47
DrZombi, спасибо
теперь хоть знаю структуру.

Но вопрос подключения к 1С остался
Основная теорема систематики: Новые системы плодят новые проблемы.