procedure TfrmTest.Button1Click(Sender: TObject);
begin
if GridXLS1.FileName <> '' then
begin // 초기 파일명/패스 지정
SaveDialog1.FileName := ExtractFileName(GridXLS1.FileName);
SaveDialog1.InitialDir := ExtractFilePath(GridXLS1.FileName);
end;
if SaveDialog1.Execute then
begin
Application.ProcessMessages;
GridXLS1.FileName := SaveDialog1.FileName; // 출력할 xls 파일명 지정
GridXLS1.ExportToExcel;
ShowMessage('작업이 완료되었습니다');
Gauge1.Progress := 0;
end;
end;
begin
if GridXLS1.FileName <> '' then
begin // 초기 파일명/패스 지정
SaveDialog1.FileName := ExtractFileName(GridXLS1.FileName);
SaveDialog1.InitialDir := ExtractFilePath(GridXLS1.FileName);
end;
if SaveDialog1.Execute then
begin
Application.ProcessMessages;
GridXLS1.FileName := SaveDialog1.FileName; // 출력할 xls 파일명 지정
GridXLS1.ExportToExcel;
ShowMessage('작업이 완료되었습니다');
Gauge1.Progress := 0;
end;
end;