唐草 @luz__blanca

Sub 任意のフォルダのexcelファイルのみ開く()
Dim フォルダ, ファイル名
Dim i

'このファイルと同階層にあるファイルを対象とする
フォルダ = ThisWorkbook.Path & "\"
ファイル名 = Dir(フォルダ & "*.xls")
Debug.Print ファイル名

Do While ファイル名 <> ""
If ファイル名 <> ThisWorkbook.Name Then
Workbooks.Open フォルダ & ファイル名

'ここにかましたい処理を記述
'ActiveWorkbook.Sheets(1).Cells(1, 1) = "test"
End If

i = i + 1

ファイル名 = Dir

Loop

End Sub
----------------------------------------------------------------------------------------
Sub 任意のファイル以外は閉じる()

Dim ブック

For Each ブック In Workbooks
If ブック.Name <> ThisWorkbook.Name Then
Workbooks(ブック.Name).Close savechanges:=True 'trueで保存して閉じる
End If

Next ブック

End Sub