एक्सेल वीबीए

Question

के साथ फ़ाइलों का नाम बदलना मुझे यहां क्या करना है। मेरे पास एक्सेल शीट में ये दो कॉलम हैं। फ़ाइल नाम के साथ। पहले कॉलम में वर्तमान फ़ाइल नाम होता है और दूसरे कॉलम में ऐसे नाम होते हैं जिन्हें मैं फ़ाइलों का नाम बदलना चाहता हूं। मुझे इसका उपयोग करने की आवश्यकता है क्योंकि नाम बदलने में कोई पैटर्न नहीं है। उदाहरण के लिए, नीचे दिए गए फ़ाइलों का सेट हो सकता है ...

Current Name > Rename To 
--------------------------- 
Abc.jpg  > Dinner.jpg 

Xyz.jpg  > Driving.jpg 

123.jpg  > Sunset.jpg 

मैं इसे VBA में यह करने के लिए आसान होना चाहिए पता है, लेकिन वास्तव में यकीन है कि कैसे नहीं। कोई भी सहायताकाफी प्रशंसनीय होगी।

Answer 1

मुझे लगता है कि आप फ़ाइलों का नाम बदलने के लिए Name फ़ंक्शन का उपयोग करके ऐसा कुछ कर सकते हैं, हालांकि, आपको शायद यह सुनिश्चित करने की आवश्यकता होगी कि 2 कॉलम में पूर्ण फ़ाइल पथ है, यानी "सी: \ Temp \ ABC.jpg "

Dim Source As Range 
Dim OldFile As String 
Dim NewFile As String 

Set Source = Cells(1, 1).CurrentRegion 

For Row = 1 To Source.Rows.Count 
    OldFile = ActiveSheet.Cells(Row, 1) 
    NewFile = ActiveSheet.Cells(Row, 2) 

    ' rename files 
    Name OldFile As Newfile 

Next