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