Access - Ruta Dinamica para generar excel

 
Vista:
sin imagen de perfil

Ruta Dinamica para generar excel

Publicado por Calel (6 intervenciones) el 16/05/2017 18:26:22
Hola,

Necesito generar un excel a partir de una tabla de mi BD en access, lo cual tengo listo, solo que ahora debo generar el código para que el usuario defina la ruta de destino donde quedará el excel y no la ruta estática que le tengo asignada ("D:\").

Cualquier ayuda será agradecida.

Adjunto el código que tengo hasta ahora.

1
2
3
4
5
6
Archivo_A = "Resumen"
A_Fecha = Replace(Text_Fecha_H, "/", "")
Archivo_Final = Archivo_A & A_Fecha & ".xls"
RutaArchivo = "D:\"
 
    DoCmd.OutputTo acOutputTable, "RGO_Resumen", acFormatXLS, RutaArchivo & Archivo_Final, -1

Saludos.
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
Imágen de perfil de Pancho
Val: 467
Plata
Ha disminuido 1 puesto en Access (en relación al último mes)
Gráfica de Access

Ruta Dinamica para generar excel

Publicado por Pancho (212 intervenciones) el 24/05/2017 04:32:23
Coloca un cuadro texto en tu formulario llamado ruta

1
2
3
4
5
6
7
8
9
10
11
12
13
Archivo_A = "Resumen"
 
A_Fecha = Replace(Text_Fecha_H, "/", "")
 
Archivo_Final = Archivo_A & A_Fecha & ".xls"
 
RutaArchivo = me.ruta
 
'Si la ruta es valida
'********************
if dir(RutaArchivo) <> "" then
    DoCmd.OutputTo acOutputTable, "RGO_Resumen", acFormatXLS, RutaArchivo & Archivo_Final, -1
end if


Saludos
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