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

كيفية نسخ أو نقل الملفات من مجلد إلى آخر بناءً على قائمة في Excel؟ 

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

انسخ الملفات أو انقلها من مجلد إلى آخر استنادًا إلى قائمة في Excel برمز VBA


انسخ الملفات أو انقلها من مجلد إلى آخر استنادًا إلى قائمة في Excel برمز VBA

لنقل الملفات من مجلد إلى آخر بناءً على قائمة بأسماء الملفات ، قد يكون رمز VBA التالي مفيدًا لك ، يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على ALT + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمات البرمجية لـ VBA التالية في Module Window.

رمز فبا: نقل الملفات من مجلد إلى آخر بناءً على قائمة في إكسيل

Sub movefiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = " Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = " Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
            Kill xSPathStr & xVal
        End If
    Next
End Sub

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

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

5. ثم انقر فوق OK، استمر في تحديد مجلد الوجهة حيث تريد تحديد موقع الملفات في نافذة منبثقة أخرى ، انظر الصورة:

6. وأخيرا، انقر فوق OK لإغلاق النافذة ، والآن ، تم نقل الملفات إلى مجلد آخر حددته بناءً على أسماء الملفات في قائمة ورقة العمل ، انظر لقطة الشاشة:

ملاحظة: إذا كنت تريد فقط نسخ الملفات إلى مجلد آخر ، مع الاحتفاظ بالملفات الأصلية ، فالرجاء تطبيق رمز VBA أدناه:

رمز فبا: انسخ الملفات من مجلد إلى آخر بناءً على قائمة في Excel

