كيف يمكن تصدير جميع ماكروات ملف العمل إلى ملف عمل آخر؟

إذا كنت بحاجة إلى تصدير أكواد ماكرو VBA متعددة من ملف عمل إلى آخر، يمكنك نسخها واحدة تلو الأخرى يدويًّا — لكن هذه الطريقة تستغرق وقتًا طويلاً. في هذه المقالة، سأوضح لك كيفية تصدير جميع الماكروات دفعة واحدة بسرعة من ملف عمل إلى آخر، وكذلك حفظ ملفات الماكرو في مجلد محدد بكل سهولة.

تصدير جميع الماكروات من ملف عمل إلى آخر باستخدام كود VBA

---

تصدير جميع الماكروات من ملف عمل إلى آخر باستخدام كود VBA

لتصدير جميع أكواد ماكرو VBA من ملف Excel واحد إلى آخر، يُرجى اتباع الخطوات التالية:

1. أولاً، افتح ملفي العمل معًا في الوقت نفسه: أحدهما يحتوي على الماكروات، والآخر هو الملف الذي تريد نقل الماكروات إليه، كما في لقطة الشاشة:

Office Tab – افتح واقرأ وحرّر وأدر مستندات Office متعددة في نافذة واحدة ذات علامات تبويب يُمكّنك Office Tab من التصفح المبوب والتحرير وإدارة تطبيقات Microsoft Office بسلاسة! افتح مستندات وملفات متعددة في نافذة واحدة ذات علامات تبويب، تمامًا كما تفعل في متصفحات الإنترنت مثل IE 8/9/10 وFirefox وGoogle Chrome.انقر للتنزيل والتجربة المجانية الآن!

2. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.

3. انقر علىإدراج > وحدة (Module)، ثم الصق الماكرو التالي في نافذةالوحدة (Module).

كود VBA: تصدير جميع الماكروات من ملف عمل إلى آخر:

Sub ExportAndImportModule()
Dim xStrSWSName, xSreDWSName As String
Dim xSWS, xDWS As Workbook
xStrSWSName = "old-workbook"
xSreDWSName = "new-workbook"
Dim xFilePath As String
Dim xObjFD As FileDialog
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
 With xObjFD
        .AllowMultiSelect = False
        .Show
        If .SelectedItems.Count > 0 Then
            xFilePath = .SelectedItems.Item(1)
        Else
            Exit Sub
        End If
End With
On Error GoTo Err1
Set xSWS = Workbooks(xStrSWSName & ".xlsm")
Set xDWS = Workbooks(xSreDWSName & ".xlsm")
Set xvbap = xSWS.VBProject
Set xVBC = xvbap.VBComponents
For Each Module In xSWS.VBProject.VBComponents
If Module.Type = vbext_ct_StdModule Then
Module.Export (xFilePath & "\" & Module.Name & ".bas")
xDWS.VBProject.VBComponents.Import (xFilePath & "\" & Module.Name & ".bas")
End If
Next Module
Exit Sub
Err1:
    MsgBox "come to nothing!"
End Sub

ملاحظة: في الكود أعلاه، “old-workbook” هو اسم ملف العمل الذي تريد تصدير الماكروات منه، و“new-workbookهو ملف العمل الذي تريد استيراد الماكروات إليه. يجب أن تستبدل هذين الاسمين بأسماء ملفاتك الخاصة، ويجب أن يكون كلا ملفي العمل بصيغةxlsmنوع الملف.

4. بعد لصق الكود أعلاه، اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذةاستعراض (Browse). يُرجى اختيار مجلد لحفظ ملفات الماكرو المصدرة فيه، كما في لقطة الشاشة:

5. ثم انقر على زرموافق (OK)، وسيتم تصدير جميع الماكروات من ملف العمل المحدد إلى ملف Excel آخر، كما سيتم حفظ ملفات الماكرو في المجلد المحدد أيضًا. راجع لقطة الشاشة:

ملاحظة: يدعم هذا الكود تصدير الماكروات من الوحدات (Modules) العادية فقط.