Графики из Delphi в Excell

[WhitePoint]

Доброго времени суток. С экспортом чисел и простых значений в ячейки я разобрался. А вот как создать график методами делфи в екселе я не знаю, помогите пожалуйста. Заранее благодарен!

Да, я искал на форуме, и продолжаю искать, видел похожие темы, но конкретного ответа пока не нашел. Не спрашивайте меня, пожалуйста, чем мне не нравится TChart или DBChart. они мне нравятся и они у меня уже есть, но нужен экспорт именно в Excel.

Окей, в таком случае, я решу эту проблему по-другому. создам шаблон диаграммы в екселе с нулевыми значениями в нужных я чейках, а потом в ячейки методами делфи занесу нужную инфу. МОжет быть тогда кто-нибудь знает как нормально сохранить эту ... ?

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

xla.Workbooks[1].SaveAs('D:\'+DateToStr(DateTimePicker1.date),xls,0,0,0,0);

[Error] Un_main.pas(615): Undeclared identifier: 'xls'

надеюсь этот вопрос куда проще, буду очень благодарен за ответы

[Serge_Bliznykov]

не знаю, что означают нули..
я бы, для начала попробовал вот так:

xla.Workbooks[1].SaveAs('D:\'+DateToStr(DateTimePicker1.date)+'.xls');

p.s. ну а нули потом добавил, и то, если бы компилятор этого потребовал...

[WhitePoint]

Спасибо за ответ.

Пробовал. Это первое, что я пробовал. ошибка вот какая:

[Error] Un_main.pas(615): Not enough actual parameters

saveas требует вот какие параметры: filename, file format, password, password на запись.... бла-бла-бла... пробовал еще просто save, но тогда эксель начинает кричать что-то об обновлении и предлагает сохранить файл самостоятельно в диалоговом окне. не то вобщем. я ищу дальше, но ответам, как и прежде, буду очень благодарен

[Stilet]

Вместо 0 пиши EmptyParam
А потом, просто создай Sheet, передай туда значения, и создай через EXCELL API диаграмму.

[Serge_Bliznykov]

не... тогда не знаю...
вот, только что проверил. Классический код по связыванию Delphi и Excel через OLE сработал без всяких вопросов:

procedure TForm1.Button1Click(Sender: TObject);
var
  vExcel{, xlvariant}: OLEVariant;
begin
  vExcel := CreateOleObject('Excel.Application');
  //  vExcel.Workbooks.Open('BigBook.xls', False);
  vExcel.Workbooks.Add;
  vExcel.Cells[1, 1].Value := 124512;
  vExcel.Cells[1, 2].Value := 'С добрым утром';
  vExcel.ActiveWorkBook.SaveAs('D:\TEST1.XLS');
  // vExcel.Visible := True;
  vExcel.Quit;
  vExcel := UnAssigned;
  Application.MessageBox('Закончено создание файла.','Информация',MB_OK)
end;

[WhitePoint]

тааак... а у меня знаете как было? вот как у меня было:

procedure TForm1.Button6Click(Sender: TObject);
var  lcid:Cardinal;
     i,j:Integer;
     xlw:_Workbook;
     tym:Boolean;
     s:array [1..10] of string;
     xla:TExcelApplication;
     id:Integer;

begin
xla:=TExcelApplication.Create(self);
LCID:=GetUserDefaultLCID;
xlw:=xla.Workbooks.add('D:\report.xls',LCID);
xla.DisplayAlerts[1]:=false;

xla.cells.item[1,1]:=DateToStr(DateTimePicker1.date);

...

xla.Visible[LCID]:=true;
xla.Workbooks[1].SaveAs(filename:='D:\'+DateToStr(DateTimePicker1.date)+'.xls');

почитаю-ка немного про OLE...
спасибо за ответы!

PS:уважаемые модераторы, прошу тему пока не закрывать. спасибо

[WhitePoint]

Доброго времени суток. Возник вопрос по TChart. Существует ли какое-нибудь свойство компонента TChart, которое выделяло бы (цветом, жирным шрифтом или любым другим способом) максимальное и/или минимальное значение на графике?