cxgrid excel export hakkında

[tayipk]

merhaba arkadaşlar cxgridde bulunan verilerimi

Kod: Tümünü seç

ExportGridToExcel('c:\Teknik Servis\Rapor Dosya\Servis Program.xls',cxgrid1,true,true);

kodu ile rahat bir şekilde excele çıkarabiliyorum fakat ben bu işlemi Savedialog kullanarak istediğim klasöre istediğim isimle oluşturmak istiyorum bu olayı savedialog kullanarak nasıl yapabilirim arkadaşlar. yardımlarınız için şimdiden teşekkürederim

[xxxjedixxx]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var FileDlg: TSaveDialog;
    FileName: string;
begin
  FileName := '';
  FileDlg := TSaveDialog.Create(Self);
  FileDlg.DefaultExt := '*.xls';
  FileDlg.Filter := 'Excel Dosyası(*.xls)|*.xls';
  FileDlg.InitialDir := '%Desktop%'; // varsayılan klasör desktop olsun diye
  FileDlg.Title := 'Farklı Kaydet';
  if FileDlg.Execute and (not FileExists(FileDlg.FileName) or
      (Application.MessageBox(PChar('"' + ExtractFileName(FileDlg.FileName) + '" dosyası önceden mevcut. Üzerine yazmak ister misiniz?'), PChar(Caption), 36) = 6)) then
    FileName := FileDlg.FileName;
  FileDlg.Free;
  if FileName = '' then Exit;

  ExportGridToExcel(FileName,cxgrid1,true,true);

end;

[tayipk]

xxxjedixxx hocam teşekkürederim paylaşımın için işimi fazlasıyla gördü çok sağol

[xxxjedixxx]

Rica ederim.