عالم الاوفيس | كيفية حفظ اى ورقة عمل كملف اكسيل منفصل بذاتة Excel VBA | ُExport and Save each worksheet as a separate Excel file

بسم الله الرحمن الرحيم 
اهلا بكم متابعى موقع عالم الاوفيس

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


كود جديد وكود مميز من مكتبة اكواد اكسيل ماكرو Excel VBA

ورد الينا سؤال من احد الاصدقاء والمتابعين يريد ان يعرف كيف يقوم بحفظ ورقة عمل معينة من ملف الاكسل الذى يحتوى على عدة اوراق الى ملف اكسيل مستقل ومنفصل بذاتة 

فى البداية سوف يتم عمل هذا من خلال كود برمجى فى اكسيل Excel VBA

الكود 

نقوم بتعريف متغيرين 

الاول يقوم بتحديد مسار ملف العمل والثانى يعبر عن ورقة العمل اللتى نريد ان نصدرها

المتغير الاول filepath  يقوم بتحديد مسار ملف

المتغير الثانى ws يعبر عن ورقة العمل اللتى نريد ان نصدرها



الكود كامل



'لتصدير ورقة عمل واحدة محددة
Sub export_specificsheet()
    Dim filePath As String
    Dim ws As Worksheet
    filePath = Application.ActiveWorkbook.Path
    Set ws = Sheets("inviocs")
   
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
        With ws
            .Copy
            Application.ActiveWorkbook.SaveAs Filename:=filePath & "\" & .Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
            Application.ActiveWorkbook.Close False
        End With
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub







لتحميل ملف العمل من هنا


Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم

  1. شكرا يااستاذي الفاضل

    ردحذف
  2. السلام عليكم استاذ عماد تقبل الله عملكم وجزاكم خيرا اكمالا لنفس الموضوع ممكن تعديل الكود ليرحل اكثر من شيت على ان تكون الصفحات المرحلة قيم فقط بدون اظهار المعادلات مع الاجتفاظ بنفس تنسيق الاصل من جداول وخلافه

    ردحذف
  3. نحتاج طريقة عمل صفحات بنفس التنسيق واسماء الشيتات الجديدة تكون من عمود

    ردحذف