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