VB中调Excel时的错误

[agan]

VB6.0中的一段程序，第一遍运行正确，再次运行时在第四行报错：
运行时错误"1004":定义的应用程序或对象错误

1: Set xlApp = CreateObject("excel.application")
2: Set xlBook = xlApp.Workbooks.Add
3: Set xlSheet = xlBook.Worksheets(1)

4: Set xlRange = xlSheet.Range(Cells(1, 1), Cells(10, 5))

请问什么原因，如何解决？

[tanhl]

此错误的出现主要是由于OLE对象没有置空的缘故，当在第一次运行时，利用CreateObject产生了对象，此时xlApp为Excel对象，故在第4行时不会出现错误，当第二次运行时，出于上次产生的对象没有置空，OLE进行产生对象时出于通讯时限的关系不能正确创建，故出错，正确程序应为：

On local error resume next

1: Set xlApp = GetObject("excel.application")

2: if xlApp is Nothing Then

3: Set xlApp = CreateObject("excel.application")

4: end if

5: on local error goto 0

6: Set xlBook = xlApp.Workbooks.Add
7: Set xlSheet = xlBook.Worksheets(1)

8: Set xlRange = xlSheet.Range(Cells(1, 1), Cells(10, 5))

[agan]

很抱歉，回答不正确，我已查到原因，如下：

第四行应为 set xlRange=xlSheet.Range(xlSheet.Cells(1,1),xlSheet.Cells(10,5))
谢谢您的回答，给您打10分吧！