procedure TForm1.Button5Click(Sender: TObject);
var
icid,i : integer;
olev : OleVariant;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[icid]:=True;
ExcelApplication1.Workbooks.Open('C:\Microsoft Excel',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,icid);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
ExcelWorksheet1.Cells.Item[1,1].Value :='123'; //записывает текст в файл
ExcelWorkbook1.Close;
end;
Работа с Excel
Код:
Проблема в том, что при закрытии excell он не удаляется из процессов и при последующей попытке открытия открывает только часть стандартного окна екселя....Стоит Office XP
А как насчет:
или:
Код:
..
ExcelApplication1.Disconnect;
..
ExcelApplication1.Disconnect;
..
или:
Код:
..
ExcelApplication1.Close;
..
ExcelApplication1.Close;
..
Достаточно будет добавить следующие строки:
Код:
procedure TForm1.Button5Click(Sender: TObject);
var
icid,i : integer;
olev : OleVariant;
begin
[COLOR="SeaGreen"]ExcelApplication1.AutoQuit:=true;[/COLOR]
ExcelApplication1.Connect;
ExcelApplication1.Visible[icid]:=True;
ExcelApplication1.Workbooks.Open('C:\Microsoft Excel',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,icid);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
ExcelWorksheet1.Cells.Item[1,1].Value :='123'; //записывает текст в файл
ExcelWorkbook1.Close;
[COLOR="SeaGreen"]ExcelApplication1.Disconnect;[/COLOR]
end;
var
icid,i : integer;
olev : OleVariant;
begin
[COLOR="SeaGreen"]ExcelApplication1.AutoQuit:=true;[/COLOR]
ExcelApplication1.Connect;
ExcelApplication1.Visible[icid]:=True;
ExcelApplication1.Workbooks.Open('C:\Microsoft Excel',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,icid);
ExcelWorkbook1.ConnectTo(ExcelApplication1.ActiveWorkbook);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _WorkSheet);
ExcelWorksheet1.Cells.Item[1,1].Value :='123'; //записывает текст в файл
ExcelWorkbook1.Close;
[COLOR="SeaGreen"]ExcelApplication1.Disconnect;[/COLOR]
end;