求助！运行时错误'7',内存溢出，解决办法。

Question

128KB?
faint
128MB吧
这个问题我觉得我已经在您的其他贴子里回答了啊。
用错误捕捉    Dim OExcel As ObjectOn Error GoTo Excel_err
    Set OExcel = CreateObject("Excel.Application")
    Set OExcel = Nothing...
您的生成EXCEL报表的其他代码
...Excel_err:
    MsgBox "可能您的计算机中没有安装 EXCEL 或者 EXCEL 无法运行，无法生成报表。", vbCritical, "错误"

Answer 1

是不是出现死循环了，注意要释放对该应用程序和电子数据表的引用
   Set OExceL = GetObject(, "Excel.Application")
   If ExcelWasNotRunning = True Then
      OExceL.Application.Quit
   End If
   Set OExcel = Nothing  

Answer 2

注：
Dim OExcel As Object   '用于存放Microsoft Excel 引用的变量。
Dim ExcelWasNotRunning As Boolean   '用于最后释放的标记。
                            '测试 Microsoft Excel 的副本是否在运行。