Makro ile dosya adı değiştirme

[mücahitayan]

Merhaba arkadaşlar

c:\a.xls adında bir dosyam var.

Commandbutton1'i tıkladığım zaman

dosya adı c:\b.xls olabilir mi?

Bunun mümkünü var mıdır?

Teşekkür ederim.

 

[mustafaine1]

Sub deneme()
Dim eskiad As String
Dim yeniad As String
eskiad = _
"C:\a.xlsx"
yeniad = _
"C:\b.xlsx"
Name eskiad As yeniad
End Sub

 

[mücahitayan]

Sevgili mustafa aslan

benim dosyam dışında c: Sürücümde bulunan bir dosyanın adını makro ile değiştirebilir miyim?

 

[mustafaine1]

2 numarali mesajimi yeniden duzenledim..

 

[mücahitayan]

çok teşekkür ederim. Saolun

 

[mustafaine1]

Rica ederim, kolay gelsin..

 

[tactless]

Üstad debug veriyor. Name eskiad as yeniad kısmında?

Nedendir? Tşkler.