Sub エクセルファイルを閉じる()

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

End Sub