EXCELの開いてるファイル名を一覧にしたい

質問

EXCEL で現在開いてるファイル名称を
一覧にしたいのですが。。。

回答No.1

noname#123709

一例として・・・。
このような感じでしょうか？
もう少しスマートな書き方もあると思いますが。
Sub test()
Dim i As Long
For i = 1 To Workbooks.Count
With Workbooks("Book1.xls").Sheets("sheet1")
.Range("A65536").End(xlUp).Offset(1).Value = Workbooks(i).Name
End With
Next i
End Sub

お礼

すみません。
自己解決できました。。。