Note: The other languages of the website are Google-translated. Back to English

كيفية دمج عدة مصنفات في مصنف رئيسي واحد في Excel؟

هل سبق لك أن علقت عندما تضطر إلى دمج العديد من المصنفات في مصنف رئيسي في Excel؟ أفظع شيء هو أن المصنفات التي تحتاج إلى دمجها تحتوي على أوراق عمل متعددة. وكيف يمكن دمج أوراق العمل المحددة فقط من مصنفات متعددة في مصنف واحد؟ يوضح هذا البرنامج التعليمي عدة طرق مفيدة لمساعدتك على حل المشكلة بخطوات.


ادمج عدة مصنفات في مصنف واحد باستخدام وظيفة النقل أو النسخ

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

1. افتح المصنفات التي ستقوم بدمجها في مصنف رئيسي.

2. حدد أوراق العمل في المصنف الأصلي الذي ستنقله أو تنسخه إلى المصنف الرئيسي.

الملاحظات:

1). يمكنك تحديد عدة أوراق عمل غير متجاورة مع الاستمرار في الضغط على CTRL المفتاح والنقر فوق علامات تبويب الأوراق واحدة تلو الأخرى.

2). لاختيار عدة أوراق عمل متجاورة ، يرجى النقر فوق علامة تبويب الورقة الأولى ، مع الاستمرار في الضغط على تغير ، ثم انقر فوق علامة تبويب الورقة الأخيرة لتحديدها جميعًا.

3). يمكنك النقر بزر الماوس الأيمن فوق أي علامة تبويب ورقة ، والنقر فوق حدد كافة الأوراق من قائمة السياق لتحديد جميع أوراق العمل في المصنف في نفس الوقت.

3. بعد تحديد أوراق العمل المطلوبة ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ، ثم انقر فوق نقل أو نسخ من قائمة السياق. انظر لقطة الشاشة:

4. ثم نقل أو نسخ الحوار المنبثقة ، في للحجز القائمة المنسدلة ، حدد المصنف الرئيسي الذي ستقوم بنقل أوراق العمل إليه أو نسخ أوراق العمل إليه. حدد نقل لإنهاء ملف قبل الورقة مربع ، تحقق من قم بإنشاء نسخة مربع ، وأخيراً انقر فوق OK .

ثم يمكنك مشاهدة أوراق العمل في مصنفين مدمجين في مصنف واحد. يرجى تكرار الخطوات المذكورة أعلاه لنقل أوراق العمل من المصنفات الأخرى إلى المصنف الرئيسي.


ادمج عدة مصنفات أو أوراق محددة من المصنفات في مصنف رئيسي باستخدام VBA

إذا كان هناك العديد من المصنفات التي يجب دمجها في واحدة ، فيمكنك تطبيق أكواد VBA التالية لتحقيق ذلك بسرعة. الرجاء القيام بما يلي.

1. ضع كل المصنفات التي تريد دمجها في واحد ضمن نفس الدليل.

2. قم بتشغيل ملف Excel (سيكون هذا المصنف هو المصنف الرئيسي).

3. اضغط على قديم + F11 مفاتيح لفتح Microsoft Visual Basic للتطبيقات نافذة او شباك. في ال Microsoft Visual Basic للتطبيقات الإطار، انقر فوق إدراج > وحدة، ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

كود فبا 1: دمج عدة مصنفات Excel في واحد

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

الملاحظات:

1. سيحتفظ رمز VBA أعلاه بأسماء أوراق المصنفات الأصلية بعد الدمج.

2. إذا كنت تريد التمييز بين أوراق العمل الموجودة في المصنف الرئيسي والتي جاءت من المكان بعد الدمج ، فيرجى تطبيق رمز VBA أدناه 2.

3. إذا كنت تريد فقط دمج أوراق عمل محددة من المصنفات في مصنف رئيسي ، فيمكن أن يساعدك رمز VBA 3 أدناه.

في رموز VBA ، "ج: \ المستخدمون \ DT168 \ سطح المكتب \ KTE \"هو مسار المجلد. في رمز VBA 3 ، "ورقة 1 ، ورقة 3"هي أوراق العمل المحددة للمصنفات التي ستجمعها في مصنف رئيسي. يمكنك تغييرها بناءً على احتياجاتك.

