procedure가 다음과 같이 되어있습니다...

다음과 같이 하면 엑셀이 하나 뜨더라구요.. 그런데.. 테이블에 있는 내용을 엑셀로

옮기려는 작업을 할려고 하는데... 참...그자료는 없고 ... 테이블 타이틀 까지만.

나오더라구요... 그건 그렇다 치고.. 아래와 같이 해서 ... 엑셀이 뜨는데.. 엑셀창을 종료하고 다시 실행버튼을 시키면 에레가 나더라구요...

다시 프로그램을 종료하고 다시 실행하면은 되더라구요... 뭔가 더 추가를 해줘야 할것 같은데.. 뭘 더 해주죠? 제 생각으로는 ExcelApplication이 연결이 되어 있어서 그럴것같아서 ExcelApplication을 Disconnet도 시켜봤거든요.. 그래도 안되더라구요... 쩝~

책에 있는 내용을 그대로 친건데... 쩝~ 고수님들의 조언 부탁드립니다...

OLE는 첨 해보는거라... 뭐가 뭔지 모르겠어요... OLE를 좀더 공부할수 있는 곳도 알고 계심 갈켜주세요.. 또 아나요.. 나중에 보답할지 ^^



procedure TForm1.btnConnectExcelClick(Sender: TObject);



var

i,j : integer;

begin

try

ExcelApplication1.Connect;

except

MessageDlg('Excel과 연결되지 않았습니다.',mtError,[mbok],0);

Abort;

end;



try

ExcelApplication1.Visible[0] := true;

ExcelApplication1.Caption :='Delphi Automatio Test';

ExcelApplication1.Workbooks.Add(xlWBATWorksheet,0);

ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Item[1]);

ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Sheets[1] as _Worksheet);



with ExcelWorksheet1 do

begin

Range[Cells.Item[1,1], Cells.Item[2,1]].Font.Bold := true;

Range[Cells.Item[1,1], Cells.Item[2,1]].Font.size := 14;

Cells.Item[1,1] := 'Excel save as test';

Cells.Item[2,1] := 'delphi by Kim Mann Sung 2000/05/17';

end;

except

on E: Exception do begin

Showmessage(E.Message);

ExcelApplication1.Disconnect;

end;

end;



end;