유니 wrote:

> Query결과를 Excel 파일로 곧바로 보내는 방법을 알고 싶습니다.

>

> 감사합니다.



질문에 대한 요지를 제대로 파악하고 답변을 드리는지 모르겠네요.

Anyway, Query를 이용하여 새로 구성된 table을 Excel로 가져오는 방법은 form에 excel로 보내는 button을 만들어 아래와 같이 실행하면 될 것 같습니다.

아래 예제는 간단한 테이블을 가지고 만든 것입니다.



procedure Tform.Button1Click(Sender: TObject);

var

i:byte;

gv:variant;

begin

gv := createoleobject('Excel.Application');

gv.workbooks.add;

gv.visible := true;

with stringgrid1 do

begin

for i := 1 to rowcount do

begin

gv.cells[i,1].formula := cells[0,i];

gv.cells[i,2].formula := cells[1,i];

gv.cells[i,3].formula := cells[2,i];

end;

end;

end;