Access - Ruta Dinamica para generar excel

   
Vista:
sin imagen de perfil
Pos: 399
Val: 6
Ha aumentado su posición en 24 puestos en Access (en relación al último mes)

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
Pos: 43
Val: 58
Ha aumentado 1 puesto en Access (en relación al último mes)

Ruta Dinamica para generar excel

Publicado por Pancho (101 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