Access - Datos de Access a Excel

   
Vista:

Datos de Access a Excel

Publicado por caros (1 intervención) el 01/12/2011 21:59:49
Hola a todos, espero de su ayuda....por favorrrrrr....
Les comento, tengo un formulario que realiza una consulta SQL.

SQL= "Select numero, nombre from TABLA where fecha="& fecha

y esta me funciona bien, ya que en el formulario tengo el campo fecha, coloco una fecha cualquiera luego presiono el boton buscar...y me muestra todos los nombre que estan dentro de esta fecha.
Ahora mi pregunta es la siguiente, como hago para colocar un botón que me envíe solo la información que me esta mostrando en pantalla a excel, es decir, si yo elijo una fecha y me muestra dos registro, solo envíe esos dos registros a excel, y despúes con otra fecha me muestra 10 registros, me envíe los 10 registros a excel, y así sucesivamente.

espero que me ayuden, ya que necesito realizar el filtro fecha para que así no se pase toda la información y solo la que yo esto viendo en pantalla.

Gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Datos de Access a Excel

Publicado por JOSE (741 intervenciones) el 05/12/2011 14:32:35
Rem pasa datos a excell
Dim objExcel As Object
Dim libro As Object

Const xlHairline = 1
Const xlMedium = -4138
Const xlThick = 4
Const xlThin = 2
Const xlWBATWorksheet = -4167

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Set libro = objExcel.Workbooks.Add

' creo un libro con una sola hoja
'libro.Workbooks.Add xlWBATWorksheet
strHoja = libro.ActiveSheet.Name
'libro.ActiveSheet.Name = "jose"



Rem ----cabecera
libro.ActiveSheet.Cells(1, 1) = "LISTADO DE TELEFONOS EMPSA S.L.U "
libro.ActiveSheet.Cells(2, 1) = "AUXILIARES FECHA " & Now()




libro.ActiveSheet.Cells(4, 1) = RS.Fields(0).Name
libro.ActiveSheet.Cells(4, 2) = RS.Fields(1).Name
libro.ActiveSheet.Cells(4, 3) = RS.Fields(2).Name
libro.ActiveSheet.Cells(4, 4) = RS.Fields(3).Name
libro.ActiveSheet.Cells(4, 5) = RS.Fields(4).Name
'libro.ActiveSheet.Cells(1, 6) = RS.Fields(5).Name
'libro.ActiveSheet.Cells(1, 7) = RS.Fields(6).Name
'libro.ActiveSheet.Cells(1, 8) = RS.Fields(7).Name
'libro.ActiveSheet.Cells(1, 9) = RS.Fields(8).Name
'libro.ActiveSheet.Cells(1, 10) = RS.Fields(9).Name

'libro.ActiveSheet.Cells(1, 11) = RS.Fields(10).Name
'libro.ActiveSheet.Cells(1, 12) = RS.Fields(11).Name
'libro.ActiveSheet.Cells(1, 13) = RS.Fields(12).Name
'libro.ActiveSheet.Cells(1, 14) = RS.Fields(13).Name
'libro.ActiveSheet.Cells(1, 15) = RS.Fields(14).Name
'libro.ActiveSheet.Cells(1, 16) = RS.Fields(15).Name
'libro.ActiveSheet.Cells(1, 17) = RS.Fields(16).Name
'libro.ActiveSheet.Cells(1, 18) = RS.Fields(17).Name
'libro.ActiveSheet.Cells(1, 19) = RS.Fields(18).Name
'libro.ActiveSheet.Cells(1, 20) = RS.Fields(19).Name

'libro.ActiveSheet.Cells(1, 21) = RS.Fields(20).Name
'libro.ActiveSheet.Cells(1, 22) = RS.Fields(21).Name
'libro.ActiveSheet.Cells(1, 23) = RS.Fields(22).Name
'libro.ActiveSheet.Cells(1, 24) = RS.Fields(23).Name
'libro.ActiveSheet.Cells(1, 25) = RS.Fields(24).Name
'libro.ActiveSheet.Cells(1, 26) = RS.Fields(25).Name

'libro.ActiveSheet.Cells(1, 27) = RS.Fields(26).Name

'libro.ActiveSheet.Cells(1, 28) = Rs.Fields(27).Name
'libro.ActiveSheet.Cells(1, 29) = Rs.Fields(28).Name
'libro.ActiveSheet.Cells(1, 30) = Rs.Fields(29).Name






n = 5

Do While RS.EOF = False
'MsgBox Rs.Fields(4).Value
' escribo los datos en la hoja
libro.ActiveSheet.Cells(n, 1) = RS.Fields(0).Value
libro.ActiveSheet.Cells(n, 2) = RS.Fields(1).Value
libro.ActiveSheet.Cells(n, 3) = RS.Fields(2).Value
libro.ActiveSheet.Cells(n, 4) = RS.Fields(3).Value
libro.ActiveSheet.Cells(n, 5) = RS.Fields(4).Value
' libro.ActiveSheet.Cells(n, 6) = RS.Fields(5).Value
' libro.ActiveSheet.Cells(n, 7) = RS.Fields(6).Value
' libro.ActiveSheet.Cells(n, 8) = RS.Fields(7).Value
' libro.ActiveSheet.Cells(n, 9) = RS.Fields(8).Value
' libro.ActiveSheet.Cells(n, 10) = RS.Fields(9).Value

' libro.ActiveSheet.Cells(n, 11) = RS.Fields(10).Value
' libro.ActiveSheet.Cells(n, 12) = RS.Fields(11).Value
' libro.ActiveSheet.Cells(n, 13) = RS.Fields(12).Value
' libro.ActiveSheet.Cells(n, 14) = RS.Fields(13).Value
' libro.ActiveSheet.Cells(n, 15) = RS.Fields(14).Value
' libro.ActiveSheet.Cells(n, 16) = RS.Fields(15).Value
' libro.ActiveSheet.Cells(n, 17) = RS.Fields(16).Value
' libro.ActiveSheet.Cells(n, 18) = RS.Fields(17).Value
' libro.ActiveSheet.Cells(n, 19) = RS.Fields(18).Value
' libro.ActiveSheet.Cells(n, 20) = RS.Fields(19).Value

' libro.ActiveSheet.Cells(n, 21) = RS.Fields(20).Value
' libro.ActiveSheet.Cells(n, 22) = RS.Fields(21).Value
' libro.ActiveSheet.Cells(n, 23) = RS.Fields(22).Value
' libro.ActiveSheet.Cells(n, 24) = RS.Fields(23).Value
' libro.ActiveSheet.Cells(n, 25) = RS.Fields(24).Value
' libro.ActiveSheet.Cells(n, 26) = RS.Fields(25).Value
' libro.ActiveSheet.Cells(n, 27) = RS.Fields(26).Value

' libro.ActiveSheet.Cells(n, 28) = Rs.Fields(27).Value
'libro.ActiveSheet.Cells(n, 29) = Rs.Fields(28).Value
'libro.ActiveSheet.Cells(n, 30) = Rs.Fields(29).Value



'libro.ActiveSheet.Cells(n, 1).CopyFromRecordset Rs
'xls.ActiveSheet.Cells(2, 1).CopyFromRecordset rstPedidos





RS.MoveNext
n = n + 1

Loop


' ajusto el tamaño de las columnas
'libro.Columns("A:j").EntireColumn.AutoFit
libro.Columns("j:k").EntireColumn.AutoFit








libro.Close True, "c:\milibroexcel"
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar