Rename file

[خالد الشاعر]

السادة الخبراء

كل عام وانتم بخير

لى طلب هل ممكن ان ينفذ بالكود

الفكرة هى عندى فولدر به ملفات اكسل اريد عمل Rename لهذه الملفات

مثال : عندى فولدر به سبع ملفات

سوف اضيف ملف اكسل و اكتب فى عمود A الاسم القديم و فى عمود B الاسم الجديد

و بالكود يغير اسم الملف الذى بالفوردر

هل هذا ممكن ....

و جزاكم الله كل خير

[رجب جاويش]

أخى الفاضل

جرب هذا الكود

Sub Ragab()

Dim test As New FileSystemObject

Dim test_Folder As Folder

Dim test_File As File

'=====================================================

LR = Cells(Rows.Count, 1).End(xlUp).Row

Set test_Folder = test.GetFolder(ThisWorkbook.Path)

'=====================================================

For Each test_File In test_Folder.Files

For i = 2 To LR

	 If test_File.Name <> ThisWorkbook.Name Then

		 If test_File.Name = Cells(i, 1) & ".xls" Then

			 test_File.Name = Replace(test_File.Name, test_File.Name, Cells(i, 2) & ".xls")

		 End If

	 End If

Next i

Next test_File

Set test = Nothing

End Sub

ولكى يعمل الكود نفذ الآتى لمرة واحدة فقط

ادخل على محرر الأكواد ALT + F11

ثم من قائمة Tools نختار References ثم نضع علامة صح أمام الإختيار

Microsoft Scripting Runtime

New.rar

[خالد الشاعر]

استاذ رجب

كود ممتاز تسم ايدك

جزاك الله كل خير

لى سؤال ما وظيفة Microsoft Scripting Runtime

نصيحة افضل مكان فى مصر اتعلم الفيجول VBA

وكل عام وانتم بخير

تم تعديل أغسطس 20, 2012 بواسطه khhanna

[رجب جاويش]

أخى الفاضل

هى مكتبة من مكتبات الكائنات

وهي واحدة من أهم المكتبات المفيدة والعملية لأسترداد المعلومات المتعلقة بمحركات الأقراص و المجلدات والملفات وكذلك معرفة سمات معينة من محركات الأقراص والمجلدات والملفات حيث يمكن التحكم في هذه الكائنات

والله أعلم