自定义函数:

Sub CloseXlsFile1(FileName As String, SaveChange As Boolean)
    Dim xlapp  As Object
    Dim wrk    As Object
    Set xlapp = GetObject(, "excel.application")
    Set wrk = GetObject(FileName)
    wrk.Close
    xlapp.Quit
    Set xlapp = Nothing

End Sub

Call CloseXlsFile1("c:\a.xls", True)

,True为保存关闭

,False为不保存关闭