• Иллюстрированный самоучитель по языку системы 1С:Предприятие

    Методы внешних приложений

    Пример:

    //В данном примере запускается программа Excel,
    
    // затем в нее передаются некоторые данные, и затем
    
    // на их основе строится диаграмма.
    
    // Создаем объект Excel и присвоим его переменной языка
    
    ОкноЕхсеl = СоздатьОбъект("Excel.Application");
    
    // устанавливаем имя окна Excel
    
    ОкноЕхсеl.Caption = "Отчет";
    
    // создадим новую рабочую книгу
    
    НовыеРабочиеКниги = ОкноЕхсеl.Workbooks;
    
    РабочаяКнига = НовыеРабочиеКниги.Аdd();
    
    ЧислоРядов = 10;
    
    ЧислоСтолбцов = 5;
    
    // проставим названия строк
    
    Для Ряд = 1 По ЧислоРядов Цикл
    
    Ячейка = ОкноЕхсеl.Cells(Ряд + 1, 1);
    
    Ячейка.Value = "Строка " + Строка(Ряд);
    
    КонецЦикла;
    
    // проставим названия столбцов
    
    Для Столбец = 1 По ЧислоСтолбцов Цикл
    
    Ячейка = ОкноЕхсеl.Cells(1, Столбец + 1);
    
    Ячейка.Value = "Столбец " + Строка(Столбец);
    
    КонецЦикла;
    
    // заполним ячейки таблицы значениями
    
    Для Ряд = 1 По ЧислоРядов Цикл
    
    Для Столбец = 1 По ЧислоСтолбцов Цикл
    
    Ячейка = ОкноЕхсеl.Cells(Ряд + 1, Столбец + 1);
    
    Ячейка.Value = Ряд + Столбец;
    
    КонецЦикла;
    
    КонецЦикла;
    
    // выделим область в таблице и присвоим ее переменной языка
    
    Область = ОкноЕхсеl.Range(ОкноЕхсеl.Cells(1, 1),
    
    ОкноЕхсеl.Cells(ЧислоРядов + 1, ЧислоСтолбцов + 1));
    
    // зададим имя выделенной области
    
    Область.Name = "ОбластьДанных";
    
    // определим рамку выделенной области и присвоим ее переменной языка
    
    Рамка = Область.Borders;
    
    // установим стили для рамки выделенной области
    
    Рамка.LineStyle = 1;
    
    Рамка.Colorlndex = 3;
    
    // построим диаграмму Лист=РабочаяКнига.Worksheets(1);
    
    Диаграмма = Лист.ChartObjects();
    
    Диаграмма = Диаграмма.Add(5, 5 + Область.Тор + Область.Height,
    
    Область.Width, Область.Height);
    
    МояДиаграмма = Диаграмма.Chart;
    
    МояДиаграмма.ChartWizard("ОбластьДанных ", -4102, 6, 1, 1, 1, 1, "Отчет");
    
    // сделаем окно Excel видимым и активным
    
    ОкноЕхсеl.Visible = 1;
    
    Если Вы заметили ошибку, выделите, пожалуйста, необходимый текст и нажмите CTRL + Enter, чтобы сообщить об этом редактору.