Excelde her sayfayı ayrı ayrı kaydetmek!

[aurer]

Merhaba,

Excelde altta yer alan sayfa1, sayfa2, sayfa3 aynı yere ama ayrı ayrı kaydetmesini istiyorum. nasıl yapabilirim. Yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub SAYFALARI_DOSYA_OLARAK_KAYDET()
    Dim X As Integer, Dosya_Yolu As String, Kitap_Adı As String
    
    Application.ScreenUpdating = False
    
    Dosya_Yolu = ThisWorkbook.Path
    
    For X = 1 To Sheets.Count
        Kitap_Adı = Sheets(X).Name
        Sheets(X).Copy
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=Dosya_Yolu & "\" & Kitap_Adı & ".xls"
        ActiveWindow.Close True
        Application.DisplayAlerts = True
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[aurer]

teşekkür ederim yardımlarınız için...