Klasördeki dosyaları, excelden adlandırabilirmiyiz.

[EKREM1661]

çok değerli uzman arkadaşlar..! selamlar ve iyi akşamlar..

olacağını hiç de zannetmiyorum, fakat en azından olamıyacağını bilmek için soruyorum..

Bir klasör içerisinde bir çok dosya olduğunu varsayalım..
Bir excel sayfasında "A" sütunu boyunca yazılı isimlerle,
bahsettiğimiz klasör içerisindeki dosyaları sırasıyla adlandırabilirmiyiz..

 

[Zeki Gürsoy]

Dosya isimlendirmek zor değildir. Ancak sorunuzu biraz daha açın.

 

[EKREM1661]

sayın hocam..!
örnek vererek ifade edersem;
bir klasör içerisinde çok sayıda dosya olsun (bu dosyalar excel kitapları veya başka formatlı dosyada olabilir)

diyelimki "adlandır" isimli bir excel kitabı içerisinde "Sayfa1" de "A" sütununda:
A2 de "A"
A3 de "B"
A4 de "c"
A5 de "D"
.
.
.
.
devam eden isim listemiz var..
bu isimleri, klasörde yer alan diğer dosyalara (kitaplara) yeniden adlandır ile yapıştır yaparsak,
klasördeki diğer dosyalar mevcut sıraya göre A,B,C,D...diye adlanmış olacak..
Böyle bir şey yapmanın makro ile mümkünatı var mı?

Anlıyacağınız; resim dosyalarını toplu olarak adlandıran programlar gibi..

 

[Zeki Gürsoy]

Önce ayrı bir klasörde test edin.

Sub Adlandir()
Dim Dosya As String, Klasor As String, i As Integer
 
Klasor = "D:\Klasor\"
Dosya = Dir(Klasor)
 
i = 1
While Dosya <> ""
    i = i + 1
    
    Name Klasor & Dosya As Klasor & _
        Cells(i, 1) & Right$(Dosya, 4)
        
    Dosya = Dir
    
Wend
 
End Sub

 

[EKREM1661]

Sn hocam..! tek kelimeyle harikasınız.. bu çalışma çok yerde kolaylık sağlıyacak.. resim ve ses dosyası gibi farklı dosyalara da toplu adlandırma yapılabilir.

Test maksadıyla; "D\Klasor" içerisinde değişik türde 12 dosyanın isimlerini değiştirmek için;

yukarıdaki kodu "_Makro" isimli bir excel dosyasından çalıştırarak,
belirtilen isim listesini, sırayla tüm dosyalara adlandır olarak yapıştırdı..

Ancak, makro amacına ulaşmasına rağmen, sonlanmadı ve makronun

Name Klasor & Dosya As Klasor & _
Cells(i, 1) & Right$(Dosya, 4)

dizesinde takıldı. (ihtimal bir şeyi gözden kaçırıyorum)

 

[Zeki Gürsoy]

Eğer "_Makro.xls" dosyası da "D:\Klasör\" içinde ise, kendi ismini de değiştirmeye çalıştığından hata verecektir.

Atlanmasını istemek yerine "_Makrom.xls" yi başka bir konuma taşıyıp çalıştırın.

 

[EKREM1661]

hocam..! aynen öyle..
dediğiniz gibi imiş, makro çalıştırılan uygulama dosyası klasörün dışında olması gerekiyor..

teşekkürlerimi ifade ile sağlık ve başarı diliyorum..

 

[Zeki Gürsoy]

Rica ederim. İyi çalışmalar..

 

[baydeniro]

Çok teşekkürler sayın Zeki Gürsoy.