用vb对excel访问如果程序如下:Option Explicit
Dim xlsapp As New Excel.ApplicationPrivate Sub Command1_Click()
'Set xlsapp = Excel.Application
Set xlsapp = CreateObject("Excel.Application")
xlsapp.Workbooks.Open ("K:\job\TEST.XLS")
xlsapp.Visible = True
End SubPrivate Sub Command2_Click()
xlsapp.Workbooks.Close
xlsapp.Quit
Set xlsapp = Nothing
End Sub这样就可以释放进程,而如果加人对excel的访问后,就不能释放了,如:Option Explicit
Dim xlsapp As New Excel.ApplicationPrivate Sub Command1_Click()
'Set xlsapp = Excel.Application
Set xlsapp = CreateObject("Excel.Application")
xlsapp.Workbooks.Open ("K:\job\TEST.XLS")
xlsapp.Visible = True
xlsapp.Cells.Find(What:="WORD第1题", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
End SubPrivate Sub Command2_Click()
xlsapp.Workbooks.Close
xlsapp.Quit
Set xlsapp = Nothing
End Sub这样,怎也释放不了,再次打开是,虽然能打开,但不能看得到。请高手慷慨赐教如何完全释放进程。
Dim xlsapp As New Excel.ApplicationPrivate Sub Command1_Click()
'Set xlsapp = Excel.Application
Set xlsapp = CreateObject("Excel.Application")
xlsapp.Workbooks.Open ("K:\job\TEST.XLS")
xlsapp.Visible = True
End SubPrivate Sub Command2_Click()
xlsapp.Workbooks.Close
xlsapp.Quit
Set xlsapp = Nothing
End Sub这样就可以释放进程,而如果加人对excel的访问后,就不能释放了,如:Option Explicit
Dim xlsapp As New Excel.ApplicationPrivate Sub Command1_Click()
'Set xlsapp = Excel.Application
Set xlsapp = CreateObject("Excel.Application")
xlsapp.Workbooks.Open ("K:\job\TEST.XLS")
xlsapp.Visible = True
xlsapp.Cells.Find(What:="WORD第1题", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
End SubPrivate Sub Command2_Click()
xlsapp.Workbooks.Close
xlsapp.Quit
Set xlsapp = Nothing
End Sub这样,怎也释放不了,再次打开是,虽然能打开,但不能看得到。请高手慷慨赐教如何完全释放进程。
xlsapp.workbooks.close true
xlBook.Close (True) '关闭工作簿
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
xlBook.save
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象