Excel में विशिष्ट फ़ाइलों को एक फ़ोल्डर से दूसरे फ़ोल्डर में कैसे ले जाएँ?
मान लीजिए, मेरे पास एक बड़ा फ़ोल्डर है जिसमें विभिन्न प्रकार की फ़ाइलें हैं, जैसे कि docx, jpg, xlsx, आदि जैसा कि स्क्रीनशॉट में दिखाया गया है। अब, मैं कुछ विशिष्ट फ़ाइल प्रकारों को एक-एक करके मैन्युअल रूप से स्थानांतरित किए बिना फ़ोल्डर से दूसरे नए फ़ोल्डर में ले जाना चाहता हूं। क्या आपके पास एक्सेल में इस कार्य को हल करने के लिए कोई अच्छा विचार है?
VBA कोड के साथ विशिष्ट फ़ाइलों को एक फ़ोल्डर से दूसरे फ़ोल्डर में ले जाएँ
VBA कोड के साथ विशिष्ट फ़ाइलों को एक फ़ोल्डर से दूसरे फ़ोल्डर में ले जाएँ
सभी विशिष्ट प्रकार की फ़ाइलों को एक फ़ोल्डर से दूसरे फ़ोल्डर में जितनी जल्दी चाहें स्थानांतरित करने के लिए, निम्नलिखित वीबीए कोड आपकी मदद कर सकता है, कृपया ऐसा करें:
1. बरक़रार रखना ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और निम्नलिखित कोड को इसमें पेस्ट करें मॉड्यूल खिड़की।
वीबीए कोड: विशिष्ट प्रकार की फ़ाइलों को एक फ़ोल्डर से दूसरे फ़ोल्डर में ले जाएं:
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 = ऐरे("*.xlsx*", "*.jpg") वे फ़ाइल प्रकार हैं जिन्हें आप स्थानांतरित करना चाहते हैं, आप उन्हें अन्य में बदल सकते हैं या अपनी आवश्यकता के अनुसार अन्य फ़ाइल प्रकार जोड़ सकते हैं।
3। फिर दबायें F5 इस कोड को चलाने के लिए कुंजी, और एक विंडो आपको उस मूल फ़ोल्डर का चयन करने की याद दिलाने के लिए उभरी जहां से आप फ़ाइलों को स्थानांतरित करना चाहते हैं, स्क्रीनशॉट देखें:
4। तब दबायें OK, और एक अन्य विंडो पॉप अप होती है, कृपया गंतव्य फ़ोल्डर चुनें जहां आप फ़ाइलों को स्थानांतरित करना चाहते हैं, स्क्रीनशॉट देखें:
5। और फिर क्लिक करें OK, एक प्रॉम्प्ट बॉक्स आपको याद दिलाने के लिए पॉप अप होगा कि कितनी फ़ाइलें स्थानांतरित की गई हैं, इसे बंद करें, और आप देख सकते हैं कि विशिष्ट jpg, xlsx फ़ाइलें निर्दिष्ट फ़ोल्डर में स्थानांतरित कर दी गई हैं, स्क्रीनशॉट देखें:
सर्वोत्तम कार्यालय उत्पादकता उपकरण
एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है। वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...
ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है
- Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
- नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
- आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!