SaveAs

Söz dizimi​

ifade.SaveAs(FileName, FileFormat, Password, WriteResPassword, ReadOnlyRecommended, CreateBackup, AccessMode, ConflictResolution, AddToMru, TextCodepage, TextVisualLayout, Local)

• FileName: Kaydedilecek dosyanın adı; tam yol da verebilirsiniz. İsteğe bağlıdır; verilmezse kitabın geçerli adı kullanılır.
• FileFormat: Dosya biçimi (xlOpenXMLWorkbook gibi XlFileFormat sabiti). İsteğe bağlıdır; verilmezse var olan bir dosyada kitabın son biçimi, yeni kitapta Excel'in varsayılan biçimi kullanılır.
• Password: Dosyayı açmak için istenecek parola; büyük küçük harfe duyarlıdır, en çok 15 karakter. İsteğe bağlıdır.
• WriteResPassword: Dosyaya yazma izni için istenecek parola. Parola girilmezse dosya salt okunur açılır. İsteğe bağlıdır.
• ReadOnlyRecommended: True ise dosya açılırken salt okunur açma önerisi gösterilir. İsteğe bağlıdır; varsayılan False.
• CreateBackup: True ise yedek dosya oluşturulur. İsteğe bağlıdır; varsayılan False.
• AccessMode: xlNoChange (varsayılan), xlShared veya xlExclusive. İsteğe bağlıdır.
• ConflictResolution: Paylaşılan kitapta çakışmaların nasıl çözüleceğini belirler: xlUserResolution, xlLocalSessionChanges veya xlOtherSessionChanges. İsteğe bağlıdır.
• AddToMru: True ise dosya son kullanılan dosyalar listesine eklenir. İsteğe bağlıdır; varsayılan False.
• TextCodepage: Excel'in Türkçe ve İngilizce sürümlerinde kullanılmaz; verilmesi gerekmez.
• TextVisualLayout: Aynı şekilde kullanılmaz; verilmesi gerekmez.
• Local: True ise dosya Excel'in dil ayarlarına göre (tablo başlıkları, sayı biçimleri) kaydedilir; False ise VBA'nın dil ayarı kullanılır. İsteğe bağlıdır; varsayılan False.

Sık kullanılan FileFormat sabitleri​

• xlOpenXMLWorkbook (51): Makrosuz Excel çalışma kitabı (.xlsx).
• xlOpenXMLWorkbookMacroEnabled (52): Makro içerebilen çalışma kitabı (.xlsm).
• xlExcel12 (50): İkili çalışma kitabı (.xlsb).
• xlExcel8 (56): Excel 97-2003 çalışma kitabı (.xls).
• xlOpenXMLTemplate (54): Excel şablonu (.xltx).
• xlCSV (6): Virgül veya liste ayırıcısıyla ayrılmış metin (.csv); yalnız etkin sayfa kaydedilir.
• xlCSVUTF8 (62): UTF-8 kodlamalı CSV; Excel 2016 ve sonrasında bulunur.
• xlTextWindows (20): Sekmeyle ayrılmış metin (.txt).

Çalışma biçimi ve ilgili yöntemlerden farkı​

1. Kitabı parolalı .xlsx olarak kaydetme​

Option Explicit

Sub RaporuKaydet()
    Dim yol As String
    yol = "C:\Raporlar\Satis_Raporu.xlsx"

    ' Üzerine yazma sorusunu geçici olarak kapat
    Application.DisplayAlerts = False
    On Error GoTo Hata

    ActiveWorkbook.SaveAs Filename:=yol, _
        FileFormat:=xlOpenXMLWorkbook, _
        Password:="Rapor2024", _
        CreateBackup:=False

    Application.DisplayAlerts = True
    Exit Sub

Hata:
    Application.DisplayAlerts = True
    MsgBox "Dosya kaydedilemedi: " & Err.Description, vbExclamation
End Sub

2. Kaydetmeden önce geçerli dosya adı üretme​

Option Explicit

