procedure TF_execl.btn_connectExcelClick(Sender: TObject);

begin

try

ExcelApplication1.Connect;

except

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

Abort;

end;



try

ExcelApplication1.Visible[0] := True ;

ExcelApplication1.Caption :='엑셀 테스트';

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[1,1] := '델파이와 엑셀을 이용한 프로그램';

Cells[2,1] := '김구';

end;

except

on E: Exception do begin

showmessage(E.message);

ExcelApplication1.Disconnect;

end;

end;

end;

=====================================================================

테이블을 엑셀로 저장하는 과정에서

위와 같은 소스를 사용했는데

워크시트가 생성되지 않습니다...

아무리 생각해도 이유를 알수가 없구요..ㅡ.ㅡ



아시는 고수님들..

꼬~옥 답변 좀 부탁드립니다.^^