xlApp.Quit
Set xlApp=Nothing

解决方案 »

  1.   

    Close 方法
                    关闭指定对象。对于 Workbooks 集合使用语法 1;对于 Window 对象和 Workbook 对象则使用语法 2。语法 1expression.Close语法 2expression.Close(SaveChanges, FileName, RouteWorkbook)expression   必选,该表达式返回“应用于”列表中的某个对象。SaveChanges    Variant 类型,可选。如果工作簿没有改变则忽略此参数;如果工作簿发生了改变并且在另外的窗口中也打开了该工作簿,则仍然忽略此参数;如果工作簿发生了改变并且没有在另外的窗口中打开,则此参数将指定是否在工作簿中保存所发生的更改。取值与操作如下表所示:取值 操作 
    True 将改变保存到工作簿。如果该工作簿尚未命名,则使用 FileName 所指定的名称。如果省略 FileName 参数,则要求用户输入文件名。 
    False 不将改变保存到此文件。 
    省略 显示一个对话框,要求用户决定是否保存所作的更改。 
    FileName   Variant 类型,可选。以此文件名保存所作的更改。RouteWorkbook   Variant 类型,可选。如果指定工作簿不需要传送给下一个收件人(没有传送名单或已经传送),则忽略该参数。否则, Microsoft Excel 将按照下表所示处理传送。取值 意义 
    True 将工作簿传送给下一个收信人。 
    False 将工作簿传送给下一个收信人。 
    省略 显示一个对话框,要求用户决定是否传送此工作簿。 
    说明从 Visual Basic 关闭工作簿并不运行该工作簿中的任何自动关闭宏。而使用 RunAutoMacros 方法可运行自动关闭宏。
    使用close关闭工作簿,依你的意思选择是否保存,
    然后用RptApp的quit方法,
    最后set nothing所有对象
      

  2.   

    ....RptBook.Workbooks.Close        
    RptApp.Application.Quit
    Set RptApp= Nothing
    ....