Açık Excel dosyalarının sayısını bulmak

[MCAPOWER]

Selamlar,
Bir kaç excel dosya ile çalışma yapıyorum ve o anda kaç tane excel açık ise
sayısını bulan ve adlarını veren bir makroya ihtiyacım var.
Yardımcı olabilirseniz çok memnun olurum.
Syg,

 

[uzmanamele]

Selamlar,
Bir kaç excel dosya ile çalışma yapıyorum ve o anda kaç tane excel açık ise
sayısını bulan ve adlarını veren bir makroya ihtiyacım var.
Yardımcı olabilirseniz çok memnun olurum.
Syg,

Merhaba

Bunu deneyiniz.

Sub d()
For i = 1 To Application.Workbooks.Count
Cells(i, 1) = Application.Workbooks(i).Name
Next
End Sub

Veya

Sub dd()
sayi = Application.Workbooks.Count
For i = 1 To sayi
adlar = adlar & Chr(10) & Application.Workbooks(i).Name
Next
MsgBox "Dosya Sayısı: " & sayi & Chr(10) & adlar
End Sub

 

[MCAPOWER]

Hocam çok teşekkür ediyorum.
Syg,

Merhaba

Bunu deneyiniz.

Sub d()
For i = 1 To Application.Workbooks.Count
Cells(i, 1) = Application.Workbooks(i).Name
Next
End Sub

Veya

Sub dd()
sayi = Application.Workbooks.Count
For i = 1 To sayi
adlar = adlar & Chr(10) & Application.Workbooks(i).Name
Next
MsgBox "Dosya Sayısı: " & sayi & Chr(10) & adlar
End Sub