lidiana
18 de Abril del 2006

Hola,

Tengo un problema al cerrar una aplicacion de excel desde visual basic; no la consigo cerrar del todo, hasta que no cierro la aplicación. Lo que hago es lo siguiente:

Dim ApExcel As excel.Application
Dim libroEx As excel.Workbook
Dim hojaEx As excel.Worksheet

Sub Cargar_listado()
'abrir hoja excel
Set ApExcel = New excel.Application
Set libroEx = excel.Workbooks.Open(Directorio & "plantillaListado_comunidades.xls")
Set hojaEx = excel.ActiveSheet
‘cargo datos en la hoja

‘cierro la aplicacion
libroEx.Close
ApExcel.Quit
Set hojaEx = Nothing
Set libroEx = Nothing
Set ApExcel = Nothing
End Sub

Pero si despues de doy al administrador de tareas, me encuentro la aplicación del excel abierta.
Si cierro desde el administrador el excel sin cerrar la aplicación, y vuelvo a cargar la hoja excel me da error (462, en tiempo de ejecución: El equipo servidor remoto no existe o no está disponible)
Si no cierro la aplicación de VB y vuelvo a cargar la hoja excel se me queda oculta, dejando otro exel abierto de forma oculta.
O si sin cerrar la aplicación VB abro el excel, no me muestra el libro.

¿Me puede alguien ayudar?

Gracias de antemano

Delabuer
18 de Abril del 2006

Prueba con lo siguiente ! -...

' Declara variables de objeto para Microsoft
' Excel, el libro de trabajo de la aplicación y
' los objetos de hoja de cálculo.
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

' Asigna referencias de objeto a las variables.
' Utiliza métodos Add para crear nuevos objetos de
' libro de trabajo y hoja de cálculo.
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add

' Cierra el libro de trabajo
xlBook.Close
' Cierra Microsoft Excel con el método Quit.
xlApp.Quit

' Libera los objetos.
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing