كيفية نقل ملفات محددة من مجلد إلى آخر في Excel؟
لنفترض أن لدي مجلدًا كبيرًا يحتوي على أنواع مختلفة من الملفات، مثل docx و jpg و xlsx وما إلى ذلك كما هو موضح في لقطة الشاشة التالية. الآن، أريد نقل بعض أنواع الملفات المحددة من المجلد إلى مجلد جديد آخر دون نقلها واحدة تلو الأخرى يدويًا. هل لديك أي أفكار جيدة لحل هذه المهمة في Excel؟
نقل الملفات المحددة من مجلد إلى آخر باستخدام كود VBA
نقل الملفات المحددة من مجلد إلى آخر باستخدام كود VBA
لنقل جميع أنواع الملفات المحددة من مجلد إلى آخر بسرعة كبيرة كما تريد، قد يساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:
1. اضغط مع الاستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.
كود VBA: نقل أنواع محددة من الملفات من مجلد إلى آخر:
Sub MoveFiles()
'Updateby Extendoffice
Dim xFd As FileDialog
Dim xTFile As String
Dim xExtArr As Variant
Dim xExt As Variant
Dim xSPath As String
Dim xDPath As String
Dim xSFile As String
Dim xCount As Long
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Please select the original folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xFd.Title = "Please select the destination folder:"
If xFd.Show = -1 Then
xDPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xDPath, 1) <> "\" Then xDPath = xDPath + "\"
xExtArr = Array("*.xlsx*", "*.jpg")
For Each xExt In xExtArr
xTFile = Dir(xSPath & xExt)
Do While xTFile <> ""
xSFile = xSPath & xTFile
FileCopy xSFile, xDPath & xTFile
Kill xSFile
xTFile = Dir
xCount = xCount + 1
Loop
Next
MsgBox "Total number of moved files is: " & xCount, vbInformation, "Kutools for Excel"
End Sub
ملاحظة: في الكود أعلاه، "*.xlsx*" و "*.jpg" في النص البرمجي: xExtArr = Array("*.xlsx*", "*.jpg") هي أنواع الملفات التي تريد نقلها، يمكنك تغييرها إلى أخرى أو إضافة أنواع ملفات أخرى حسب الحاجة.
3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، ستظهر نافذة لتذكيرك باختيار المجلد الأصلي الذي تريد نقل الملفات منه، انظر لقطة الشاشة:
4. ثم انقر فوق موافق، ستظهر نافذة أخرى، يرجى اختيار المجلد الوجهة الذي تريد نقل الملفات إليه، انظر لقطة الشاشة:
5. وبعد ذلك انقر فوق موافق، ستظهر مربع تنبيه لتذكيرك بعدد الملفات التي تم نقلها، أغلقه، ويمكنك رؤية أن ملفات jpg و xlsx المحددة قد تم نقلها إلى المجلد المحدد، انظر لقطة الشاشة:
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد