Question

vb 引用excel 进行操作,第一次运行没有问题,第二次执行时出现错误

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlsheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
set xlBook = xlApp.Workbooks.Open(App.Path & "\mb2.xls")
Set xlsheet = xlBook.Worksheets("Listado")
'......... 下面这段代码的问题,删掉这段代码,重复执行 没问题
If row_mb2 > 1 Then
xlsheet.Rows("1:5").Copy
For i = 1 To row_mb2 - 1
xlsheet.Rows(6 * i + 1 & ":" & 6 * i + 1).Select
ActiveSheet.Paste '这里报错
Next
'==========================
'.................................
xlApp.DisplayAlerts = False
str = Left(App.Path, Len(App.Path) - 12) & "\excel\MB2-" & Format(Date, "yyyymmdd") & Format(Time, "hhmmss") & ".xls"
xlBook.SaveAs str
Set xlsheet = Nothing
xlBook.Close True
Set xlBook = Nothing
xlApp.Quit
Set xlApp = Nothing

'第二次运行时出现错误 实时错误'91'
'对像变量或with变量未设置....
'为什么会第二次报错呢,要怎么解决, excel 2007

Answer 1

oleExcel.Quit '退出Excel

Set xlsApp = Nothing
Set xlsBook = Nothing
Set xlsSheet = Nothing
End Sub

改为：

oleExcel.Quit '退出Excel
Set xlsSheet = Nothing
Set xlsBook = Nothing
Set xlsApp = Nothing
End Sub