Простите грешного, но не получается (((
вот код:
Код:
procedure TForm1.Button3Click(Sender: TObject);
Var
E: Variant;
i: integer;
begin
E:= CreateOleObject('Excel.Application');
E.DisplayAlerts:= False;
E.Workbooks.Add;
E.ActiveWorkbook.SaveAs('C:\Ïðèìåð.xls');
begin
for i:=0 to ListBox1.Items.Count-1 do
E.WorkBooks[1].WorkSheets[1].Cells[1,i].Value:=ListBox1.Items.Strings[i];
end;
Выдает ошибку: Project Project2.exe raised exception class EOleException with message 'OLE error 800A03EC'. Process stopped. Uses Step or Run to continue.