■呼び出し元コード Sub 入力規制変更() Dim wb As Workbook Dim sh As Worksheet Dim str_Range As String Dim str_Path As String Dim str_ShName As String Dim str_Result As String str_Path = "C:\Users\デスクトップ\テスト1.xlsx" str_ShName = "Shee…

■以下コードでファイルを開かずにシート名をまとめて取得できる 呼び出し元コード 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