ブック名をエクセルに貼り付けたい

質問

開いているエクセルのファイルのブック名を、同様に開いているエクセルファイル「book1」の「sheet1」の「A1セル」から縦に順番に貼り付けたいのですが、どのようなマクロの記述になるでしょうか？
簡単にできると思ったのにできません。誰かお助けを・・・

回答No.3

imogasi · ベストアンサー

Sub test01()
i = 1
Dim wb As Workbook
For Each wb In Workbooks
MsgBox wb.Name
Workbooks("Book1").Worksheets("Sheet1").Cells(i, "A") = wb.Name
i = i + 1
Next
End Sub
でどうですか。

お礼

完璧でした。
ありがとうございます。

回答No.2

BLUEPIXY

Public Sub Books()
Dim book As Workbook
Dim i As Long

i = 0
For Each book In Application.Workbooks
Application.Workbooks("Book1").Sheets("Sheet1").Range("A1").Offset(i).Value = book.Name
i = i + 1
Next
End Sub

回答No.1

mshr1962

ブック内のSheet名の一覧取得なら公開されてるVBAがあります。
これを応用でできませんか？
http://www.eonet.ne.jp/~gomame/excel/excel_midasi.htm
「８．マクロの小技」の「３．任意のExcelファイルを開いてSheet名を取得」