передача значении в word/excel

[alexander1111]

подскажите пожалуйста как можно определенные значения с комбобокса передать на определенные поля в таблицу word или в excel?

[Mad_Cat]

один из способов

[alexander1111]

решил сделать по другому.. делаю так.

var
 XL: Variant;
begin
 XL:=CreateOLEObject('Excel.Application');
XL.WorkBooks.add;
 XL.visible:=true;
       XL.Cells['E27'].Value := DBLookupCombobox1.ListField;
       XL.Cells['E28'].Value := DBLookupCombobox2.Listfield;
end;

он ошибку выдает.. "Ole error".. как решить?

[MaxNik2009]

Сообщение от alexander1111

решил сделать по другому.. делаю так.

var
 XL: Variant;
begin
 XL:=CreateOLEObject('Excel.Application');
XL.WorkBooks.add;
 XL.visible:=true;
       XL.Cells['E27'].Value := DBLookupCombobox1.ListField;
       XL.Cells['E28'].Value := DBLookupCombobox2.Listfield;
end;

он ошибку выдает.. "Ole error".. как решить?

попробуй так:

var
 XL: Variant;
begin
 XL:=CreateOLEObject('Excel.Application');
XL.WorkBooks.add;
 XL.visible:=
       XL.Cells[27, 5].Value := DBLookupCombobox1.ListField;
       XL.Cells[28, 5].Value := DBLookupCombobox2.Listfield;
end;

[OlegVE]

Здравствуйте
или

...
XL.Range['E27'].Value := DBLookupCombobox1.ListField;
...

До свидания