Excelファイルを開いて閉じる

Excelファイルを読み取り専用で開いて、保存せずに閉じます。ワークブックを取得して操作します。
開いて閉じるまでの間に処理を入れるなどしてください。

' Excelファイルを開いて閉じる
Sub ExcelOpenFile(filename As String)
	Dim wb As Workbook
	Dim ws As Worksheet

	If IsFileExists(filename) = True Then   ' ファイルの有無を確認
		Set wb = Workbooks.Open(filename)   ' ブックを開く

		' ----------------
		' ここにExcelの内容を読む処理を入れる


		' ブックを閉じる(保存しない)
		wb.Close SaveChanges:=False
		Set wb = Nothing
	Else
		MsgBox filename & "は存在しません", vbExclamation
	End If
End Sub

以下の関数を使用していますので、リンクから関数をコピーします。
・ファイルの有無を確認する IsFileExists()