Esta "extracción de datos" se realizará en un Excel nuevo a partir del resultado de una consulta existente que deberá indicarse en el código que se muestra a continuación. En él se indica el número de la celda en la que se debe comenzar a introducir los valores.
El siguiente código deberá introducirse en el módulo correspondiente (módulos, botón, etc.) y sustituirse los corchetes y su contenido por lo que corresponda.
**********************************************************
'Archivo plantilla, usa SQL, Inserta Datos en hoja y Guarda Fichero con un nombre.
'Declaración de variables
Dim aFullPath As String
Dim appExcel, bkExcel, sh1Excel, rngExcel As Object
Dim cnt As Integer
'Averigua ruta, ejecuta Excel y abre un archivo concreto
aFullPath = CurrentProject.Path & "\RIC"
Set appExcel = CreateObject("Excel.Application")
appExcel.Visible = True
Set bkExcel = appExcel.Workbooks.Open(aFullPath & "\RIC.xltx")
Set sh1Excel = bkExcelWorksheets(1)
Set rngExcel = sh1Excel.Range("A8:AE10000")
sh1Excel.Cells(8, 5).Value = "Generating data..."
'Usa SQL
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SQL;")
'Inserta Datos en hoja
If (rs.RecordCount > 0) Then
cnt = 1
Call rngExcel.CopyFromRecordset(rs, 9000, 31)
End If
'Guarda Fichero con un nombre
sh1Excel.SaveAs (aFullPath & "\RIC" & Left(Date, 2) & Mid(Date, 4, 2) & Right(Date, 2))
rs.Close
Set rs = Nothing
**********************************************************
