【マクロ】開いているブックの名前を取得した後、名前をセルに１つづつ入力するには？

【やりたい事】
今、開いているExcelの名前を取得
A1セルからA10セルに、ファイル名前を入力したい

以下コードでは、ファイル名の一覧を１つのセルに入力してしまいます
ファイル名１つにつき、１つのセルへ入力をしたいです

ご存じの方、宜しくお願いします


【コード】
Sub GetAllWorkbookNames()
Dim wb As Workbook
Dim wbNames As String
wbNames = vbCrLf


For Each wb In Workbooks

wbNames = wbNames & wb.Name & vbCrLf

Next wb

MsgBox wbNames

Range("a1") = wbNames

End Sub

No.2 回答者： amerikaumare 回答日時： 2025/04/18 16:27

>これは無料版でも、こんな事

できますよ.

Google Geminiでもいいと思います
ただし　中国のAI「ディープシーク」は止めた方がいいらしいです。（情報が盗まれる？？）

No.1 回答者： amerikaumare 回答日時： 2025/04/18 06:37

こういう質問こそ　人工頭脳AIに聞きましょう。

ChatGPTに聞いてみたら回答が来ました。　以下はその回答です。

以下のようにコードを修正すれば、開いているExcelファイル名を1つずつA1～A10セルに縦に並べて入力できます。

Sub GetAllWorkbookNames()
Dim wb As Workbook
Dim i As Integer
i = 1
' 開いている全てのブックを順に処理
For Each wb In Workbooks
' A1から順に縦に入力
Range("A" & i).Value = wb.Name
i = i + 1
Next wb
End Sub

補足
・Workbooksは現在開いているすべてのブックを指します。
・Range("A" & i)を使うことで、セルA1〜A10に順にファイル名を入れていきます。
・ブック数が10個を超えるとA11以降にも表示されます。 制限したい場合はIf i > 10 Then Exit Forなど追加すればOKです。

必要に応じて調整もできますので、他にやりたいことがあれば気軽にどうぞ！

この回答へのお礼

ありがとうございます。チャットGPTすごいですね
うまくできました
これは無料版でも、こんな事できるんですか？

お礼日時：2025/04/18 08:04