No se cierran los objetos Excel
Buenas,
ya no sé que probar para que no me deje procesos abiertos de Excel. En la aplicación tengo que procesar muchos archivos excel, y todos me los deja abiertos. Te mando el código por si puedes echarme una mano...
Dim apexcel As Object
Dim resultadoSSDD As Integer
Dim resultadoMF As Integer
Dim textoSSDD As String
Dim textoMF As String
Dim arrayTexto(7) As String
apexcel = CreateObject("excel.application")
Try
apexcel.Workbooks.Open(carpeta & codigo.Trim())
apexcel.ActiveWorkbook.Sheets("SSDD").Activate()
apexcel.ActiveWorkbook.Sheets("MAINFRAME").Activate()
'Ejecutamos las dos macros
apexcel.Run("ValidarSSDD")
apexcel.Run("ValidarMAINFRAME")
'leemos los resultados
AQUÍ OBTENGO RESULTADOS DE LAS CELDAS DESPUÉS DE ELECUTAR LAS MACROS...
PARA SALIR HAGO:
'Se guarda y cierra la hoja excel
apexcel.Workbooks(1).Save()
apexcel.Workbooks(1).Close()
apexcel.quit()
apexcel = DBNull.Value
'apexcel = Nothing
return arrayTexto
End Function
¿Qué es lo que hago mal?
Gracias!
ya no sé que probar para que no me deje procesos abiertos de Excel. En la aplicación tengo que procesar muchos archivos excel, y todos me los deja abiertos. Te mando el código por si puedes echarme una mano...
Dim apexcel As Object
Dim resultadoSSDD As Integer
Dim resultadoMF As Integer
Dim textoSSDD As String
Dim textoMF As String
Dim arrayTexto(7) As String
apexcel = CreateObject("excel.application")
Try
apexcel.Workbooks.Open(carpeta & codigo.Trim())
apexcel.ActiveWorkbook.Sheets("SSDD").Activate()
apexcel.ActiveWorkbook.Sheets("MAINFRAME").Activate()
'Ejecutamos las dos macros
apexcel.Run("ValidarSSDD")
apexcel.Run("ValidarMAINFRAME")
'leemos los resultados
AQUÍ OBTENGO RESULTADOS DE LAS CELDAS DESPUÉS DE ELECUTAR LAS MACROS...
PARA SALIR HAGO:
'Se guarda y cierra la hoja excel
apexcel.Workbooks(1).Save()
apexcel.Workbooks(1).Close()
apexcel.quit()
apexcel = DBNull.Value
'apexcel = Nothing
return arrayTexto
End Function
¿Qué es lo que hago mal?
Gracias!
