■以下コードでファイルを開かずにシート名をまとめて取得できる 呼び出し元コード Sub 対象ファイルのシート名を取得() Dim arrSheetName() As String Dim strPath As String Dim i As Long strPath = "C:\Users\デスクトップ\test.xlsx" arrSheetName = fnc…

■参考URL https://www.moug.net/tech/exvba/0150129.html