كود فبا 2: دمج المصنفات في واحد (سيتم تسمية كل ورقة عمل ببادئة اسم الملف الأصلي الخاص بها):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

كود فبا 3: دمج أوراق عمل محددة من المصنفات في مصنف رئيسي:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. اضغط على F5 مفتاح لتشغيل الكود. ثم يتم دمج جميع أوراق العمل أو أوراق العمل المحددة للمصنفات الموجودة في مجلد معين في مصنف رئيسي مرة واحدة.


يمكنك بسهولة الجمع بين مصنفات متعددة أو أوراق محددة من المصنفات في مصنف واحد

لحسن الحظ، و دمج المصنف فائدة كوتولس ل إكسيل يسهل دمج عدة مصنفات في مصنف واحد. دعونا نرى كيفية جعل هذه الوظيفة تعمل في الجمع بين مصنفات متعددة.

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

1. قم بإنشاء مصنف جديد وانقر فوق كوتولس بلس > دمج. ثم ينبثق مربع حوار لتذكيرك بضرورة حفظ جميع المصنفات المدمجة ولا يمكن تطبيق الميزة على المصنفات المحمية ، يرجى النقر فوق OK .

2. في ال اجمع أوراق العمل المعالج ، حدد اجمع أوراق عمل متعددة من مصنفات في مصنف واحد الخيار ، ثم انقر فوق التالى زر. انظر لقطة الشاشة:

3. في ال اجمع أوراق العمل - الخطوة 2 من 3 مربع الحوار، انقر فوق أضف > قم بتقديم or مجلد لإضافة ملفات Excel سوف تدمج في ملف واحد. بعد إضافة ملفات Excel ، انقر فوق نهاية زر واختر مجلدًا لحفظ المصنف الرئيسي. انظر لقطة الشاشة:

الآن تم دمج كافة المصنفات في واحد.

مقارنة بالطريقتين المذكورتين أعلاه ، كوتولس ل إكسيل لديه المزايا التالية:

  • 1) يتم سرد كافة المصنفات وأوراق العمل في مربع الحوار ؛
  • 2) بالنسبة لأوراق العمل التي تريد استبعادها من الدمج ، ما عليك سوى إلغاء تحديدها ؛
  • 3) يتم استبعاد أوراق العمل الفارغة تلقائيًا ؛
  • 4) سيتم إضافة اسم الملف الأصلي كبادئة لاسم الورقة بعد الدمج ؛
  • لمزيد من وظائف هذه الميزة ، الرجاء زيارة هنا.

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


كوتولس ل Excel - يساعدك دائمًا على إنهاء العمل قبل الوقت ، ولديك المزيد من الوقت للاستمتاع بالحياة
هل تجد نفسك غالبًا تلعب دورًا في اللحاق بالعمل ، وقلة الوقت الذي تقضيه لنفسك وعائلتك؟  كوتولس ل إكسيل يمكن أن تساعدك على التعامل معها و ان آكثر من 80% برنامج Excel يعمل على حل الألغاز وتحسين كفاءة العمل بنسبة 80٪ ، مما يمنحك مزيدًا من الوقت لرعاية الأسرة والاستمتاع بالحياة.
300 أداة متقدمة لسيناريوهات عمل 1500 ، اجعل عملك أسهل بكثير من أي وقت مضى.
لم تعد بحاجة إلى حفظ الصيغ ورموز VBA ، امنح عقلك قسطًا من الراحة من الآن فصاعدًا.
يمكن إجراء العمليات المعقدة والمتكررة لمرة واحدة في ثوانٍ.
قلل الآلاف من عمليات لوحة المفاتيح والماوس كل يوم ، وداعًا للأمراض المهنية الآن.
كن خبيرًا في برنامج Excel في 3 دقائق ، ومساعدتك في الحصول على التقدير بسرعة والحصول على ترقية في الراتب.
110,000 شخص ذو كفاءة عالية و 300 + اختيار شركة ذات شهرة عالمية.
اجعل 39.0 دولارًا تساوي أكثر من 4000.0 دولارًا لتدريب الآخرين.
نسخة تجريبية مجانية كاملة الميزات 30-يوم. ضمان استرداد الأموال لمدة 60 يومًا بدون سبب.

