Sub get_file_sheet() Dim fn(10000) 'フォルダ内ファイル名 Dim sn(10000, 2) 'フォルダ内エクセルファイル名、シート名 Dim i As Long, j As Long, k As Long, x As Long Dim mypath As String 'フォルダパス Dim ext As String '拡張子検索変数 'フォルダ…