Excel uzantısını değiştirme.

[Kaptan]

Bir excel dosyasının uzantısını cvs olarak programla değiştirmek istiyorum. Kodunu bilenlerden yardım bekliyorum .
Teşekkürler.

[NewMember]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
RenameFile('ExcelDosyam.xls','ExcelDosyam.csv')
end;

[mrmarman]

Kod: Tümünü seç

Var
  DosyaAdi : TFileName;
begin
  DosyaAdi := 'c:\dosya.txt';
  DosyaAdi := ChangeFileExt( DosyaAdi, '.csv' );
  ShowMessage(DosyaAdi);
end;

- Başarılar...

[Kaptan]

Teşekkürler fakat aradığım cevap bu değildi. xls uzantılı dosya ile cvs uzantılı dosya arasında farklılık var. bu kodlarla görüntüde değiştiriliyor sadece. isterseniz bir xls dosyasını cvs uzantılı olarak kaydedin ve wordde veya notepadde bu dosyayı açın. notepadde gözükebilecek şekilde ayarlıyor cvs dosyası kendini.
Yani dosyanın yapısının da değişmesi lazım.

[kadirkurtoglu]

Teşekkürler fakat aradığım cevap bu değildi. xls uzantılı dosya ile cvs uzantılı dosya arasında farklılık var. bu kodlarla görüntüde değiştiriliyor sadece. isterseniz bir xls dosyasını cvs uzantılı olarak kaydedin ve wordde veya notepadde bu dosyayı açın. notepadde gözükebilecek şekilde ayarlıyor cvs dosyası kendini.
Yani dosyanın yapısının da değişmesi lazım.

arkadaşım özellikle uzantısını değişitrecem demişsin.

[mrmarman]

Bu durumda, XLS dosyasını Excel ile açıp, CSV olarak kaydetmesini sağlamak gerek...

- Uses ComObj eklemeyi unutma...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
Const
  xlCSV = $00000006;
Var
  Excel : OleVariant;
  Dosya : TFileName;
begin
  Dosya := ExtractFilePath(Application.ExeName)+'Kitap1.XLS';
  Excel := CreateOleObject('Excel.Application');
  Excel.Workbooks.Open(Dosya);
  Excel.ActiveWorkBook.SaveAs(Filename:=ChangeFileExt(Dosya, '.csv'),fileFormat:=xlCSV, CreateBackup:=False);
  Excel.DisplayAlerts := False;
  Excel.Workbooks.Close;
  Excel := UnAssigned;
end;

[Kaptan]

ilgilenen bütün arkadaşlara teşekkür ediyorum. sağolun.