فرز التعليقات حسب
التعليقات (146)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، من فضلك ساعدني في هذا الشرط أدناه. لدي مصنف مختلف يحتوي على أكثر من 5 أوراق عمل لكل منها مسار مختلف. أحتاج إلى دمج جميع أوراق العمل من مصنف مختلف في مصنف واحد. يمكن لأي شخص أن يساعدني في حل مع الماكرو. TIA!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] مرحبًا من فضلك ساعدني في هذا الشرط أدناه. لدي مصنف مختلف يحتوي على أكثر من 5 أوراق عمل لكل منها مسار مختلف. أحتاج إلى دمج جميع أوراق العمل من مصنف مختلف في مصنف واحد. يمكن لأي شخص أن يساعدني في حل مع الماكرو. TIA!بواسطة A. Karthi[/ quote] يرجى الذهاب لتنزيل Kutools for Excel وتثبيته ، يمكنك إنجازه بسرعة. ولكن إذا كنت تريد استخدام VBA ، فقد يكون الأمر معقدًا للغاية. لمزيد من المعلومات حول كيفية القيام بذلك ، يرجى زيارة:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حل KUTOOLS رائع. أحتاج إلى مساعدة أخرى عندما أقوم بإنشاء مصنف رئيسي ، ثم يتم تغيير لون خلية ورقة العمل من ورقة العمل الأصلية. كيف يمكنني الاحتفاظ بها مثل ورقة العمل الأصلية.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوجد في مكتبنا نسخة مكررة من البيانات (مثل الاسم ، والعنوان ، والمدينة ، والمبلغ ، والتاريخ الموقع) من عدة نسخ أصلية من Excel ، وستكون محاولة دمج البيانات عملاً قيد التنفيذ. كيف يمكن القيام بذلك لإزالة العمل المزدوج وإدخالات المعلومات المزدوجة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حصلت على "خطأ وقت التشغيل 1004" ، فشلت طريقة نسخ فئة ورقة العمل على السطر الذي يقرأ: Sheet.Copy After: = ThisWorkbook.Sheets (1). أنا أستخدم Excel 2010. هل يمكنك المساعدة؟ شكرا - سوزي
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا سوزي ، لقد كنت أعمل على هذه المشكلة لفترة من الوقت الآن ، وأواجه نفس الخطأ. تحقق لمعرفة ما إذا تم إنشاء الوحدة ضمن "شخصي" بدلاً من مصنفك النشط. بمجرد أن أنشأت الوحدة تحت الشجرة الصحيحة ، عملت الكود أدناه بشكل جيد. Sub GetSheets_xls () ورقة خافتة كمسار ورقة عمل = "C: \ Users \ yournamehere \ Desktop \ Testingfolder \" Filename = Dir (Path & "* .xls") Do while Filename "" Workbooks.Open Filename: = المسار واسم الملف ، ReadOnly: = False Set Sheet = ActiveWorkbook.Sheets (1) Sheet.Copy After: = ThisWorkbook.Sheets (1) 'Next Sheet Workbooks (Filename) .Close Filename = Dir () Loop End Sub نأمل أن يساعد هذا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا جزيلاً. الكود الخاص بك يعمل بشكل جيد.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] تلقيت "خطأ وقت التشغيل 1004" ، فشلت طريقة نسخ فئة ورقة العمل في السطر الذي يقرأ: Sheet.Copy After: = ThisWorkbook.Sheets (1). أنا أستخدم Excel 2010. هل يمكنك المساعدة؟ شكرا - سوزيبواسطة سوزي[/ quote] واجهت نفس المشكلة ، إنها تعمل عندما أذهب لعرض وإظهار "شخصي" ، يبدو أنه يواجه مشكلة في الوصول إلى هذا الماكرو مع إخفاء المعلم.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انتقل لعرض وإلغاء إخفاء "شخصي" - يبدو أن لديك مشكلة في تنفيذ الكود بالكامل بينما يكون المعلم مخفيًا. يمكنك جعل الماكرو أصليًا في هذا المصنف ، ولكن سيتعين عليك إعادة إنشاء كل شيء في كل مرة تريد استخدامه
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أهلاً! شكرا جزيلا لهذا الملف .............: لفة: مع أطيب التحيات
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يا نصيحة عظيمة. فعل تقريبا كل ما اريد. في دفتر العمل المدمج ، كنت سأحب أن يحتوي اسم ورقة العمل على اسم كتاب العمل الأصلي ، لذلك أعرف كتاب العمل الذي تأتي منه البيانات. البيانات التي أقوم بدمجها هي من أرشيفات مختلفة. لا بد لي من البحث عن إدخال ، ولكن لا أعرف أي أرشيف موجود فيه. لذا ، من خلال دمج جميع البيانات في ملف واحد ، سأتمكن من البحث في جميع المحفوظات مرة واحدة. لكن ما زلت بحاجة إلى معرفة أي أرشيف يوجد فيه الإدخال. هنريك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لتضمين التعليمات البرمجية اسم الملف فقط قم بذلك. Sub GetSheets () Dim temp as String Path = "C: \ Users \ .... \ Desktop \ Excel الجمع \" Filename = Dir (Path & "* .xlsx") Do while Filename "" Workbooks.Open Filename: = المسار & اسم الملف ، للقراءة فقط: = True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets (temp). النسخ بعد: = ThisWorkbook.Sheets (1) Workbooks (Filename) .Close Filename = Dir () Loop End Sub Note : هذا لنسخ الورقة الأولى فقط ، يمكن أن يكون tweeked للقيام بجميع الأوراق
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكنك دمج المزيد من الأوراق وكيف تحدد ملفًا رئيسيًا مختلفًا للصق كل الأوراق.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه حل رائع بالفعل. شكرا. هناك مشكلة واحدة ، عندما أقوم بتنفيذها مثل هذا Excel ، سأطلب ما إذا كنت أرغب في حفظ التعديلات قبل الإغلاق (منذ تغيير الاسم) ، ولا أريد القيام بذلك لكل ملف (حوالي 32 لكل تنفيذ). هل هناك طريقة لحل هذا؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع: لول: ساعدني كثيرًا ....
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرًا يا صديقي ، لقد جعلت يومي من هذا الموقع المفيد جدًا ... في الواقع كنت أرغب أيضًا في دمج نفس بيانات الرأس لأوراق مختلفة في ورقة عمل رئيسية واحدة ، ساعدني KUTOOL for Excel كثيرًا .... شكرًا لك مرة أخرى .... :)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا على المعلومات القيمة. هذا حقا يعمل. الخطوات المذكورة في هذا المقال جعلت عملي أسهل حقًا. شكرا دينيش
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لتقاسم المعارف الخاصة بك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف تحصل عليه لتحديث التغييرات من المصنف الأصلي؟ أحاول الحصول على ملخص وطني والذي سيطلب من كل منطقة إدخال بياناتها في كتب العمل الخاصة بها ومن ثم الحصول على الملخص الوطني الذي يتم تحديثه من هذا؟ أود أن يكون هذا الإعداد للعام بأكمله في البداية وألا أعمل بأثر رجعي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بعد دمج أوراق العمل في مصنف واحد ، كيف يمكنك حفظه ، ولم أستطع حفظه باسم Book1 وأنا أقوم بالنقر فوق "حفظ أو حفظ" ولكن لا يعمل أي من الاقتراحات؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد اتبعت الخطوات الواردة في "دمج عدة مصنفات في مصنف واحد باستخدام VBA" وانقر فوق "تشغيل" ، ولم يحدث شيء. لست على علم بالأخطاء ولست متأكدًا من كيفية تصحيحها. هلا ساعدتني؟ التالي هو الكود الذي أدخلته في مصنف جديد. شكرًا لك Sub GetSheets () Path = "p: \ download \ macro \" Filename = Dir (المسار & "* .xls") القيام أثناء اسم الملف "" Workbooks.Open Filename: = المسار & اسم الملف ، للقراءة فقط: = صحيح لكل ورقة في ActiveWorkbook.Sheets Sheet.Copy After: = ThisWorkbook.Sheets (1) Next Sheet Workbooks (Filename) .Close Filename = Dir () Loop End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سيدي العزيز / سيدتي: لقد اتبعت خطوات "دمج عدة مصنفات في مصنف واحد باستخدام VBA" لإعداد الوحدة النمطية التالية ، ولكن لم يحدث شيء. هل تساعدني في إيجاد المشكلة؟ شكرًا لك Sub GetSheets () Path = "p: \ download \ macro \" Filename = Dir (Path & "* .xls") افعل أثناء اسم الملف "" Workbooks.Open Filename: = المسار واسم الملف ، للقراءة فقط: = صحيح لكل الورقة في ActiveWorkbook.Sheets Sheet.Copy After: = ThisWorkbook.Sheets (1) Next Sheet Workbooks (Filename) .Close Filename = Dir () Loop End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
للحصول على إصدارات أحدث من برنامج Excel ، جرب هذا. لقد قمت بحفظ المصنف المفتوح الخاص بي ككتالوج ، وجميع الملفات موجودة في c: \ temp. Sub GetSheets () Path = "c: \ temp \" Filename = Dir (Path & "* .xls") افعل أثناء اسم الملف "" Workbooks.Open Filename: = المسار & اسم الملف ، للقراءة فقط: = صحيح لكل ورقة في ActiveWorkbook. Sheets Sheet.Copy After: = Workbooks ("index.xlsx"). Sheets (1) Next Sheet Workbooks (Filename) .Close Filename = Dir () Loop End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جرب هذا للحصول على إصدارات أحدث من برنامج Excel. لقد قمت بحفظ المصنف الخاص بي كتالوج ، وجميع الملفات موجودة في c: \ temp. Sub GetSheets () Path = "c: \ temp \" Filename = Dir (Path & "* .xls") افعل أثناء اسم الملف "" Workbooks.Open Filename: = المسار & اسم الملف ، للقراءة فقط: = صحيح لكل ورقة في ActiveWorkbook. Sheets Sheet.Copy After: = Workbooks ("index.xlsx"). Sheets (1) Next Sheet Workbooks (Filename) .Close Filename = Dir () Loop End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
[اقتباس] جرب هذا للحصول على إصدارات أحدث من برنامج Excel. لقد قمت بحفظ المصنف الخاص بي كتالوج ، وجميع الملفات موجودة في c: \ temp. Sub GetSheets () Path = "c: \ temp \" Filename = Dir (Path & "* .xls") نفذ أثناء اسم الملف "" Workbooks.Open Filename: = المسار & اسم الملف ، للقراءة فقط: = صحيح لكل ورقة في ActiveWorkbook. Sheets Sheet.Copy After: = Workbooks ("index.xlsx"). Sheets (1) Next Sheet Workbooks (Filename) .Close Filename = Dir () Loop End Subبقلم ديف[/ quote] ما زلت أحصل على "لا يمكن التخصيص لخاصية القراءة فقط" فيما يتعلق بالمسار ... أي فكرة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا عندي مشكلة تيس أيضا. هل اكتشفتها؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا شيء حتى الآن ... لم يتم العثور على أي حل أو اقترح أي شخص إصلاحًا. آسف...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أيضاً. كان هذا يعمل منذ 6 أشهر ، آخر مرة اضطررت إلى تشغيله. هل وجد أحد الحل حتى الآن؟ إذا كنت قد قمت بتشغيله من قبل والآن لن ينجح ، فهل يمكن أن يكون الأمر متعلقًا بتحديث بواسطة Microsoft؟ هذه أداة مفيدة حقًا لمهامي وتوفر لي الكثير من الوقت. ما الذي يمكن أن يتغير والذي من شأنه أن يتسبب في بدء Excel في عرض هذه الرسالة فجأة؟ لكوني جديدًا إلى حد ما على VBA ، ليس لدي أدنى فكرة عن المكان الذي أبدأ فيه تحليل المنطق. مع أطيب التحيات ، جريج. غلاسكو ، اسكتلندا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يبدو أن "المسار" محجوز الآن لذا استخدم أي اسم آخر واستبدل "المسار" ، على سبيل المثال "Mypath".
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ربما يجب عليك تغيير ReadOnly: = صحيح للقراءة فقط: = خطأ ، لقد فعلت ذلك وكان مفيدًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كنت أبحث عن شيء من هذا القبيل ولكني أردت التعليق. ألا يجب أن يكون اسم الملف "" غير ""؟ أم أنني أقرأ هذا الخطأ؟ ربما تفعل بينما NOT filename = "" مجرد فكرة ...
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أريد دمج كل الأوراق في ورقة واحدة حيث تكون العناوين مشتركة ... الرجاء المساعدة
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد حاولت استخدام وحدات الماكرو المذكورة أعلاه لتجميع بعض الملفات ، وللأسف لا توجد نتائج ... هل يمكن لأحدهم مساعدتي في التخلص من تجميع الملفات يدويًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي 112 ورقة إكسل أريد وضعها في ورقة واحدة دون نسخ ولصق. أرجوك أن تساعدني.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي مصنف يحتوي على حوالي 250 ورقة. أنا بحاجة إلى كوبين في ورقة واحدة. من فضلك أعطني حلا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جرب هذا ... لقد حصلت على هذا من موقع آخر ولكن لسوء الحظ لا أستطيع تذكر اسم السيدة ، لذا اعتذاري لعدم ذكرها ، يا سيئ "اجمع بين العديد من WB's في Excel: تذكر أن تغير MyPath =! Sub Merge2MultiSheets ( ) Dim wbDst كـ Workbook Dim wbSrc كـ Workbook Dim wsSrc As ورقة عمل باهتة MyPath كـ String Dim strFilename As String Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\\ MyPath \ etc \ etc ..." قم بتعيين wbDst = Workbooks.Add (xlWBATWorksheet) strFilename = Dir (MyPath & "\ *. xls"، vbNormal) إذا كان Len (strFilename) = 0 ثم قم بإنهاء Sub Do حتى strFilename = "" Set wbSrc = Workbooks.Open (اسم الملف: = MyPath & "\" & strFilename) اضبط wsSrc = wbSrc.Worksheets (1) wsSrc.Copy After: = wbDst.Worksheets (wbDst.Worksheets.Count) wbSrc.Close False strFilename = Dirst () Loop. حذف Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد أضفت الرمز إلى وحدة نمطية. أطلق على ملف Excel اسم Masterfile. أين أضيف في الكود. شكرا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لم يعمل أي من هؤلاء بالنسبة لي وأخيراً حصلت على هذا للعمل. لمعلوماتك أنا أستخدم 2010 'الوصف: يجمع كل الملفات في مجلد إلى ملف رئيسي. Sub MergeFiles () مسار خافت كسلسلة ، ThisWB كسلسلة ، lngFilecounter As Long Dim wbDest مثل مصنف ، shtDest كورقة عمل ، ws As ورقة عمل باهتة كسلسلة ، Wkb كملف مصنف خافت كنطاق ، الوجهة كمجموعة باهتة RowofCopySheet As IntegerofCopySheet = 2 'صف للبدء في الأوراق التي تنسخها من ThisWB = ActiveWorkbook.Name path = "mypath ....."' لا تنس تغيير هذا التطبيق .EnableEvents = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook .Sheets (1) Filename = Dir (path & "\ *. xls"، vbNormal) If Len (Filename) = 0 ثم Exit Sub Do until Filename = vbNullString If Not Filename = ThisWB ثم قم بتعيين Wkb = Workbooks.Open (اسم الملف: = المسار & "\" & اسم الملف) تعيين CopyRng = Wkb.Sheets (1) .Range (الخلايا (RowofCopySheet ، 1) ، الخلايا (ActiveSheet.UsedRange.Rows.Count ، ActiveSheet.UsedRange.Columns.Count)) تعيين الوجهة = shtDest.Range ("A" & shtDest.UsedRange.SpecialCells (xlCellTypeLastCell) .Row + 1) CopyRng.Copy Dest Wkb.Close False End If Filename = Dir () Loop Rang e ("A1"). حدد Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Done!" End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أقوم بتحرير هذا بحيث تبدأ البيانات المسحوبة دائمًا في الصف العلوي؟ إذا قمت بتشغيل هذا الرمز مرتين ، فإنه يضيف البيانات إلى نهاية بياناتي السابقة (من أول تشغيل للماكرو).
تم تصغير هذا التعليق بواسطة المشرف على الموقع
غيّر هذا السطر: RowofCopySheet = 2 إلى RowofCopySheet = 1
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لدي العديد من ملفات Excel (ورقة واحدة) مجلد مختلف مع حماية بكلمة مرور. أريد نهاية اليوم دمج جميع البيانات في ملف رئيسي واحد. في كل مرة أقوم بإدخال كلمة المرور وفتح الملف ونسخ اللصق إلى الملف الرئيسي .. يرجى مساعدتي برمز VBA لهذا من فضلك.
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL