Exportar a Excel

Buenas tardes: estoy transfiriendo datos desde Visual Basic 6 a una hoja de Excel con el siguiente código:

Public Function Inicio_Excel() As Boolean

Set objExcel = CreateObject("Excel.Application")
Set wblibro = objExcel.Workbooks.Open("C:\CARPETA 1\HOJA DE EXCEL.xls")

objExcel.Visible = True

End Function

Hago la transferencia de los datos a la hoja de Excel y luego guardo los cambios y cierro todo (objeto y libro) con este código:

objExcel.ActiveWorkbook.Close True
objExcel.Quit

Set wblibro = Nothing
Set objExcel = Nothing

El problema que se me presenta es que tengo que salir completamente del programa para volver a utilizar el código, porque si no lo hago me da problemas, como por ejemplo, que no ejecuta ninguno de los códigos de transferencia, solo abre la hoja de excel.
Incluso aún saliendo del programa ingreso en el administrador de Tareas y ahí puedo ver que el Excel todavía esta abierto.
Agradecería cualquier ayuda que me puedan dar.

Pruebalo de esta forma a ver como te va.

Dim ApExcel As Variant
Set ApExcel = CreateObject("Excel.application")
ApExcel.Visible = True
ApExcel.Workbooks.Open "C:\CARPETA 1\HOJA DE EXCEL.xls"
y para cerrar

Set ApExcel = Nothing

Espero te sirva

Cordialmente

Tarificadores locutorios - marketing de proximidad publicidad por bluetooth - citofonia virtual

Gracias cuello por tu ayuda pero tu código no me solucionó el problema

No se desde donde cierras los objetos, pero a mi enterder estas lineas deben ir dentro de la Funcion

objExcel.ActiveWorkbook.Close True
objExcel.Quit

Set wblibro = Nothing
Set objExcel = Nothing


Por lo tanto deberia ser

Public Function Inicio_Excel() As Boolean

Abrir Excel y hacerlo visible

Hcer la transferencia de los datos

Cerrar los objetos Excel

End Function

Hola Alonso: Lo hice en el mismo orden que me sugieres y me sigue dando el error, lo peor es que aún cerrando por completo el programa sigue estando abierto el Excel porque entro en el administrador de tareas y ahí puedo verlo.

Gracias por tu interés

Pues si así tampoco te funciona revisa tu código, posiblemente en alguna parte de las líneas correspondientes a “hacer la transferencia de datos” tengas alguna instrucción del tipo “Exit Function” o “Exit Sub” que impidan la continuación del código.

Si es así, pon las líneas para cerrar excel justo delante de la instrucción y listo

Este es mi código:

Dim objExcel As Excel.Application
Dim wblibro As Object

Set objExcel = CreateObject("Excel.Application")
Set wblibro = objExcel.Workbooks.Open("C:\MI HOJA DE EXCEL.xls")

objExcel.Visible = True

AQUÍ VIENE TODO EL CÓDIGO PARA TRANSFERIR LOS DATOS DESDE LA BASE
DE DATOS HASTA LA HOJA DE EXCEL (EN TODO EL PROCESO NO HAY EXIT FUNCTION O EXIT SUB)

objExcel.ActiveWorkbook.Close True
objExcel.Quit

Set wblibro = Nothing
Set objExcel = Nothing

Vamos a ver, usando el mismo código que tu usas, a mi me funciona perfectamente y si no compruébalo de esta manera.

Crea un proyecto nuevo
Agrega la referencia: Microsoft Excel ??.? Object Library
Pega este código

Código:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Private Sub Command1_Click()
 
Dim objExcel As Excel.Application
Dim wblibro As Object
 
Set objExcel = CreateObject("Excel.Application")
Set wblibro = objExcel.Workbooks.Open("C:\MI HOJA DE EXCEL.xls")
 
objExcel.Visible = True
 
Sleep 8000 'Efectua un retardo de 8 segundos
 
'AQUÍ VIENE TODO EL CÓDIGO PARA TRANSFERIR LOS DATOS DESDE LA BASE
'DE DATOS HASTA LA HOJA DE EXCEL (EN TODO EL PROCESO NO HAY EXIT FUNCTION O EXIT SUB)
 
objExcel.ActiveWorkbook.Close True
objExcel.Quit
 
Set wblibro = Nothing
Set objExcel = Nothing
    
End Sub

Aquí lo único que faltaría seria, EL CÓDIGO PARA TRANSFERIR LOS DATOS. Entonces ya me contaras donde esta el problema.