Q&A

  • 엑셀 연결과 죽이는것 좀 설명 해주세여...
쿼리로 파라독스 테이블에서 디비그리드로 자료를 읽어 왔는데여..



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



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



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



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



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



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



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



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



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





1  COMMENTS
  • Profile
    HART 2000.05.24 02:19
    저도 잘을 몰라요.. 하지만 기본적은 방법은 아래와 소스와 같음..

    단 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을 씁니다...ㅠ.ㅠ

    >

    >