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

Tema cerradoExportar solo datos del Formulario a Excel

 Responder Responder Página  12>
Autor
Mensaje
Nasser09 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Abril/2017
Localización: México
Estado: Sin conexión
Puntos: 39
Enlace directo a este mensaje Tema: Exportar solo datos del Formulario a Excel
    Enviado: 24/Mayo/2017 a las 20:51
Buen día:

Tengo un formulario donde tengo 5 cuadros combinados para realizar filtros y todos funcionan bien, mi duda es ¿como puedo exportar solo la información filtrada del formulario a una hoja de excel?

De antemano muchas gracias!
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 4767
Enlace directo a este mensaje Enviado: 24/Mayo/2017 a las 21:53
Hola Nasser09
Puedes crear una consulta que tenga los filtros de los combos para que obtengas lo mismo que el formulario y esta (la consulta) lo exportas con el asistente.

PD: El maestro Emilio Sancha tiene unos magníficos ejemplos access - excel.

Saludos.
Arriba
Nasser09 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Abril/2017
Localización: México
Estado: Sin conexión
Puntos: 39
Enlace directo a este mensaje Enviado: 24/Mayo/2017 a las 22:19
Gracias por responde, pero me podrías detallar un poquito mas, soy nuevo en este tema!
Muchas Gracias

Publicado originalmente por emiliove emiliove escribió:

Hola Nasser09
Puedes crear una consulta que tenga los filtros de los combos para que obtengas lo mismo que el formulario y esta (la consulta) lo exportas con el asistente.

PD: El maestro Emilio Sancha tiene unos magníficos ejemplos access - excel.

Saludos.
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 9220
Enlace directo a este mensaje Enviado: 24/Mayo/2017 a las 22:35
Hola Nasser09, te has buscado los ejemplos en la web de Emilio Sancha ?

Te dejo el enlace de la pagina:

http://www.mvp-access.es/emilio/

Saludos !!
< x="0" y="0" width="99999" height="99999" id="hc_extension_off">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black_back">
OneDrive: http://sdrv.ms/Vk6eJd
Arriba
Nasser09 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Abril/2017
Localización: México
Estado: Sin conexión
Puntos: 39
Enlace directo a este mensaje Enviado: 24/Mayo/2017 a las 23:48
Miren este es codigo que tengo para exportar de un subformulario a Excel:
Private Sub Comando6_Click()
On Error GoTo Command44_Click_Err
Me.buscar.SetFocus
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
Dim xlapp As Object
Set xlapp = CreateObject("Excel.Application")
With xlapp
.Workbooks.Add
.ActiveSheet.PasteSpecial Format:="", Link:=False, DisplayAsIcon:= _
False
.Cells.Select
.Cells.EntireColumn.AutoFit
.Visible = True
.Range("A1").Select
 
End With
Command44_Click_Exit:
Exit Sub
Command44_Click_Err:
MsgBox Error$
Resume Command44_Click_Exit
End Sub

Si me abre el programa como tal y lo copia pero al momento de pegarlo en Excel marca el siguiente error:

Microsoft Access
Error en el método PasteSpecial de la clase Worksheet.

Me podrían ayudar por favor, muchas gracias!


Arriba
Nasser09 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 18/Abril/2017
Localización: México
Estado: Sin conexión
Puntos: 39
Enlace directo a este mensaje Enviado: 24/Mayo/2017 a las 23:49
Muchas gracias por responder, estoy buscando .

Editado para quitar cita innecesaria.


Editado por lbauluz - 30/Mayo/2017 a las 04:55
Arriba
marianoyana Ver desplegable
Habitual
Habitual


Unido: 12/Noviembre/2016
Localización: Huelva
Estado: Sin conexión
Puntos: 170
Enlace directo a este mensaje Enviado: 24/Mayo/2017 a las 23:50
Tengo en un formulario con un boton, el cual lo que me hace es exportarlo a un txt, y me parecía interesante con exportarlo a excel, pero la verdad que los ejemplos son bastante complicado para mi nivel.

Saludos
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 4767
Enlace directo a este mensaje Enviado: 25/Mayo/2017 a las 00:38
La idea es hacer una consulta que funcione con tus combos y te de los mismos resultados que estos una vez teniéndolo lo que sigue es muy fácil con el asistente.

Saludos.
Arriba
marianoyana Ver desplegable
Habitual
Habitual


Unido: 12/Noviembre/2016
Localización: Huelva
Estado: Sin conexión
Puntos: 170
Enlace directo a este mensaje Enviado: 25/Mayo/2017 a las 11:49
Continuando el tema he realizado un formulario con un boton el cual me exporta una consulta a excel, pero el problema es que me exporta toda la consulta, y lo que quería realizar es que me exportase solamente el registro en el que estoy.

El código del botón es el siguiente

Private Sub Exportar_Excel_Click()
'Declaramos las variables
Dim miExcel As String

'Cogemos la ruta del Excel, nombre de archivo y extensión (si está en el mismo directorio
'donde está la BD
miExcel = Application.CurrentProject.Path & "\ExportarExcel.xls"
'Si no, aquí tú deberías poner tu ruta al Excel, si no está en el directorio
'donde tienes la BD (Por ejemplo: miExcel = "c:\MisDatos\ExportarExcel.xls"


