'ファイル名.xlsを開く-----------------------------------

保存先 = "C:\"

strXLSFILE = 保存先 & "ファイル名.xls"

Workbooks.Open strXLSFILE

'ファイル名.xlsを閉じる-----------------------------------

Workbooks("ファイル名.xls").Close (False)