اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


a.kawkab
إذهب إلى أفضل إجابة Solved by ALI BABA,

الردود الموصى بها

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

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

Ahmed.xlsx

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information