Sayfayı TXT yedekleme

[velim32]

Öncelikle Merhaba;

Hazırlamış olduğum Excel dosyasındaki "Firma" sayfasını "sekmeyle ayrılmış metin belgesi" formatında, mevcut Excel dosyası ve sayfasında değişikliğe neden olmadan "D:\yedek " dosyasına yedeklemek istiyorum.​

​

Yardımcı olursanız sevinirim.​

 

[Ömer]

Merhaba,

Deneyiniz.

Sub csv_kaydet()

    Dim yol As String, ad As String
    
    yol = "D:\yedek\"
      
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("Firma").Select
    
    ad = "Firma_" & Format(Now, "dd-mm yyyy hh-mm-ss")
    
    ThisWorkbook.Sheets("Firma").Copy
    ActiveWorkbook.SaveAs Filename:=yol & ad & ".csv", FileFormat:=xlCSV, CreateBackup:=False
    ActiveWorkbook.Close
    
End Sub

 

[velim32]

Teşekkür ederim işimi fazlasıyla gördü.