Exceldeki Kodlar ile JPG isimlendirmek? Acil lütfen.

[Sewimce]

bir klasörde yaklaşık 600 görsel var, Görsel isimleri 60x40-075, 76 vs vs diye devam ediyor ama ben bunları Exceldeki Kod karşılıklarındaki Barkod numaraları ile değiştirmek istiyorum. Kopyala yapıştır yapmadan daha hızlı bir yöntemi varmıdır?... Acil bilgilendirirseniz çok sevinirim.

barkod --------------- Kodu
12521B6EA45DB - ---60x40-075
940678FF57C71 ----660x40-076
3591DF98BA4AB----660x40-077
75B56D01E436A ----60x40-078

 

[Orion1]

Buyurun.
Döngüye girerek hepsini değiştirebilirsiniz.

Sub addegistir59()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.GetFile(ThisWorkbook.Path & "\eski_ad.jpg").Move ThisWorkbook.Path & "\yeni_ad.jpg"
Set FSO = Nothing
End Sub

 

[Sewimce]

Buyurun.
Döngüye girerek hepsini değiştirebilirsiniz.

Sub addegistir59()
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.GetFile(ThisWorkbook.Path & "\eski_ad.jpg").Move ThisWorkbook.Path & "\yeni_ad.jpg"
Set FSO = Nothing
End Sub

İlginiz için Çok teşekkürler ama şöyle bir durum varki Ben Excelden çok anlamam sadece Exceldeki kodları Kopyala/yapıştır yöntemi ile göselleri kodluyorum, Şu an bu kodu nasıl kullanmam gerektiğini bilmiyorum :/ Detaylı anlatmanız mümkünmü? Çabuk kavrarım

 

[Orion1]

Resimlerin uzantıları nedir?Jpg mi,bmp mi,png mi?

 

[Sewimce]

Resimlerin uzantıları nedir?Jpg mi,bmp mi,png mi?

Jpg

Görsel klasörü ve Excell görüntüsü örneğide aşağıda.

Görsellerin isminin Exceldeki Barkodlar ile değişmesini sağlamak istiyorum.