Excelマクロに関する質問です。以下のコードの書き方で、複数のブック名を取り出すことは可能でしょうか？ “`VBA Sub 取込() Dim i As Long Dim arr() As String ‘コードの内容省略 End Sub “`

はい、可能です。以下のようにして複数のブック名を取り出すことができます。

“`VBA
Sub 取込()
Dim i As Long
Dim arr() As String

‘複数のブック名を取得
ReDim arr(1 To Workbooks.Count)
For i = 1 To Workbooks.Count
arr(i) = Workbooks(i).Name
Next i

‘取得したブック名を表示
For i = 1 To Workbooks.Count
MsgBox arr(i)
Next i
End Sub
“`

上記のコードでは、`arr()`という配列を使用して、`Workbooks.Count`の数だけループ処理を行い、各ブックの名前を`arr()`に格納しています。その後、取得したブック名を表示するために`MsgBox`を使用しています。

なお、`ReDim`文は必要に応じて配列のサイズを再定義するために使用されます。