excel资源获取释放

        dim xlapp     as application
        dim xlbook     as excel.workbook
        dim xlsheet     as excel.worksheet
        on error goto errorhandle:
        set xlapp = getobject（"", "excel.application")        '获取当前运行的excel,如果没有则新建一个
        xlapp.visible = true
        set xlbook = xlapp.workbooks.add
        set xlsheet = xlbook.activesheet               '获取当前正在运行的活动工作表
        'set   xlsheet   =   xlapp.application.activesheet
        rows（"1:1").select
        selection.insert shift:=xldown
        range（"a1:m1").select
        selection.merge
        range（"a1:m1").select
        activecell.formular1c1 = "xxxxx工资汇总表"     '要写入的标题
        '还有要写入的内容省略
finally_exit:
        xlapp.quit
        set xlsheet = nothing
        set xlbook = nothing
        set xlapp = nothing
        exit sub
errorhandle:
        msgbox "执行错误:   " & err.description
        resume finally_exit