** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Pasar datos a Excel
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoPasar datos a Excel

 Responder Responder
Autor
Mensaje
Juan Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 26/Mayo/2006
Localización: España
Estado: Sin conexión
Puntos: 927
Enlace directo a este mensaje Tema: Pasar datos a Excel
    Enviado: 31/Octubre/2020 a las 08:24
Buenos días a tod@s
Opero con Access 2003, ya se que en versiones más modernas el planteamiento que voy a hacer lo tiene incorporado.
quiero que los datos de una consulta pasen a una hoja de cálculo Excel. Cuando hago la ejecución me sale el error:

Error de compilación: No se ha definido el tipo definido por el usuario

Se para en la primera línea del siguiente código:

Private Sub Comando24_Click()  

    Dim xls As Excel.Application, _

    strArchivo As String

     Dim strMes As String

    Dim strNombreDocumento As String 

strMes = MonthName(CByte(Forms!FACTURACIONES!txtMes))

strNombreDocumento = MonthName(txtMes)

strArchivo = Application.CurrentProject.Path & "\Datos Esteban" 

DoCmd.TransferSpreadsheet acExport, 8, "FacCampTiendaBarAnual Esteban", CurrentProject.Path & "\Datos Esteban", True, strNombreDocumento

 ' creo un objeto Excel

Set xls = CreateObject("Excel.Application")

 ' abro la hoja Excel

xls.Workbooks.Open strArchivo

 xls.Visible = True 

End Sub

 Necesito ayuda

Gracias


jj
Arriba
prga Ver desplegable
Moderador
Moderador


Unido: 16/Noviembre/2004
Localización: España
Estado: Sin conexión
Puntos: 3381
Enlace directo a este mensaje Enviado: 31/Octubre/2020 a las 11:09
Hola.
Se supone que en referencias está marcada la librería de excel.
Si no es así, caben 2 posibilidades, marcarla o poner dim xls as object
Espero que ayude a resolver el problema.
Ya comentas.
Un saludo a todos
Arriba
Juan Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 26/Mayo/2006
Localización: España
Estado: Sin conexión
Puntos: 927
Enlace directo a este mensaje Enviado: 31/Octubre/2020 a las 12:55
Hola prga
No tenía marcad la referencia de Excel
Ahora funciona
Muchas gracias
Nota: Por mi parte podéis quitar el hilo
Saludos
Juan
jj
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable