نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

إذا كنت بحاجة إلى تصدير العديد من رموز vba الماكرو من مصنف إلى آخر ، فيمكنك نسخها واحدة تلو الأخرى بشكل طبيعي. ولكن هذا سيستغرق وقتا طويلا ، هذه المقالة ، سأتحدث عن كيفية تصدير جميع وحدات الماكرو بسرعة من مصنف واحد إلى آخر وحفظ ملفات الماكرو إلى مجلد معين كذلك.

تصدير كافة وحدات الماكرو من مصنف إلى آخر باستخدام رمز VBA


إزالة كافة وحدات الماكرو من المصنفات المتعددة:

كوتولس ل إكسيل's دفعة إزالة كافة وحدات الماكرو الأداة المساعدة يمكن أن تساعدك على إزالة كافة وحدات الماكرو من المصنفات متعددة ما تحتاج إليه. تحميل وتجريبية مجانية كوتولس فور إكسيل الآن!

دوك تشغيل الماكرو إذا التغييرات الخلية شنومكس

كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن!


تصدير كافة وحدات الماكرو من مصنف إلى آخر باستخدام رمز VBA

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

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

doc export micros 1

Office-Tab-Open ، قم بقراءة ، تحرير ، وإدارة مستندات Office المتعددة في نافذة واحدة مبوبة

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

doc تصدير وحدات الماكرو

2. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

3. انقر إدراج > وحدة، ولصق الماكرو التالي في وحدة نافذة او شباك.

رمز 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
ملاحظة:: في التعليمات البرمجية المذكورة أعلاه، "، المصنف القديم"هو اسم المصنف الذي تريد تصدير وحدات الماكرو منه ، و"، مصنف جديد"هو المصنف الذي تريد استيراد وحدات الماكرو. يجب عليك تغيير الأسماء الخاصة بك. يجب أن يكون كلا من المصنفين و xlsm تنسيق الملف.

doc export micros 2

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

doc export micros 3

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

doc export micros 4

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


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.