VB中调Excel时的错误

Question

此错误的出现主要是由于OLE对象没有置空的缘故，当在第一次运行时，利用CreateObject产生了对象，此时xlApp为Excel对象，故在第4行时不会出现错误，当第二次运行时，出于上次产生的对象没有置空，OLE进行产生对象时出于通讯时限的关系不能正确创建，故出错，正确程序应为：On local error resume next1:    Set xlApp = GetObject("excel.application")2:    if xlApp is Nothing Then3:    Set xlApp = CreateObject("excel.application")4:    end if5:    on local error goto 06:    Set xlBook = xlApp.Workbooks.Add
7:    Set xlSheet = xlBook.Worksheets(1)
    
8:    Set xlRange = xlSheet.Range(Cells(1, 1), Cells(10, 5))

Answer 1

很抱歉，回答不正确，我已查到原因，如下：第四行应为 set xlRange=xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(10,5))
谢谢您的回答，给您打10分吧！