질문의 내용은 제목과 같습니다.
////////////////////////////////////
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를 이용하면 저장이 취소되네요.
왜 그런지?
혹 다른 방법은 없는 건지?
고수님들의 한 수를.....
F1Book1.Write(SFileName, F1FileExcel5);
F1Book1.Write(SaveDialog1.Filename, F1FileExcel5);