Access - Ruta Dinamica para generar excel

   
Vista:

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

Ruta Dinamica para generar excel

Publicado por Pancho (80 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
Revisar política de publicidad