حفظ كتاب عمل


حفظ كتاب العمل النشط
ActiveWorkbook.Save



حفظ كتاب عمل عن طريق اسمه
Workbooks("db1.xlsx").Save



حفظ كتاب العمل النشط و اعطائة اسم
ActiveWorkbook.SaveAs Filename:="Test.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled



حفظ كتاب العمل النشط فى مجلد معين و اعطائة اسم
ActiveWorkbook.SaveAs Filename:="C:\Users\sumit\Desktop\Test.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled



فتح صندوق حوارى لحفظ كتاب العمل

Sub SaveWorkbook()
Dim FilePath As String
FilePath = Application.GetSaveAsFilename
ActiveWorkbook.SaveAs Filename:=FilePath & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
End Sub



حفظ كل كتب العمل المفتوحة

Sub SaveAllWorkbooks()
Dim wb As Workbook
For Each wb In Workbooks
If wb.Path <> "" Then
wb.Save
End If
Next wb
End Sub