Hola amig@s. Necesito de vuestra ayuda:
Tengo una aplicación en VB desde la cual hago una exportación a Excel. La primera exportación como tal sale bien, el problema lo tengo al momento de cerrar la hoja de Excel, la aplicación se cierra(EXCEL), pero no el proceso resultante de la exportación "excel.exe" el cual se queda residente en memoria. Cómo puedo eliminarlo con código desde VB?.
De antemano, muchas gracias por vuestra ayuda.
Phantom º¿º
Incluyo el código de la exportación.
Private Sub mnuexp_Click()
Dim i As Long
Dim n As Long
lblinf.Visible = True
lblinf.Caption = "Se están exportando " & lstlib.ListItems.Count & " registros. Esta operación puede tardar unos minutos, por favor espere..."
pgbar.Visible = True
Screen.MousePointer = vbHourglass
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
Err.Clear
Set objExcel = CreateObject("Excel.Application")
If Err.Number Then
MsgBox "No se pudo abrir Excel"
End If
End If
Set objWorkbook = objExcel.Workbooks.Add
For i = 0 To lstlib.ListItems.Count
objWorkbook.ActiveSheet.Cells(i, 1).Value = lstlib.ListItems(i).Text
pgbar.Value = i * 100 / lstlib.ListItems.Count
For n = 0 To lstlib.ColumnHeaders.Count
lstlib.ColumnHeaders.Count = n
objWorkbook.ActiveSheet.Cells(i, n + 1).Value = lstlib.ListItems(i).ListSubItems(n).Text
Next n
Next i
Range("C1:C" & i).Select
Selection.NumberFormat = "#,##0.000 "
Range("A1").Activate
pgbar.Value = 0
pgbar.Visible = False
lblinf.Visible = False
Screen.MousePointer = Default
lblean.Caption = "Artículo " & lstlib.ListItems(lstlib.SelectedItem.Index).Text
stbbar.Panels(1).Text = "Familia: " + lstfamilias.ListItems(lstfamilias.SelectedItem.Index).ListSubItems(1) + " " + "Subfamilia: " + lstsub.ListItems(lstsub.SelectedItem.Index).ListSubItems(1) + "" _
+ " " + "Artículo: " + lstlib.ListItems(lstlib.SelectedItem.Index)
objExcel.Visible = True
Set objExcel = Nothing
objExcel.Application.Quit
End Sub
