vb excel编程有关问题

vb excel编程问题。
sheetOut.Range(Cells(1, 1), Cells(1, 7)).Merge
这行代码在第一次运行时，正常。

运行第二次时，报错，“应用程序定义或对象定义错误”，怎么回事？

  Dim excelOut As New Excel.Application
  Dim workbookOut As New Excel.Workbook
  Dim sheetOut As New Excel.Worksheet

  excelOut.Visible = True
  excelOut.SheetsInNewWorkbook = 1
  Set workbookOut = excelOut.Workbooks.Add
  Set sheetOut = workbookOut.Worksheets(1)

  sheetOut.Range(Cells(1, 1), Cells(1, 7)).Merge

完毕。


------解决方案--------------------
可能在释放中有问题，两个可能不太一样吧
------解决方案--------------------
sheetOut.Range(Cells(1, 1), Cells(1, 7)).Merge

改成

sheetOut.Range(sheetOut.Cells(1, 1), sheetOut.Cells(1, 7)).Merge
------解决方案--------------------
Dim excelOut As New Excel.Application
Dim workbookOut As New Excel.Workbook
Dim sheetOut As New Excel.Worksheet

excelOut.Visible = True
excelOut.SheetsInNewWorkbook = 1
Set workbookOut = excelOut.Workbooks.Add
Set sheetOut = workbookOut.Worksheets(1)

sheetOut.Range(Cells(1, 1), Cells(1, 7)).Merge

第一次运行焦点存在 第二次运行sheet失去焦点 Cells(1, 7) 与 sheetOut指向出现错误
 
------解决方案--------------------
sheetOut.Range(sheetOut.Cells(1, 1), sheetOut.Cells(1, 7)).Merge