Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Traer Estadisticas de Ventas

  • Autor del tema Autor del tema Ico22
  • Fecha de inicio Fecha de inicio

Ico22

Active member
Registrado
11 Ene 2016
Mensajes
213
Hola Buenas Tardes
Cómo puedo traer los totales de ventas por año y meses desde Access a la hoja de Excel?
En la tabla Detalle de Access se van Guardando las ventas Diarias.
Ahora necesito llevar...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

Solución
Ejecuta esta macro:
Código:
Const BaseDatos As String = "BDVentas.accdb"
Const Año As Integer = 2021
'--
Sub TotalEntradas()
Dim RutaBase As String
Dim Con As Object
Dim RecordSet  As Object
Dim Sql As String
'--
Application.ScreenUpdating = False
Set RecordSet = CreateObject("ADODB.Recordset")
RutaBase = Application.ThisWorkbook.Path & Application.PathSeparator
Set Con = CreateObject("ADODB.Connection")
Con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
                                 RutaBase & BaseDatos & ";Persist Security Info=False;"
Con.Open
Sql = "SELECT CDate('01/' & Month(Fecha) & '/" & Año & "'), SUM(Total) FROM Detalle " & _
              "WHERE Year(Fecha)=" & Año & " GROUP BY Month(Fecha)"...
Ejecuta esta macro:
Código:
Const BaseDatos As String = "BDVentas.accdb"
Const Año As Integer = 2021
'--
Sub TotalEntradas()
Dim RutaBase As String
Dim Con As Object
Dim RecordSet  As Object
Dim...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Volver
Arriba