Unir bases access y transferir todo a excel

Hola, te molesto para saber si me podrías ayudar con un problema que tengo y no sé como resolver. La cuestión es así: el sistema lo utilizo para hacer carga de datos remotos, hay varias máquinas dedicadas a cargar. Cada una de estas envía un archivo con tablas vinculadas a la bd principal. Las bases que se envían con la información tienen 3 tablas: "Profesionales", "Lugar_atencion" y "beneficiarios". Mi idea sería que de todas las bases que lleguen (serán unas 5 o 6) pueda conformar una sola base con las mismas tres tablas.
La siguiente búsqueda, sería poder exportar el contenido de esas 3 tablas a una planilla excel. Mediante consulta, unifico las tablas, lo que me falta es saber como poder exportar mediante un botón esa consulta a una planilla excel. Lo que hice pero no me funcionó fue hacer una macro con acción transferirHojadeCalculo, pero no pude hacer que se exportara a una planilla excel.
Espero haber sido claro, agradezco desde ya tu tiempo.
Saludos!

1 respuesta

Respuesta
1
Lo de unir las tablas creo que lo tienes claro código con el que puedes exportar a una plantilla de excel.
Copias y pegas este código en un modulo y podrás exportar los datos a excel
Nota: antes debes activar la Librería Microsoft Excel X. ("X es la version de excel")
Espero te sirva, me avisas o si no te mando un ejemplo...
Para este caso la plantilla de excel le doy el nombre PLANTILLA CIRCU55.XLS
Public Function ExportarExcel()
Dim rst As DAO.Recordset, _
    strSQL As String, _
    strLibro As String, _
    xls As Object ' Excel.Application
' abro una instancia de Excel
On Error GoTo cmdExportar1_Click_TratamientoErrores
If Len(Dir(CurrentProject.Path & "\Plantillas\PLANTILLA CIRCU55.XLS")) <> 0 Then
If Len(Dir(CurrentProject.Path & "\PLANTILLA CIRCU55.xls")) > 0 Then Kill CurrentProject.Path & "\PLANTILLA CIRCU55.xls"
FileCopy CurrentProject.Path & "\Plantillas\PLANTILLA CIRCU55.xls", CurrentProject.Path & "\PLANTILLA CIRCU55.xls"
End If
Set xls = CreateObject("Excel.Application")
' con ella abro el libro ExportaraExcel
strLibro = CurrentProject.Path & "\PLANTILLA CIRCU55.xls"
xls.Workbooks.Open (strLibro)
' lo hago visible o no
xls.Visible = False ' o false
' activo la Hoja 1
xls.Worksheets("F-06-037 REPORTE FACTURAS").Activate
' construyo la cadena de la SELECT
strSQL = "SELECT * FROM COMPARACION 1 ORDER BY NUMERO_FACTURA"
' abro el recordset
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
' si el recordset no está vacio
If rst.RecordCount > 0 Then
'Activo el Rango para pegar los datos
    xls.ActiveSheet.Range("C22").Select
    ' pego los datos (el recordset completo)
    xls.ActiveCell.CopyFromRecordset rst
End If
' guardo los datos
xls.ActiveWorkbook.Save
' cierro excel
'xls.Application.Quit
'Lo hago visible
xls.Visible = True
Set xls = Nothing
' cierro el recordset
rst.Close
cmdExportar1_Click_Salir:
   On Error GoTo 0
    Exit Function
cmdExportar1_Click_TratamientoErrores:
    MsgBox "Error " & Err.Number & " en proc. cmdExportar1_Click de Documento VBA Form_frmExportaraExcel (" & Err.Description & ")", vbOKOnly + vbCritical
    GoTo cmdExportar1_Click_Salir
End Function    ' cmdExportar1_Click
Public Function ExportarExcel()
Dim rst As DAO.Recordset, _    strSQL As String, _    strLibro As String, _    xls As Object ' Excel.Application    ' abro una instancia de ExcelOn Error GoTo cmdExportar1_Click_TratamientoErrores
If Len(Dir(CurrentProject.Path & "\Plantillas\PLANTILLA CIRCU55.XLS")) <> 0 Then
If Len(Dir(CurrentProject.Path & "\PLANTILLA CIRCU55.xls")) > 0 Then Kill CurrentProject.Path & "\PLANTILLA CIRCU55.xls"
FileCopy CurrentProject.Path & "\Plantillas\PLANTILLA CIRCU55.xls", CurrentProject.Path & "\PLANTILLA CIRCU55.xls"
End If
Set xls = CreateObject("Excel.Application")
' con ella abro el libro ExportaraExcelstrLibro = CurrentProject.Path & "\PLANTILLA CIRCU55.xls"xls.Workbooks.Open (strLibro)
' lo hago visible o noxls.Visible = False ' o false
' activo la Hoja 1xls.Worksheets("F-06-037 REPORTE FACTURAS").Activate
' construyo la cadena de la SELECTstrSQL = "SELECT * FROM COMPARACION_1 ORDER BY NUMERO_FACTURA"
' abro el recordsetSet rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
' si el recordset no está vacioIf rst.RecordCount > 0 Then
'Establezco el nombre de la Ips prestadora
Dim PRESTADOR As String
PRESTADOR = DLookup("RAZON_SOCIAL", "AF")    ' me posiciono en la celda en que depositaré los datos    xls.ActiveSheet.Range("F18").Select    xls.ActiveCell.Value = PRESTADOR
'Finalizo con la Ips 'Activo el Rango para pegar los datos
    xls.ActiveSheet.Range("C22").Select    ' pego los datos (el recordset completo)    xls.ActiveCell.CopyFromRecordset rstEnd If
