exportar tablas de access a excel
Publicado por Cesar (7 intervenciones) el 06/06/2012 07:17:40
Hola buen dia, disculpen, tengo una duda, ojalá me pudiesen ayudar:
consiste en que tengo una tablas que he crado en acces y deseo exportarlas en un mismo archivo de excel y que enga la fecha actual, he intentado con el siguiente codigo pero aun no me queda, el codigo es el siguiente:
ojala me pudiesen ayudar.
Saludos
consiste en que tengo una tablas que he crado en acces y deseo exportarlas en un mismo archivo de excel y que enga la fecha actual, he intentado con el siguiente codigo pero aun no me queda, el codigo es el siguiente:
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
Private Sub Comando13_Click()
Dim nomExcel As String
Dim miRange1 As String
Dim miRange2 As String
Dim miRange3 As String
Dim miRange4 As String
Dim miRange5 As String
Dim miRange6 As String
Dim miRange7 As String
Dim miRange8 As String
Dim Fecha As String
Fecha = Format(Date, "medium date")
nomExcel = "\C:\Documents and Settings\eq0469\My Documents\Daniel Velasco\MRP\MRP" & Fecha & ".xls"
miRange1 = "primer nivel"
miRange2 = "Segundo nivel"
miRange3 = "tercer nivel"
miRange4 = "Cuarto nivel"
miRange5 = "Quinto nivel"
miRange6 = "Sexto nivel"
miRange7 = "Septimo nivel"
miRange8 = "ResumenMRP"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "primer nivel", nomExcel, , miRange1
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Segundo nivel", nomExcel, , miRange2
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "tercer nivel", nomExcel, , miRange3
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Cuarto nivel", nomExcel, , miRange4
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Quinto nivel", nomExcel, , miRange5
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Sexto nivel", nomExcel, , miRange6
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "Septimo nivel", nomExcel, , miRange7
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "ResumenMRP", nomExcel, , miRange8
MsgBox "Exportación Realizada", vbInformation, "Finalizar"
End Sub
ojala me pudiesen ayudar.
Saludos
Valora esta pregunta
0