Q&A

  • F1book의 내용을 excel화일로 저장하려고 합니다.
질문의 내용은 제목과 같습니다.
////////////////////////////////////
   SFileName := ExcelDir+'임시현황.XLS';
   If SaveDialog1.Execute Then
   Begin
      F1Book1.MaxRow := F1Book1.MaxRow + 1;
      F1Book1.InsertRange(1,1,1,F1Book1.MaxCol,3);
      For ni := 1 To F1Book1.MaxCol Do
          F1Book1.TextRC[1,Ni] := F1Book1.ColText[Ni];
      F1Book1.SetSelection(1,1,F1Book1.MaxRow-1,F1Book1.MaxCol);
      F1Book1.SetBorder(1, 1, 1, 1, 1, 1, clBlack, clBlack, clBlack, clBlack, clBlack) ;
      F1Book1.SetFont('굴림체',9,False,False,False,False,clBlack,False,False);
      F1Book1.Write(SFileName, F1FileExcel5);
      F1Book1.DeleteRange(1,1,1,F1Book1.MaxCol,3);
      F1Book1.MaxRow := F1Book1.MaxRow - 1;
      Application.MessageBox('엑셀로 데이타가 저장되었습니다.','저장',MB_OK+MB_ICONINFORMATION);
      WinExec('C:Program FilesMicroSoft OffieOfficeExcel.exe'+ ExcelDir + '임시현황.XLS',4);
   End;
///////////////////////////////////////////////
이런식으로 만들긴 했는데
원하는 위치에 저장하기 위해서 SaveDialog1.Execute를 이용하여
원하는 폴더를 선택할 수 있도록 했는데
SaveDialog1.Execute를 이용하면 저장이 취소되네요.
왜 그런지?
혹 다른 방법은 없는 건지?
고수님들의 한 수를.....
1  COMMENTS
  • Profile
    최석기 2002.05.10 20:26
    이부분이 잘못된거 같네요..

    F1Book1.Write(SFileName, F1FileExcel5);

    F1Book1.Write(SaveDialog1.Filename, F1FileExcel5);