DoCmd.SetWarnings False
DoCmd.OpenQuery "Clientes_Consulta"
DoCmd.SetWarnings True

'Exportamos los datos a Excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Clientes_Consulta", miExcel

'Lanzamos un mensaje de aviso
MsgBox "Exportación realizada correctamente", vbInformation, "OK"
End Sub

Gracias
Arriba
fcoval Ver desplegable
Habitual
Habitual


Unido: 19/Enero/2013
Estado: Sin conexión
Puntos: 110
Enlace directo a este mensaje Enviado: 25/Mayo/2017 a las 14:02
x Nasser09
No es aconsejable mezclar en un hilo otras dudas
Mira esto que igual te ayuda...


Private Sub btnExportaExcel_Click()
'** Exportar datos de Subformulario a Hoja Excel


On Error GoTo btnExportaExcel_Click_Err


Me.[21 Subformulario tblMovimientos].SetFocus

DoCmd.RunCommand acCmdSelectAllRecords

DoCmd.RunCommand acCmdCopy

Dim xlapp As Object
Set xlapp = CreateObject("Excel.Application")

With xlapp
.Visible = True
.Workbooks.Add
.activesheet.Range("A1").Select
.activesheet.Range("A1").PasteSpecial Operation:=xlPasteSpecialOperationAdd
.Cells.Select
.Cells.EntireColumn.AutoFit
.Range("A1").Select
End With



btnExportaExcel_Click_Exit:
Exit Sub

btnExportaExcel_Click_Err:
MsgBox Error$
Resume btnExportaExcel_Click_Exit

End Sub
Arriba
marianoyana Ver desplegable
Habitual
Habitual


Unido: 12/Noviembre/2016
Localización: Huelva
Estado: Sin conexión
Puntos: 170
Enlace directo a este mensaje Enviado: 26/Mayo/2017 a las 10:43
Buenas, he hecho una pregunta del mismo tema por no abrir otro hilo que podría ser el mismo.

Me vuelven a salir todos los registros.
Arriba
marianoyana Ver desplegable
Habitual
Habitual


Unido: 12/Noviembre/2016
Localización: Huelva
Estado: Sin conexión
Puntos: 170
Enlace directo a este mensaje Enviado: 26/Mayo/2017 a las 10:53
He visto la sentencia tarde , simplemente he cambiado acCmdSelectAllRecords por acCmdSelectRecord.

Gracias
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 9220
Enlace directo a este mensaje Enviado: 26/Mayo/2017 a las 16:10
Hola Nasser, con unas ligeras modificaciones te funcionará tu código:

Private Sub BtnExportarExcel_Click()
On Error GoTo BtnExportarExcel_Click_Err

Dim xlapp As Object
Set xlapp = CreateObject("Excel.Application")
With xlapp
   .Workbooks.Add
   .Worksheets("Hoja1").Range("A1").Select
   .ActiveCell.CopyFromRecordset Me.[El Subformulario].Form.RecordsetClone
   .Cells.Select
   .Cells.EntireColumn.AutoFit
   .Visible = True
   '.Range("A1").Select
   .Worksheets("Hoja1").Range("A1").Select
End With

BtnExportarExcel_Click_Exit:
   Exit Sub
BtnExportarExcel_Click_Err:
   MsgBox Error$
   Resume BtnExportarExcel_Click_Exit
End Sub

Ya nos cuentas...

Saludos !!
< x="0" y="0" width="99999" height="99999" id="hc_extension_off">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black_back">
OneDrive: http://sdrv.ms/Vk6eJd
Arriba
marianoyana Ver desplegable
Habitual
Habitual


Unido: 12/Noviembre/2016
Localización: Huelva
Estado: Sin conexión
Puntos: 170
Enlace directo a este mensaje Enviado: 27/Mayo/2017 a las 01:05
Mexman70, tú código me da error me pone que no "El objeto no admite esta propiedad o método".

Otra cosa el archivo de excel cuano se abre no están las columnas redimensionadas.

Saludos
Arriba
MexMan70 Ver desplegable
Colaborador
Colaborador


Unido: 17/Julio/2007
Localización: DarkSide
Estado: Sin conexión
Puntos: 9220
Enlace directo a este mensaje Enviado: 27/Mayo/2017 a las 15:20
Hola Marianoyana, pregunto:

Como tienes montado tu base (Suite completa =Word, Excel, etc.= o solo RunTime) ? 
Que version de Access tienes ?
Puedes pegar el código que tienes ?

Saludos !
< x="0" y="0" width="99999" height="99999" id="hc_extension_off">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast">< x="0" y="0" width="99999" height="99999" id="hc_extension_highcontrast_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_grayscale_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_back">< x="0" y="0" width="99999" height="99999" id="hc_extension_invert_grayscale">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black">< x="0" y="0" width="99999" height="99999" id="hc_extension_yellow_on_black_back">
OneDrive: http://sdrv.ms/Vk6eJd
Arriba
 Responder Responder Página  12>
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable