birden fazla açık dosyayı kaydetme

[zkzc9999]

Birden fazla açık dosyayı dosyaları kapatmadan nasıl kaydedebilirim?
Lotus123'te bu işlem \File \Save All komutlarıyla yapılabiliyordu

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kod ile açık olan tüm excel dosyalarınızı sırasıyla kaydedebilirsiniz.

Sub AÇIK_OLAN_DOSYALARI_KAYDET()
    SAY = Excel.Application.Windows.Count
    If SAY > 0 Then
    For X = 1 To SAY
    Workbooks(X).Save
    MsgBox Workbooks(X).Name & " İSİMLİ DOSYA KAYDEDİLDİ.", vbInformation
    Next
    End If
End Sub

 

[zkzc9999]

çok teşekkür ederim