저도 잘을 몰라요.. 하지만 기본적은 방법은 아래와 소스와 같음..

단 uses 절에 ComObj 선어해야합니다...



그럼 수고..

const

XLChart = -4109;

XLDialonSheet = -4116;

XLExcel4Int1MacroSheet = 4;

XLExecl4MacroSheet = 3;

XLWorkSheet = -4167;

XLWBATChart = -4109;

XLWBATExcel4Int1MacroSheet = 4;

XLWBATExecl4MacrosSheet = 3;

XLWBATWorksheet = -4167;

var

i,j : integer;

xl, sheet : Variant;

mybook : tbookmark;

begin

if qry_send_cust.RecordCount <= 0 then exit;



Xl := CreateOLEObject('Excel.Application');

Xl.Visible := True;

xl.WorkBooks.add(xlWBATWorkSheet);

Xl.workBooks[1].Worksheets[1].name := '거래처고객';

sheet := Xl.workBooks[1].Worksheets['거래처고객'];

i := 1;

for j := 0 to (dbg_send_cust.Columns.Count - 1) do

begin

sheet.cells[i,j+1] := dbg_send_cust.Columns[j].Title.Caption;

end;

try

qry_send_cust.DisableControls;

mybook := qry_send_cust.GetBookmark;

qry_send_cust.First;

inc(i);

while not qry_send_cust.eof do

begin

for j := 0 to (dbg_send_cust.Columns.Count - 1) do

begin

sheet.cells[i,j+1] := qry_send_cust.fieldbyname(dbg_send_cust.Columns[j].FieldName).asString;

end;

inc(i);

qry_send_cust.next;

end;

qry_send_cust.GotoBookmark(mybook);

qry_send_cust.FreeBookmark(mybook);

finally

qry_send_cust.EnableControls;

end;

end;





류응철 wrote:

> 쿼리로 파라독스 테이블에서 디비그리드로 자료를 읽어 왔는데여..

>

> 버튼을 눌렀을때... 엑셀이 시작되면서... 디비그리드에 있는 내용이

>

> 엑셀로 넘어가는것과....

>

> 엑셀을 종료하고 나서.. 다시 버튼을 눌렀을경우에도 디비그리드에 있는

>

> 내용이 엑셀로 넘어가게 하는 방법을 설명해 주세여...

>

> 되도록이면 자세히여.. 저 델파이 공부한지 이제 두달이에여... 부탁함돠

>

> 하수는 언제나 답답해여...ㅠ.ㅠ

>

> 제가 한건 엑셀을 띄우긴 했는데... 디비랑 연결하는 법을 모르겠고여...

>

> 엑셀을 닫고서 다시 버튼을 누르면... 똥강아지 아시져? 그 똥강아지만 나와서

>

> 놀거든여.... 참고로.... del 5.0과 ms_office2000을 씁니다...ㅠ.ㅠ

>

>