' guardo los datosxls.ActiveWorkbook.Save
' cierro excel'xls.Application.Quit
'Lo hago visiblexls.Visible = True
Set xls = Nothing
' cierro el recordsetrst.Close
cmdExportar1_Click_Salir:   On Error GoTo 0    Exit Function   cmdExportar1_Click_TratamientoErrores:
    MsgBox "Error " & Err.Number & " en proc. cmdExportar1_Click de Documento VBA Form_frmExportaraExcel (" & Err.Description & ")", vbOKOnly + vbCritical    GoTo cmdExportar1_Click_Salir
End Function    ' cmdExportar1_Click

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Código VBA para crear un botón y guardar en PDF

Tengo un archivo word con 7 capturas, una en cada página (1-7), cual seria el código para crear un botón en la barra de herramientas de acceso rápido para convertir en PDF cada página. El resultado seria 7 pdf.
2 respuestas

Ejecutar la base de datos sin que se muestre el entorno de Access.

Ya he terminado mi base de datos. Ahora quiero abrirla pero que no se vea nada del entorno de Access, ni pestañas. Que el formulario de inicio se vea, por ejemplo, sobre la pantalla del escritorio. Alguien me da el paso a paso
2 respuestas

Generar tres números al azar para una rifa

1. Pregunta Estoy elaborando una aplicación de una rifa y necesito crear una función para llenar una tabla con 3 números generados al azar, ningún número se puede repetir en la tabla, si el vendedor tiene activo el campo juegacuatro se le asignarán...
3 respuestas

Intentando sumar campos moneda de totales en informe de Access.

Estoy tratando de sumar dos campos de sumas totales en un informe de Access y no lo logro. Creo que he agotado todas las variantes. La situación es la siguiente: El informe es para emitir una factura al cliente. A un cliente se les puede hacer mas de...
2 respuestas

Base de datos Access se bloquea al trabajar en simultaneo

En contexto tengo una base de datos donde se ingresan datos en un formulario y este a su vez tiene un subformulario. Al inicio solo era utilizada por un usuario. Pero ahora es usada por 4 usuarios más. Tengo una computadora principal donde tengo la...
3 respuestas

Añadir búsqueda al azar en formularios de Access

Tengo un archivo de Access que quiero modificar y actualizar para añadir nuevas preguntas a una base de datos. He visto que en el formulario hay una casilla como de verificación para seleccionar al azar las preguntas de toda la base de datos pero...
2 respuestas

Como puedo añadir registros desde un formulario de búsqueda a un subformulario de otro formulario de registros de artículos

Tengo un formulario [Entrada_almacen] con un subformulario [Subformulario entradas almacen] en el que quiero que se vallan añadiendo los registros; Código (es un campo calculado), Artículo (combobox, porque también lo puedo seleccionar y si lo hago...
2 respuestas

Suma continua aparece en todos los demás registros

Tengo 2 tablas relacionadas,,,,, la tabla 1 la uso con el formulario principal,,,, la segunda para un subformulario,,,,,, y tango una consulta basada en la tabla 2 Con consulta contiene los campos entrada salida saldo (saldo ya esta con su fórmula...
2 respuestas

Cantidad mayor y menor en campos calculados

Tengo un formulario principal con tres subformularios y cada uno con una serie de campos de tipo numero sin decimales, Campo 1, Campo 2, Campo 3... Todos tienen 1 campo calculado del totales, basado en la suma de todos los campos de cada formulario,...
2 respuestas

Botón búsqueda en formulario Access

Tengo diseñado un formulario sencillo para hacer registro de datos, al dar el botón guardar esta información se va a una tabla, hasta hay normal, pero 1. Esta información no se llena de una vez por ejemplo Se llena del orden de arriba hacia abajo...
5 respuestas