Crear un botón Exportar Informe a Excel
Necesitaría crear un botón en un informe que me permita exportar este informa e Excel.
2 Respuestas
José Antonio: Mi sugerencia es que lo hagas cuando pides el informe, con el >>
DoCmd.TransferSpreadsheet acExport, ...
Mis saludos >> Jacinto
Si me puedes ayudar y decirme como tengo que hacerlo, en estoy estoy muy pez. Te lo agradecería.
José Antonio: Veo que Francesc te da una buena solución, pero si quere ver distintas metodologías por si quieres utilizar otra, creo que el ejemplo de Emilio Sancha, del cual te facilito los detalles, te hará ver el proceso completo con diferentes alternativas.
Web/Página:
http://www.mvp-access.es/emilio/Access/Descargas.asp
Ejemplo 221 del 04/14, con el Título >>
En este caso vamos a realizar una comparativa de diversos métodos para Exportar datos desde Access hasta Excel.
Lo miras y si en alguna parte tienes dificultades, me comentas y trabajamos esa parte.
Mis saludos >> Jacinto
¡Gracias!
Por nada José Antonio: Si vas de acuerdo y valoras la respuesta, perfecto.
Mis saludos >> Jacinto
Yo haría lo siguiente en el botón poner esto:
Dim RutaExport As String, LlbreExport As String, Fitxer As String, Consulta As String
RutaExport = "" ' Ruta de donde quieres poner el excel
LlibreExport = "Archivo.xls"
Fitxero = RutaExport & LlibreExport
Consulta = "" ' Lo que quieres exportar
If Application.Version = "12.0" Then
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, Consulta, Fitxero
Else
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, Consulta, Fitxero
End If
HOla amigo. Yo soy nuevo en esto también, pero te comparto mi experiencia:Private Sub GastosExcel_Click() 'Botón exporta a excel la consulta de origen Informe GastosDoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "InformeGastos", "C:\Mis registros\Informe Gastos.xls", TrueMsgBox "Exportación a MS Excel exitosa.", vbApplicationModal + vbInformation + vbOKOnly, "Tú le informa"End Subsoló cambia "InformeGastos" por tu nombre, y cabía la dirección: "C... etc"Cuéntanos - Antonio Malonso