Dosya Adını Hücreye Yazdırma Hakkında Yardım

[sserhat]

Merhaba,

Makro ile dosyanın adını istediğim hücreye yazdırabiliyorum.

Sheets("Sayfa1").Range("R2").Value = ThisWorkbook.Name ile fakat ben aynı makroyu yaklaşık 10 farklı dosyada direk çalıştırıyorum. Yani makrolu dosya açıkken diğer dosyalarda makroyu çalıştır deyip makroyu seçiyorum. Diğer dosyalara tek tek makroyu eklemiyorum.

Bu durumda sayfa adını ekleme kodu ilk dosyanın adını ekliyor...Her dosyada makroyu çalıştır dediğimde sadece o dosyanın adını yazmanın bir yolu var mı acaba?

 

[sserhat]

Tamam sorunu çözdüm, ActiveWorkbook.name olarak değiştirince sorun düzeldi...Teşekkürler

 

[sserhat]

Şunu sorayım elimdeki makroyu aynı klasör içindeki tüm dosyalarda otomatik olarak makro kodu ile çalıştırmak istiyorum bu mümkün mü?

 

[sserhat]

Tamamdır hallettim arkadaşlar, Başka bir dosyada düzenleme yaptım gayet güzel çalışıyor...Başkalarına faydalı olması açısından paylaşayım. Yeni bir modüle bu kodu yapıştırın, modüle1.(modüle adı) olan kısmı kendi kodunuz olarak değiştirin. Kolay gelsin
Sub dosyalar()
On Error Resume Next
Dim aktif As Workbook, sh As Worksheet, a As Long
Dim klasor As Object, evn As Object, xls As Object
Set sh = ThisWorkbook.Worksheets("Sheet1")
Set evn = CreateObject("scripting.filesystemobject")
Set klasor = evn.getfolder(ThisWorkbook.Path)
For Each xls In klasor.Files
If LCase(Mid(xls.shortname, InStr(1, xls.shortname, ".", 1) + 1)) = "xls" Then
If xls.Name <> "ÖRNEK DOSYA.xls" Then
Workbooks.Open (xls.Path)
Set aktif = ActiveWorkbook
Module1.Bilgileri_listele
ActiveWorkbook.Save
ActiveWorkbook.Close

End If
End If
Next xls
a = Empty
Set sh = Nothing
Set evn = Nothing
Set aktif = Nothing
Set klasor = Nothing
End Sub