제가 하고자 하는 일은 다음과 같습니다.

1.어떤 조건을 주고 쿼리를 수행한 후
   그 결과를 엑셀파일로  저장을 합니다.

2.다시 다른 조건을 주고 결과를 엑셀로 저장을 합니다.

그런데..
처음 한번은 엑셀이 실행이 되고 워크시트 및 엑셀의 메뉴바나 툴바가 모두 나타나고 데이타가 입력이 되는 것이 화면에 출력이 되는데...
두번재 부터는 엑셀의 메뉴바하고 툴바만 나타나고 워크시트는 나타나지 않는군요.. 그렇다고 에러가 나는 아니고요 자료도  잘 입력이 되어서 저장할 파일명을 넣어 주면 파일로 저장이 되거던요..
왜 두번째로 엑셀을 실행시키면 워크시트가 나타나지 않는지 모르겠습니다..

고수님들 도움을 부탁드립니다
소스는 아래와 같습니다...

procedure TmainFrm.ExcelExport3;
Const
  Title = '발급결과 오류내용';
  ColumnMax = 8;
Var
  Cnt: Integer;
  RegNo: String;
  wBook : _WorkBook;
  lcid : Integer;

begin
  lcid := GetUserDefaultLCID;
  Try
    ExcelApp.Connect;
  Except
    MessageDlg('Excel과 연결되지 않습니다.', mtError, [mbOk], 0);
  End;
  Try
    ExcelApp.Visible[lcid] := True;
    ExcelApp.Caption := Title;

    wBook := ExcelApp.Workbooks.Add(xlWBATWorksheet, lcid);
    ExcelBook.ConnectTo(wBook);
    ExcelSheet.ConnectTo(ExcelBook.WorkSheets[1] as _Worksheet);

    With ExcelSheet Do Begin
     // 데이타 입력 작업
     ....
     ....
     ....

    End;
  Except
    On E: Exception Do Begin
      ShowMessage(E.Message);
      ExcelApp.Disconnect;
    End;
  End;
  ExcelSheet.Disconnect;
  ExcelBook.Disconnect;
  ExcelApp.Workbooks.Close(0);
  ExcelApp.Disconnect;
  ExcelApp.Quit;
End;

정확한 도움말을 참조할 수 있는 방법이라도 알려주시면 감사하겠습니다.

그럼 수고하세요.