** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - exportar a excel más de 65000 registros
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoexportar a excel más de 65000 registros

 Responder Responder
Autor
Mensaje
Elenam_80 Ver desplegable
Habitual
Habitual


Unido: 04/Mayo/2015
Localización: Madrid
Estado: Sin conexión
Puntos: 107
Enlace directo a este mensaje Tema: exportar a excel más de 65000 registros
    Enviado: 05/Abril/2017 a las 17:47
Hola,

Quiero exportar a excel más de 65000 registros desde un formulario de consulta. Y, además, poder decidir al hacerlo en qué ruta quiero guardar el archivo.

He probado con estos dos códigos en el botón del formulario, pero no consigo solucionarlo. Quizás tengo que añadir algo más?

Alguna sugerencia?

Gracias!

Botón prueba 1:

DoCmd.OutputTo acOutputTable, "Listado1", acFormatXLSX, , True

Botón prueba 2:

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "Listado1", Listado1.xlsx, True


Ele
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5140
Enlace directo a este mensaje Enviado: 05/Abril/2017 a las 21:41
Hola!

En un módulo pones el siguiente código para abrir y seleccionar fichero:

'--------------------------------------------------------------------------------------------
'Función para seleccionar una carpeta
'--------------------------------------------------------------------------------------------
Public Function SeleccionFichero() As String
Dim fDialog As FileDialog, result As Integer
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
     
'Optional: FileDialog properties
fDialog.AllowMultiSelect = False
fDialog.Title = "Select a file"
fDialog.InitialFileName = "C:\"
'Optional: Add filters
fDialog.Filters.Clear
fDialog.Filters.Add "Excel files", "*.xlsx"
fDialog.Filters.Add "All files", "*.*"

'Show the dialog. -1 means success!
If fDialog.Show = -1 Then
   SeleccionFichero = fDialog.SelectedItems(1)
End If

End Function


luego en tu formulario en un botón de comando pones:

Dim miRuta As String

miRuta = SeleccionFichero()

If miRuta = "" Then Exit Sub

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel7, "Listado1", miRuta, True


Suerte.

Editado por mounir - 05/Abril/2017 a las 21:44
Un Saludo.
Arriba
Elenam_80 Ver desplegable
Habitual
Habitual


Unido: 04/Mayo/2015
Localización: Madrid
Estado: Sin conexión
Puntos: 107
Enlace directo a este mensaje Enviado: 06/Abril/2017 a las 09:29
Hola, Mounir!

Mil gracias!

Hice todos los pasos: crear la función, poner el código en el botón y también he añadido la referencia Microsoft Office 15.0 Object Library porque al principio me salía el error: Error de compilación:No se ha definido el tipo definido por el usuario, lo solucioné con esa referencia.

Al hacer click en el botón, me aparece la ventana para poner el nombre del fichero, pero no me da la opción de guardar, me da la opción de abrir el fichero. Si en esa carpeta hay un fichero excel que coincide con el nombre que yo escribo, entonces se guarda la descarga en una pestaña de ese fichero. Pero si es un nombre de un fichero que no existe en ese directorio, dice que el archivo no existe.

Quizás hay algo que se me pasó y no encuentro donde diga "guardar como"?

Gracias!!
Ele
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 5140
Enlace directo a este mensaje Enviado: 06/Abril/2017 a las 10:11
Hola!

Para que funcione tiene que haber un archivo Excel previamente craedo para que le selecciones.
Un Saludo.
Arriba
Elenam_80 Ver desplegable
Habitual
Habitual


Unido: 04/Mayo/2015
Localización: Madrid
Estado: Sin conexión
Puntos: 107
Enlace directo a este mensaje Enviado: 06/Abril/2017 a las 10:14
ok, gracias ;).
Ele
Arriba
Elenam_80 Ver desplegable
Habitual
Habitual


Unido: 04/Mayo/2015
Localización: Madrid
Estado: Sin conexión
Puntos: 107
Enlace directo a este mensaje Enviado: 05/Octubre/2017 a las 09:38
Este tema se puede cerrar. Está solucionado. Gracias
Ele
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable