كيف يمكن نقل ملفات محددة من مجلد إلى آخر في Excel؟
لديك مجلد كبير يحتوي على أنواع مختلفة من الملفات، مثل DOCX وJPG وXLSX وغيرها، كما هو موضح في لقطة الشاشة التالية. الآن، تريد نقل ملفات نوعٍ معين من هذا المجلد إلى مجلد جديد آخر دون الحاجة إلى نقلها يدويًّا واحدة تلو الأخرى. هل لديك أي أفكار فعّالة لإنجاز هذه المهمة باستخدام Excel؟
نقل ملفات محددة من مجلد إلى مجلد آخر باستخدام كود VBA
نقل ملفات محددة من مجلد إلى مجلد آخر باستخدام كود VBA
لنقل جميع نوع الملف المحددة من مجلد إلى آخر بأسرع ما تريد، قد يساعدك كود VBA التالي، يُرجى اتباع الخطوات التالية:
1. اضغط مع الاستمرار علىALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقر علىInsert > Module، ثم الصق الكود التالي في نافذةModule.
كود 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. ثم انقر علىOK، وستظهر نافذة أخرى. يُرجى اختيار مجلد الوجهة الذي تريد نقل الملفات إليه. انظر لقطة الشاشة:
5. ثم انقر علىOK، وستظهر نافذة تنبيه لتذكيرك بعدد الملفات التي تم نقلها. أغلقها، وسترى أن ملفات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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل