كود حفظ عدد معين من الشيتات في ملف العمل بصيغة xlsm

[a.kawkab]

مطلوب كود حفظ عدد معين من الشيتات في ملف العمل بصيغة xlsm

الملف المرفق به 7 شيتات المطلوب حفظ عدد معين من الشيتات وليكن شيت1وشيت2 وشيت4 وشيت7فى ملف منفصل بنفس اسماء الشيتات المطوب حفظها والملف يكون بنفس اسم الملف الاساسى بتاريخ يوم الحفظ مثلا  Ahmed12/2019 orAhmed13/12/2019 

Ahmed.xlsx

[ALI BABA]

أخي العزيز..

مرفق الكود المطلوب.. بامكانك التعديل عليه لاختيار الشيتات المطلوبة

نتمنى لك التوفيق ولا تنسانا من صالح دعائك

Ahmed.xlsm

[a.kawkab]

Public Sub CreateNewFile()
    Dim wb As Workbook
    Dim wbAS As Workbook
    Dim intX As Integer
    Dim strFileName As String
    
Application.ScreenUpdating = False
Application.DisplayAlerts = False

    Set wbAS = ActiveWorkbook   ' The active workbook

' Open a new workbook to copy the new worksheets to it
Set wb = Workbooks.Add
    
' Copy Sheets to the new workbook
'For intX = 1 To wbAS.Sheets.Count
'wbAS.Worksheets(intX).Copy after:=wb.Sheets(intX)
'Next intX

' or you can specify the sheets you want
wbAS.Worksheets("åíÆÉ").Copy after:=wb.Sheets(1)
wbAS.Worksheets("ØáÇÈ æÑÖÚ").Copy after:=wb.Sheets(1)


' Delete Sheet1 in the new workbook
wb.Sheets(1).Delete

Application.DisplayAlerts = True
Application.ScreenUpdating = True


'##Prompt for SaveAs dialog box

' Name of new file
strFileName = "Ahmed " & Format(Date, "DD MMM YY")

' Where to save the new file
'    file_name = Application.GetSaveAsFilename(InitialFileName:=strFileName, FileFilter:="Excel 97-2003 Workbook (*.xlsx), *.xlsx")
 file_name = Application.GetSaveAsFilename(InitialFileName:=strFileName, FileFilter:="Excel macro-enabledwirkbook (*.xlsm), *.xlsm")

' See if the user canceled
    If file_name = False Then
    wb.Close SaveChanges:=False
    wbAS.Worksheets(1).Activate
    MsgBox "File was not created, actions cancelled."
    wb.Close
    Exit Sub
    Else
    wb.SaveAs Filename:=file_name, FileFormat:=xlOpenXMLWorkbook
  

    MsgBox "Your file has successfully been created.."
    
    End If

End Sub

شكرا استاذALI BABA على هذا الكود الجميل لكنة يحفظ الملف بصيغة xlsx حاولت تعديله الى صيغة xlsm اعطانى خطا فى السطر

wb.SaveAs Filename:=file_name, FileFormat:=xlOpenXMLWorkbook

فهل ممكن تتكرم وتعدل صيغة حفظ الملف الى xlsm

[ALI BABA]

اكنب هذا

    file_name = Application.GetSaveAsFilename(InitialFileName:=strFileName, FileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm")
 

    wb.SaveAs Filename:=file_name, FileFormat:=52
 

[a.kawkab]

شكرا استاذ ALI BABA تم التعديل واوفى بالمطلوب والحمد لله جزاك الله خيرا وزادك بسطة فى العلم