请问 为什么打开两个excel文件退出时有时要报内存不能读？

Question

点击按钮（Click） 打开两个EXCEL文件的工作薄后有时要报内存不能读
 如果是编译成执行文件那么退出程序时有时要报内存不能读
 如果是只打开一个工作薄那么程序没有问题。
 
 全部原代码如下    
  Dim xlApp As Excel.Application
Dim xlFirst As Excel.Workbook
Dim xlSecond As Excel.Workbook
Dim TableSheet1 As Excel.Worksheet
Dim TableSheet2 As Excel.Worksheet
Private Sub  Click()
 Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象
 Set xlFirst = xlApp.Workbooks.Open("d:\1.xls") '打开已经存在的EXCEL工件簿文件
 Set xlSecond = xlApp.Workbooks.Open("d:\2.xls")
 Set TableSheet1 = xlFirst.Worksheets("Sheet1") '设置第一个工作表名称
 Set TableSheet2 = xlSecond.Worksheets("Sheet1")  '设置第二个工作表名称
    xlFirst.Close (True) '关闭工作簿
    xlSecond.Close (True)
    xlApp.Quit '结束EXCEL对象
End Sub

Answer 1

声明两个Excel.Application的变量吧。一个App对应一个Workbook.