Access - exportar access

   
Vista:

exportar access

Publicado por Pablo (2 intervenciones) el 29/09/2012 03:21:48
Hola victoria como estas, necesito de tu ayuda, actualmente en mi base de datos utilizo para exportar de access a excel el siguiente cosidog:

DoCmd.OutputTo acQuery, "INFORME_COSTOS", "MicrosoftExcel(*.xls)", , -1, ""

me funciona de maravilla y no tengo problemas, ahora bien lo que quiero hacer es exportar varias consultas en el mismo libro de excel en varias hojas, ej, "consulta1" en "hoja1", "consulta2 " en hoja " etc etc.

pero usando el do.cmd.output ya que permite al usuario que abra el cuadro de dialogo y elegir donde guardar, se entiende?

se puede hacer?



espero me ayudes saludos y muchas 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

exportar access

Publicado por jose (741 intervenciones) el 01/10/2012 10:29:13
Saludos Pablo

sin lo quieres hacer manualmente aqui te pongo un ejemplo de como hacerlo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
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  empresa  nn "
  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
 
 
 
 
 
n = 5: rem dila 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
 
 
 
 
 
 
 
RS.MoveNext
n = n + 1
 
Loop
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