Построение графика в Excel через TExcelApplication

← →
Антоныч © (2005-07-04 17:11) [0]

Приведите, пожалуйста, кто-нибудь простой пример. А то сам чего-то не могу сориентироваться.

← →
Ega23 © (2005-07-04 17:37) [1]

Макрос запиши. Посмотри его через VB. Переведи код на Delphi. Всё.

← →
Антоныч © (2005-07-04 17:45) [2]

Да записал я макрос сразу-же. Проблема с переводом :). Вылетает ошибка при создании графика на строке
WorkBk.Charts.Add(EmptyParam,WorkSheet,1,xlXYScatterSmooth,IIndex);
Вот сам макрос:
Charts.Add ActiveChart.ChartType = xlXYScatterSmooth ActiveChart.SeriesCollection.NewSeries ActiveChart.SeriesCollection(1).XValues = "=Данные!R2C1:R1206C1" ActiveChart.SeriesCollection(1).Values = "=Данные!R2C2:R1206C2" ActiveChart.Location Where:=xlLocationAsNewSheet

← →
Ольга (2005-07-04 18:18) [3]

Из Delphi:
Book:= Excel.ActiveWorkBook;
Sheet:= Book.ActiveSheet;
Range:= Sheet.Range[Cells[r1, c1], Cells[r1, c2]];
Book.Charts.Add;
Book.ActiveChart.ChartType:= xlXYScatterSmooth;
ExlBook.ActiveChart.SetSourceData(Range, xlRows);
ExlBook.ActiveChart.SeriesCollection(1).XValues := Range;

← →
Ольга (2005-07-04 18:28) [4]

Уточнение предыдущего текста:
Book:= Excel.ActiveWorkBook;
Sheet:= Book.ActiveSheet;
Range1:= Sheet.Range[Cells[r1, c1], Cells[r1, c2]];
Range2:= Sheet.Range[Cells[r2, c3], Cells[r2, c4]];
Book.Charts.Add;
Book.ActiveChart.ChartType:= xlXYScatterSmooth;
Book.ActiveChart.SetSourceData(Range1, xlRows);
Book.ActiveChart.SeriesCollection(1).XValues := Range2;

Все-таки снова вернусь к этой теме, тем более что обсуждение-то не закрыто :). Это все хорошо и интересно и даже наверное правильно :), но меня интересует именно как это сделать через компоненты в закладке Servers. Вот мой код:
var
WorkBk: _WorkBook;
WorkSheet: _WorkSheet;
Chart : _Chart;
IIndex: OleVariant;
begin
try
XLApp.WorkBooks.Open("D:\Output.xls", EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam,EmptyParam,0);
IIndex:=XLApp.Workbooks.Count;
WorkBk:=XLApp.WorkBooks.Item[IIndex];
WorkSheet:=WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
Chart:=WorkBk.Charts.Add(EmptyParam,WorkSheet,1,xlXYScatterSmooth,IIndex) as _Chart;
XLApp.Visible[IIndex]:=True;
except on EOleException do XLApp.Quit;
end;
end;
На выделенной строке происходит ошибка. Почему?

Построение графика в Excel через TExcelApplication Найти похожие ветки