JavaScript is not enabled!...Please enable javascript in your browser

جافا سكريبت غير ممكن! ... الرجاء تفعيل الجافا سكريبت في متصفحك.

-->
الصفحة الرئيسية

عالم الاوفيس | كيفية حفظ اى ورقة عمل كملف اكسيل منفصل بذاتة 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







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


الاسمبريد إلكترونيرسالة