своеобразный отчёт из бд

[TaTT DoGG]

начал работать с отчётами, соответственно возникает пару влпросов
вот кусок кода отчёта

procedure TForm2.spSkinButton1Click(Sender: TObject);
var
 XLApp,Colum,Sheet:Variant;
 index,i:Integer;
 name:string;
begin

 XLApp:= CreateOleObject('Excel.Application');
 XLApp.Visible:=true;
 XLApp.Workbooks.Add(-4167);
 XLApp.Workbooks[1].WorkSheets[1].Name:='Заказ';
 Colum:=XLApp.Workbooks[1].WorkSheets['Заказ'].Columns;
 Colum.Columns[1].ColumnWidth:=60;
 Colum.Columns[2].ColumnWidth:=20;

 Colum:=XLApp.Workbooks[1].WorkSheets['Заказ'].Rows;
 Colum.Rows[2].Font.Bold:=true;
 Colum.Rows[1].Font.Bold:=true;
 Colum.Rows[1].Font.Size:=13;

 Sheet:=XLApp.Workbooks[1].WorkSheets['Заказ'];
 Sheet.Cells[1,1]:='Заказ';
 Sheet.Cells[2,1]:='Название';
 Sheet.Cells[2,2]:='Цена';

 index:=3;
  Sheet.Cells[index,1]:=DBText1.Caption;
  Sheet.Cells[index,2]:=DBText2.Caption;
end;

1) в мой отчёт я добавляю только ту запись, которая выбранная в данный момент в DBGrid'e. Но каждый раз когда я выбираю нужную запись и нажимаю на кнопку откуывается новый Excel. Как дописывать в уже отрытый, а если такового нету, то открыть?

2) в Sheet.Cells[index,2] я добавляю текст из DBText2.Caption, который имеет вид $345, но в Excel вставляется в виде 345р., т.е. он распознаёт это поле как денежное. Как запретить ему это делать?

3) После завершения работы с Excel'ем я сохраняю файл и выхожу, но Excel остаётся висеть в процессах. Как его оттуда кикнуть при завершении работы с программой (делфи)?

[D-mon]

3) После завершения работы с Excel'ем я сохраняю файл и выхожу, но Excel остаётся висеть в процессах. Как его оттуда кикнуть при завершении работы с программой (делфи)?

А кто по твоему будет делать XLApp.Free; , компилятор не такой умный как ты...

2) в Sheet.Cells[index,2] я добавляю текст из DBText2.Caption, который имеет вид $345, но в Excel вставляется в виде 345р., т.е. он распознаёт это поле как денежное. Как запретить ему это делать?

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

1) в мой отчёт я добавляю только ту запись, которая выбранная в данный момент в DBGrid'e. Но каждый раз когда я выбираю нужную запись и нажимаю на кнопку откуывается новый Excel. Как дописывать в уже отрытый, а если такового нету, то открыть?

А почему ему бы не открываться новому ты же пишишь

XLApp:= CreateOleObject('Excel.Application');  
XLApp.Visible:=true;

вот он и создаёться новый. Надо его где то создать один раз, а потом просто к нему обращаться.

[TaTT DoGG]

3) спасибо, понял
2) в бд это поле текстовое
1) так вот это я и хочу узнать, как поставить проверку, открыт этот Excel или нет. тут просто такая ситуация - я же по одной записи добавляю, т.е. сохраняю документ, когда добавлю все нужные мне записи.

[TaTT DoGG]

c третим пунктом возники проблемы. у меня главная форма - первая, а эксель открывается на второй форме. Как умудриться освободить XLApp из первой формы?

[D-mon]

2) в бд это поле текстовое

а в экселе та ячейка в которую вставляешь тоже текстовая или какая?

так вот это я и хочу узнать, как поставить проверку, открыт этот Excel или нет.

E := Findwindow(nil, <caption window>);

[TaTT DoGG]

Сообщение от D-mon

а в экселе та ячейка в которую вставляешь тоже текстовая или какая?

новый файл excelя из делфи создаётся, я не изменяю там ничего. код создания выше.

с файндвиндоу попробую разобраться

[D-mon]

новый файл excelя из делфи создаётся, я не изменяю там ничего. код создания выше.

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

[TaTT DoGG]

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

[D-mon]

Ты как про меня такое мог подумать?

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

Зачем те в таком случае делфи. Программно всё это надо делать.

[TaTT DoGG]

как мне открыть файл tm.xls и присвоить его переменной XLApp