Sub DosyaAdiOlustur()
    Dim ws As Worksheet
    Dim s As Long
    Dim ad As String
    Dim k As Variant

    Set ws = ActiveSheet

    For s = 2 To 7
        ' Rapor adı ile tarihi birleştir
        ad = ws.Cells(s, 1).Value & "_" & Format(ws.Cells(s, 2).Value, "yyyy-mm-dd")

        ' Yasak karakterleri tireyle değiştir
        For Each k In Array("\", "/", ":", "*", "?", """", "<", ">", "|")
            ad = Replace(ad, k, "-")
        Next k

        ' Boşlukları alt çizgiyle değiştir ve uzantıyı ekle
        ad = Replace(ad, " ", "_")
        ws.Cells(s, 3).Value = ad & ".xlsx"
    Next s
End Sub

3. FileFormat sabitlerinin değerlerini listeleme​

Option Explicit

Sub BicimKodlariniYaz()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    ' Her sabitin sayısal değerini D sütununa yaz
    ws.Range("D2").Value = xlOpenXMLWorkbook
    ws.Range("D3").Value = xlOpenXMLWorkbookMacroEnabled
    ws.Range("D4").Value = xlExcel8
    ws.Range("D5").Value = xlCSV
    ws.Range("D6").Value = xlOpenXMLTemplate
End Sub

Kullanırken dikkat edin​

• Uzantıyı biçimle uyumlu verin: FileName içinde uzantıyı yazmasanız bile Excel biçime uygun uzantıyı ekler; ancak uzantıyı kendiniz yazıyorsanız FileFormat ile uyumlu olmasına dikkat edin. Uyumsuz kayıt, dosyanın açılırken uyarı vermesine ya da açılmamasına yol açar.
• Makrolu kitabı xlsx olarak kaydetmeyin: xlOpenXMLWorkbook biçimi VBA kodunu saklamaz. Makro içeren bir kitabı bu biçimle kaydederseniz kodlar yeni dosyada bulunmaz. Makroları korumak için xlOpenXMLWorkbookMacroEnabled (.xlsm) kullanın.
• Üzerine yazma ve DisplayAlerts: Aynı adlı dosya varsa Excel onay sorar. Application.DisplayAlerts = False yazarsanız soru sorulmadan dosyanın üzerine yazılır; bu ayarı işlem bitince, hata durumunda bile, tekrar True yapmayı unutmayın.
• Parola sınırları: Password ve WriteResPassword büyük küçük harfe duyarlıdır ve parola en çok 15 karakter olabilir. Parolayı kodun içine düz metin olarak yazmak güvenlik açısından zayıftır; kodu paylaşacaksanız bunu göz önünde bulundurun.
• Orijinal kitap yeni ada geçer: SaveAs sonrasında açık kitap yeni dosyaya bağlanır. Etkin kitabı değiştirmeden yedek almak istiyorsanız SaveCopyAs yöntemini tercih edin. Kitabın tam yolu gereken durumlarda kullanıcıya SaveAs yerine GetSaveAsFilename ile dosya adı seçtirebilirsiniz.
• CSV kaydederken: xlCSV biçiminde yalnız etkin sayfa kaydedilir ve biçimlendirme, formüller kaybolur; yalnız değerler yazılır. Türkçe karakterler bozuluyorsa Excel 2016 ve sonrasında xlCSVUTF8 (62) kullanmayı deneyin.
• İlgili konular:
  • Save: Kitabı mevcut adıyla kaydeder.
  • SaveCopyAs: Açık kitabı değiştirmeden kopyasını kaydeder.
  • Workbooks.Open: Kayıtlı bir dosyayı açar.
  • Workbooks.Add: Yeni bir çalışma kitabı oluşturur.
  • Application.DisplayAlerts: Excel uyarılarını açar ya da kapatır.
  • Application.GetSaveAsFilename: Kullanıcıya dosya adı seçtirir.
  • ExportAsFixedFormat: Kitabı ya da sayfayı PDF olarak dışa aktarır.
  • Close: Kitabı kaydederek ya da kaydetmeden kapatır.
  • On Error: Kaydetme sırasındaki hataları yakalamak için kullanılır.