＋设为首页 ＋添加到收藏夹
请看以下代码：
Private Sub CallExcel()
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = New Excel.Application
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("F:\Load.xlt")
Set xlSheet = xlBook.Worksheets(1)
Rows(6).Select
Selection.EntireRow.Insert
xlBook.SaveAs "F:\temp" & Rnd & ".xls"
xlBook.Close
xlApp.Quit
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing
End Sub
这应该是一个很简单的VB调用Excel的过程，当在同一个程序中第二次调用这个过程时，VB会在 Rows(6).Select 这句上提示出错：
实时错误 1004:对象 Rows 的方法 _Global 失败
当然无论这句换成什么别的操作Excel的句子都还是会出错。
第一次得到的文件是符合要求的，但是第二次却出错了，这是为什么，难道Excel还没有被完全释放？无论最后三句Set Nothing我怎么倒排，还是不行。
请各位赐教！
sitao@ynmail.com
建议用类来完成
我没有碰到过这样的问题，不过你放弃整行，挨个字段取，再试试！
程序应该没问题啊
sheet.cells(6,i)
