Programación General > Visual Basic 6.0 e inferiores

 Terminar Proceso Residente En Memoria

(1/1)

Jeremy:
:lol: 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.

--- Código: Text --- Private Sub mnuexp_Click()Dim i As LongDim n As Long lblinf.Visible = Truelblinf.Caption = "Se están exportando " & lstlib.ListItems.Count & " registros. Esta operación puede tardar unos minutos, por favor espere..."pgbar.Visible = True Screen.MousePointer = vbHourglassOn Error Resume NextSet 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 IfEnd 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 nNext iRange("C1:C" & i).SelectSelection.NumberFormat = "#,##0.000 "Range("A1").Activatepgbar.Value = 0pgbar.Visible = Falselblinf.Visible = FalseScreen.MousePointer = Defaultlblean.Caption = "Artículo " & lstlib.ListItems(lstlib.SelectedItem.Index).Textstbbar.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 = TrueSet objExcel = Nothing objExcel.Application.Quit End Sub   

Navegación

[0] Índice de Mensajes