조창범 wrote:

> 델파이로 작성된 쿼리를 가지고 프린트를 할때 엑셀의 미리보기 화면으로 먼저 보여주기를 하고싶습니다.

> 그러기 위해서는 쿼리한 값들을 엑셀에다 데이타를 뿌려야하는데

> 어떻게 하는건 자세히 알고 싶습니다.

> 도와주세요...



조창범님 보세요



Excel과 응용프로그램의 연동 방법은

여러 곳에서 소개가 된 것 같은데요,



Excel프로그램을 자동으로 실행시키고 값을 넣는 다든지

실행된 프로그램에서 값을 얻어오거나 값을 변경한다든지의 모든

작업이 가능합니다. OLE란 놈의 덕인것 같은데요

실제로 Excel에서 이루어지는 작업의 거의 모든것이 프로그램에서

제어가 가능합니다.



도움말 중에서 COM utilities항목을 보시면 도움이 될것같습니다.



var



Excel, WorkBook, WorkSheet : Variant;

//Excel은 Excel프로그램의 객체가 되고요

//WorkBook은 WorkSheet를 가지는 객체

//WorkSheet는 셀로 표현되는 Excel의 page를 갖는 객체가 됩니다.

....



begin

....





//다음과 같이 하면 현재실행중인 Excel의 일종의 포인터를 얻어옵니다.

//Excel을 실행시키려면 CreateOleObject()를 사용하시면 되고요,

Excel := GetActiveOLEObject('Excel.Application');

Excel.Visible := true; //Excel이 다른 차에 가려져 있다면 앞으로 나오게 합니다.



//현재 활성중인(2개 이상이 존재할 수도 있으므로)WorkBook의 첫번째 sheet를 얻습니다.

WorkSheet := Excel.ActiveWorkBook.WorkSheets[1];



//Excel의 특정 셀에 값을 넣기 위해서는

WorkSheet.Cells[행,열].Value := 넣을값 ;



//Excel에서 값을 얻어오기 위해서는

받을 변수 := WorkSheet.Cells[행,열].Value;



와 같은 방법으로 사용하시면 됩니다.





이 외에

A1 셀을 선택하려면

WorkSheet.Range['A1'].Select;



특정 셀의 폰트를 굴게 하려면

WorkSheet.Range['셀범위'].Font.Bold := true;



셀의 색을 변경하려면

WorkSheet.Range[셀범위].Interior.ColorIndex := 색번호 ;

WorkSheet.Range[셀범위].Interior.Pattern := 패턴형태 ;



등등... 거의 모든 제어가 가능합니다.



이런 것들은 도움말에는 나오지 않고요, 구현하고자 하는 내용을

직접 찾으셔야 합니다.

Excel을 실행시킨 후 [새 매크로시작]을 누르고 구현하고자 하는 내용을

실행한 후 매크로기록을 종료합니다. 그 다음 매크로 수정에 가보면

지금 까지 한 내용을 VB코드로 기록이 되어 있을 것입니다.

Excel에서 미리보기를 한 후에 보니 PrintPreview라는 코드가 생성이

된 것으로 봐서 프로그램에서 Excel의 미리보기를 수행하는 것도

가능하리라 봅니다.(실행은 시켜보지 못했습니다.)



VB와 Delphi의 문법이 다른 관계로 생선된 매크로를 delphi에서

사용하는데 약간의 어려움은 있지만 그 정도는 감수 해야 겠지요.



저도 지금 Excel에 연동이 되는 프로그램을 하고 있는 데요, 많은

것을 알아내시면 저에게도 알려주시면 감사하겠네요 ..... :)