Printable View
Hi there, i´m new in coding VB, and just started in a Corp programing an application, that between other things, should be able to send data from a grid to a new Excel Book, but, after everything's done, the Excel is still running in the task manager, even after I set the var_Excel to Nothing... I've been trying to resolve this one since Monday, and my time is realy running out. I'de apreciate some help, urgent. Thanks.
FlipOver
private xlapp as Excel.Application
private xlWorkbooks as Excel.Workbooks
private xlWbook as Excel.Workbook
private xlSheet as Excel.Worksheet
private Sub Command1_Click()
Dim intI as Integer
set xlapp = new Excel.Application
xlapp.Visible = true
set xlWorkbooks = xlapp.Workbooks
xlWorkbooks.Open "c:\myxls.xls" 'your excel
for Each xlWbook In xlWorkbooks
for intI = 0 to xlWbook.Worksheets.Count - 1
set xlSheet = xlWbook.Worksheets(intI + 1)
Debug.print xlSheet.Name 'you will find more than one sheet here!
set xlSheet = nothing
next intI
next
'this will close everything
set xlWbook = nothing
xlWorkbooks.Close
set xlWorkbooks = nothing
xlapp.Quit
set xlapp = nothing
End Sub
Iouri Boutchkine
[email protected]