You close it explicitly. I found this:
Public Sub SaveFig()
On Error GoTo Checkerror
objXLApp.Quit
Set newChart = Nothing
Set objResultsSheet =
Nothing
Set objChartSheet = Nothing
Set
objXLBook = Nothing
Set objXLApp = Nothing
Exit Sub
[Non-text portions of this message have been removed]
__._,_.___
MARKETPLACE
.
__,_._,___
Nenhum comentário:
Postar um comentário