Access - Access a Excel

REM -------------------TRASPASA UNA  TABLA O CONSULTA -----------------------------

Rem  tienes que agragar la referencia Microsoft Excel n.n desde projectos->referencias

Dim objExcel As New Excel.Application: Rem VARIABLES DE EXCELL

Dim rst As DAO.Recordset, strSQL As String: Rem VARIABLES DE DAO

With objExcel

            .Visible = True

            'Abro el archivo excel

            .workbooks.Open "C:\Users\jo\Desktop\ExportaraExcel.xls":   Rem UBICACION   Y NOMBRE DEL LIBRO  *** PONER EL DESEADO

            'Seleciono la hoja del libro con la que voy a trabajar

            .workbooks(.workbooks.Count).sheets("CUENTAS").select: Rem   NOMBRE DE LA HOJA    *****PONER EL DESEADO

  End With

  Rem AQUI SELECIONO LA TABLA -------------------------************** CAMBIAR CLIENTES POR EL NOMBRE DE LA TABLA DESEADA . ' construyo la cadena de la SELECT

        strSQL = "SELECT *" & "FROM [CLIENTES] "

            'Agrego datos

            Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)

            Rem  grabo  la cabecera -----------------------------

            'copiar rótulos

            lngCampos = rst.Fields.Count

            For i = 0 To lngCampos - 1

            objExcel.workbooks(objExcel.workbooks.Count).ActiveSheet.Cells(1, (i + 1)).Value = rst.Fields(i).Name

            Next

            Rem ---------

            rst.MoveFirst

            N = 2

            ' si el recordset no está vacio

        Do While rst.EOF = False

            lngCampos = rst.Fields.Count

            For i = 0 To lngCampos - 1

            objExcel.workbooks(objExcel.workbooks.Count).ActiveSheet.Cells(N, i + 1).Value = rst.Fields(i).Value

            Next

            rst.MoveNext

            N = N + 1

      Loop

            objExcel.workbooks(objExcel.workbooks.Count).Save

            objExcel.workbooks(objExcel.workbooks.Count).Close

            objExcel.Quit

Set objExcel = Nothing