'释放对象,关闭excel
    Set tempxlSheet = Nothing
    
    tempxlWorkbook.Close
    Set tempxlWorkbook = Nothing    tempxlApp.Quit
    Set tempxlApp = Nothing

解决方案 »

  1.   

    这个问题我已经解决,不知谁还有更好的解决的方法?
    现在程序运行没问题,只是还没有从内存中完全释放到,当用excel打开这个模板时,这些记录还在里面
      

  2.   

    If (Not (AppExl Is Nothing)) Then
          If (AppExl.Workbooks.Count > 0) Then
            AppExl.Workbooks(1).Close SaveChanges:=False
          End If
          AppExl.Quit
          Set AppExl = Nothing
       End If
      

  3.   

    你应该用 tempxlSheet.Range,而不要用Range,这样释放时就可以全部释放完。你既用tempxlSheet.Range又用Range,一次不能释放完。Range好象是全局性的