Sub copyfiles()
'Updateby Extendoffice
    Dim xRg As Range, xCell As Range
    Dim xSFileDlg As FileDialog, xDFileDlg As FileDialog
    Dim xSPathStr As Variant, xDPathStr As Variant
    Dim xVal As String
    On Error Resume Next
    Set xRg = Application.InputBox("Please select the file names:", "KuTools For Excel", ActiveWindow.RangeSelection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xSFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xSFileDlg.Title = "Please select the original folder:"
    If xSFileDlg.Show <> -1 Then Exit Sub
    xSPathStr = xSFileDlg.SelectedItems.Item(1) & "\"
    Set xDFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
    xDFileDlg.Title = "Please select the destination folder:"
    If xDFileDlg.Show <> -1 Then Exit Sub
    xDPathStr = xDFileDlg.SelectedItems.Item(1) & "\"
    For Each xCell In xRg
        xVal = xCell.Value
        If TypeName(xVal) = "String" And xVal <> "" Then
            FileCopy xSPathStr & xVal, xDPathStr & xVal
        End If
    Next
End Sub

 


أفضل أدوات إنتاجية المكتب

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

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

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع

 

فرز التعليقات حسب
التعليقات (73)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه الماكرو الجميل ، إنه مفيد حقًا بالنسبة لي. لكنني بحاجة إلى بعض ماكرو التحديث. يستخدم هذا لنسخ الملفات من مجلد واحد إلى مجلد آخر. نحتاج إلى نسخ الملفات من المجلد والمجلد الفرعي إلى مجلد آخر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، في المجلد المصدر ، أرغب في تعيينه على أنه ثابت من خلية ، على سبيل المثال ، يجب معاملة المسار الذي تم إدخاله في خلية معينة ، مثل A1 ، على أنه المجلد المصدر. كيف نفعل ذلك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عصر exatamente isso que eu precisava !!!

Muito Obrigado !!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أوبريجادو !!!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
Você não tem noção de como me ajudou com esse script ... Muito bom !!! أوبريجادو !!!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اهلا ياجماعة،

كيف أحتاج إلى تغيير '' If TypeName (xVal) = "String" و xVal <> "ثم" لنقل الملفات بناءً على اسم الملف الجزئي.


يرجع الفضل في ذلك مسبقا،
مع أطيب التحيات ، P
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل اكتشفت يومًا كيفية استخدام اسم ملف جزئي؟ أحتاج ذلك أيضًا ...
بمعنى آخر ، إذا كان اسم الملف في قائمة أوراق Excel هو: OW4234TR_J19031.txt (أرغب فقط في إلقاء نظرة على الأحرف الخمسة الأخيرة "5" وهي عبارة عن تاريخ جولياني ونقل مجموعة من الملفات ... جوليان من 19031 حتى 19031 ..
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أود أيضًا أن أطلب تعديل اسم الملف الجزئي vba. هل حصلت من أي وقت مضى على رد؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا مهتم بنفس الحل بالضبط! هل حصل أي شخص على إجابة؟ لدي قائمة P / N في عمود ، وأريد جزءًا من التعليمات البرمجية الذي يظهر في مجلد رئيسي يحتوي على عدة مجلدات فرعية بعد الملفات مع الاسم المشار إليه في القائمة ، ولكن جزئيًا فقط ، لأنني لا أعرف امتداد الملف وفي كثير من الحالات بالنسبة إلى P / N واحد في القائمة ، لدي عدة ملفات متمايزة عن طريق وجود لاحقة لا تحتوي دائمًا على نفس النمط ، مثل xxxx_1 ، xxxx_2 ، xxx (1 ) ، xxxx [1] ، xxxx- (a) ، xxxx_ (b) .... ، لكني أحتاج إلى النسخ في المجلد الوجهة ، كل مثيلات الملفات التي تحتوي على اسمها P / N ، الرجاء المساعدة لا أقوم بهذه المهمة يدويًا لملفات 34078 التي يعثر عليها اليوم في المجلد الأصلي والمجلدات الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
كيفية جعل هذا الرمز نسخ الملفات من المجلدات الفرعية؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أي نصائح حول كيفية تعديل الكود لإضافة بطاقة عريضة؟ لدي أرشيف مئات من ملفات PDF التي تتكون من 10 أرقام ومستوى مراجعة (XXXXXXXXXX_REVA). يمكنني تصدير قائمة بأسماء الملفات بسهولة شديدة من نظام تخطيط موارد المؤسسات لدينا ، لكن القائمة تفتقد إلى المراجعة وامتداد الملف. هل هناك طريقة لإضافة بطاقات البدل في البرنامج لتجاهل كل شيء عدا الرقم المكون من 10 أرقام؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يمكنني الحصول على أي من الإصدارين للعمل في نظام التشغيل Windows 10.


أرجج
تم تصغير هذا التعليق بواسطة المشرف على الموقع
en el codigo que copia ¿como puedo colorear el nombre de la lista que no encuentre؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يعمل بشكل رائع - شكرا لك! ومع ذلك - >>> هل يمكن تعديل ذلك لاستخدام اسم ملف جزئي؟ إذا كان الأمر كذلك ، هل يمكنك المساعدة في توضيح كيف؟
بمعنى آخر ، إذا كان اسم الملف في قائمة أسماء الملفات في Excel هو: OW4234TR_J19031.txt (أرغب فقط في إلقاء نظرة على الأحرف الخمسة الأخيرة "5" وهي عبارة عن تاريخ جولياني ونقل مجموعة من الملفات ... ( أي شيء بتاريخ جوليان من 19031 حتى 19092) في مجلد مارس .. المهمة النهائية الشاملة هي تحديد أي ملفات لها تواريخ جوليان لشهر مارس ووضعها في مجلد مارس المالي "19120-مارس" ، أبريل في مجلد أبريل "06-أبريل" وما إلى ذلك ... لذا يمكن بعد ذلك إجراء التسويات المالية حسب الشهر .. TIA لأي مساعدة يمكن لأي شخص تقديمها لتسريع عملية البحث والانتقاء التي تستغرق وقتًا طويلاً. = -)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحباً ، هل تعرف كيفية البحث أيضًا في المجلد الفرعي؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل اكتشف أي شخص كيفية نسخ الملفات الموجودة في مجلدات فرعية متعددة من الدليل الرئيسي ، ولصقها في دليل مجلد آخر؟ هل تعمل طريقة النقل هذه أيضًا مع المجلدات الموجودة على محرك الأقراص C؟ أحاول نسخ الملفات من دليلنا الذي يتضمن مجلدات فرعية متعددة حيث يتم تخزين العديد من الملفات الموجودة في Microsoft Sharepoint ، إلى مجلد على محرك الأقراص C.

أي مساعدة سيكون محل تقدير كبير!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا !
تم تصغير هذا التعليق بواسطة المشرف على الموقع
buenas noches، alguien sabe que tengo que modificar para que me mueva carpetas y no solo archivos؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أي تحديث لكيفية البحث في المجلد والمجلدات الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا نصر
لنقل الملفات من المجلد والمجلدات الفرعية بناءً على قيم الخلية ، يرجى تطبيق رمز VBA أدناه:
من فضلك حاول ، آمل أن يساعدك!

ملفات فرعية ()
'تحديث بواسطة Extendoffice
خافت xRg كمدى ، xCell كمدى
Dim xSFileDlg كحوار ملف ، xDFileDlg كحوار ملف
خافت xSPathStr كمتغير ، xDPathStr كمتغير
خافت xVal كسلسلة
خافت fso ككائن ، folder1 ككائن
' خطأ في الصفحة، إذهب للتالي
تعيين xRg = Application.InputBox ("الرجاء تحديد أسماء الملفات:" ، "KuTools For Excel" ، ActiveWindow.RangeSelection.Address ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub
قم بتعيين xSFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xSFileDlg.Title = "الرجاء تحديد المجلد الأصلي:"
إذا كان xSFileDlg.Show <> -1 ثم اخرج من Sub
xSPathStr = xSFileDlg.SelectedItems.Item (1) & "\"
قم بتعيين xDFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xDFileDlg.Title = "الرجاء تحديد مجلد الوجهة:"
إذا كان xDFileDlg.Show <> -1 ثم اخرج من Sub
xDPathStr = xDFileDlg.SelectedItems.Item (1) & "\"
استدعاء sMoveFiles (xRg ، xSPathStr ، xDPathStr)
نهاية الفرعية

Sub sMoveFiles (xRg As Range ، xSPathStr كمتغير ، xDPathStr كمتغير)
خافت xCell كمجموعة
خافت xVal كسلسلة
خافت xFolder ككائن
خافت fso ككائن
خافت xF ككائن
خافت xStr كسلسلة
خافت xFS ككائن
خافت xI كعدد صحيح
على خطأ استئناف التالي
إذا كان Dir (xDPathStr، vbDirectory) = "" إذًا
مكدير (xDPathStr)
إنهاء حالة
بالنسبة إلى xI = 1 To xRg.Count
تعيين xCell = xRg.Item (xI)
xVal = xCell.Value
إذا كان TypeName (xVal) = "String" وليس (xVal = "") إذن
عند الخطأ ، انتقل إلى E1
إذا كان Dir (xSPathStr & xVal، 16) <> إفراغ ثم
FileCopy xSPathStr & xVal و xDPathStr & xVal
اقتل xSPathStr & xVal
إنهاء حالة
إنهاء حالة
E1:
التالي الحادي عشر
على خطأ استئناف التالي
تعيين fso = CreateObject ("Scripting.FileSystemObject")
تعيين xFS = fso.GetFolder (xSPathStr)
لكل xF في xFS
xStr = xDPathStr & "\" & xF.Name 'استبدال (xF.ShortPath، xSPathStr، xDPathStr)
استدعاء sMoveFiles (xRg، xF.ShortPath & "\"، xStr & "\")
إذا كان (CreateObject ("scripting.FileSystemObject"). GetFolder (xStr) .Files.Count = 0) _
و (CreateObject ("scripting.FileSystemObject"). GetFolder (xStr) .SubFolders.Count = 0) ثم
RmDir xStr
إنهاء حالة
التالى
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رائع شكرا لك
ولكن ماذا لو أردت فقط نسخ الملفات وعدم نقلها من المجلدات الفرعية فقط دون الحاجة إلى إنشاء مجلدات فرعية في مجلد الوجهة
ie
المجلد المصدر X: \\ الأصل
داخل الوالدين هو اختبار المجلدات الفرعية 1 (ملف أ) ، اختبار 2 (ملف ب) و اختبار 3 (ملف ج)
ثم المجلد الوجهة هو "Y: \\ الوجهة" يحتوي على جميع الملفات الثلاثة A و B و C بدون المجلدات الفرعية

اشكرك شكرا جزيلا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا نصر هل عرفت كيف تفعل هذا؟ أنا أبحث في حاجة مماثلة في الوقت الحالي.

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

ملفات نسخ فرعية ()
'تحديث بواسطة Extendoffice
خافت xRg كمدى ، xCell كمدى
Dim xSFileDlg كحوار ملف ، xDFileDlg كحوار ملف
خافت xSPathStr كمتغير ، xDPathStr كمتغير
خافت xVal كسلسلة
خافت fso ككائن ، folder1 ككائن
' خطأ في الصفحة، إذهب للتالي
تعيين xRg = Application.InputBox ("الرجاء تحديد أسماء الملفات:" ، "KuTools For Excel" ، ActiveWindow.RangeSelection.Address ، ، ، ، ، 8)
إذا كان xRg لا شيء ، فاخرج من Sub
قم بتعيين xSFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xSFileDlg.Title = "الرجاء تحديد المجلد الأصلي:"
إذا كان xSFileDlg.Show <> -1 ثم اخرج من Sub
xSPathStr = xSFileDlg.SelectedItems.Item (1) & "\"
قم بتعيين xDFileDlg = Application.FileDialog (msoFileDialogFolderPicker)
xDFileDlg.Title = "الرجاء تحديد مجلد الوجهة:"
إذا كان xDFileDlg.Show <> -1 ثم اخرج من Sub
xDPathStr = xDFileDlg.SelectedItems.Item (1) & "\"
استدعاء sCopyFiles (xRg ، xSPathStr ، xDPathStr)
نهاية الفرعية

Sub sCopyFiles (xRg As Range ، xSPathStr كمتغير ، xDPathStr كمتغير)
خافت xCell كمجموعة
خافت xVal كسلسلة
خافت xFolder ككائن
خافت fso ككائن
خافت xF ككائن
خافت xStr كسلسلة
خافت xFS ككائن
خافت xI كعدد صحيح
على خطأ استئناف التالي
إذا كان Dir (xDPathStr، vbDirectory) = "" إذًا
مكدير (xDPathStr)
إنهاء حالة
بالنسبة إلى xI = 1 To xRg.Count
تعيين xCell = xRg.Item (xI)
xVal = xCell.Value
إذا كان TypeName (xVal) = "String" وليس (xVal = "") إذن
عند الخطأ ، انتقل إلى E1
إذا كان Dir (xSPathStr & xVal، 16) <> إفراغ ثم
FileCopy xSPathStr & xVal و xDPathStr & xVal
إنهاء حالة
إنهاء حالة
E1:
التالي الحادي عشر
على خطأ استئناف التالي
تعيين fso = CreateObject ("Scripting.FileSystemObject")
تعيين xFS = fso.GetFolder (xSPathStr)
لكل xF في xFS
xStr = xDPathStr & "\" & xF.Name 'استبدال (xF.ShortPath، xSPathStr، xDPathStr)
اتصل بـ sCopyFiles (xRg، xF.ShortPath & "\"، xStr & "\")
إذا كان (CreateObject ("scripting.FileSystemObject"). GetFolder (xStr) .Files.Count = 0) _
و (CreateObject ("scripting.FileSystemObject"). GetFolder (xStr) .SubFolders.Count = 0) ثم
RmDir xStr
إنهاء حالة
التالى
نهاية الفرعية



ثم انسخ الأسطر التالية إلى مفكرة جديدة ثم احفظها باسم cmd

لـ / r ٪٪ a IN (*. *) تفعل (
نقل / y "٪٪ a" "٪ cd٪"
)
لـ / f "delims =" ٪٪ d in ('dir / s / b / ad ^ | Sort / r') قم بإجراء rd "٪٪ d"



تأكد من نسخ الكود كما هو 4 أسطر
أتمنى أن تساعد
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تأكد من وضع ملف cmd في نفس المجلد الذي تنسخ فيه الملفات والمجلدات الفرعية ثم انقر فوقه نقرًا مزدوجًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يمكنك تحقيق نفس النتيجة باستخدام VBA فقط إذا أضفت "قبل &" \ "& xF.Name في السطر أدناه.
لا يزال يتم نسخ هذا من المجلدات الفرعية ولكن يتم نسخه إلى مجلد مستوى واحد.

xStr = xDPathStr & "\" & xF.Name 'استبدال (xF.ShortPath، xSPathStr، xDPathStr)
يصبح
xStr = xDPathStr '& "\" & xF.Name' استبدال (xF.ShortPath ، xSPathStr ، xDPathStr)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا skyyang ، أريد نسخ أو نقل الملفات (.jpg ، .png) بأي تنسيق من المجلد ومجلداته الفرعية. يقوم البرنامج النصي أعلاه بنسخ المجلد بالكامل الذي يحتوي على الملف المتطابق
مع الشكر و التقدير،
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لست خبيرًا في VBA ولكني بحاجة إلى الوحدة النمطية الخاصة بك وقد فعلت ذلك كما طلبت ولكن لم يتم نسخ أي شيء من المجلد المصدر إلى المجلد الجديد. ولا يظهر أي خطأ
تم تصغير هذا التعليق بواسطة المشرف على الموقع
ماذا يحدث إذا كان الملف غير موجود في المجلد الأصلي؟
الكود يكسر

يجب أن يحتوي الرمز على سطر للانتقال إلى مرجع آخر إذا لم يكن موجودًا
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إذا كان المرجع غير موجود ، فاصل الشفرة
أي سطر يجب عليّ أن أقوم بقفزة خلال المرجع التالي دون توقف
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف يمكن تكييف هذا للصقه في قائمة مسارات ملفات متعددة بدلاً من مسار واحد في كل مرة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، سابين ،
هل تريد نسخ ولصق الملفات التي تأتي من عدة مجلدات أصلية بدلاً من مجلد واحد فقط؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نعم من فضلك
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

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