encontrar ruta aun cambiando de pc
Publicado por ruben (25 intervenciones) el 31/08/2015 14:47:31
hola gente,buen dia!,quiero guardar un archivo excel en pdf;el tema es que al cambiar de directorio donde lo guardo,o al cambiarlo a otra pc,me queda la direccion de donde se grabo originalmente;encontre un codigo que pense servia pero no logro hacer que lo guarde en el mismo directorio del archivo origen
adjunto ejemplo
1
2
3
4
5
6
7
8
CÓDIGO: SELECCIONAR TODOMacro2 Macro
'
Range("A1:F16").Select 'aca elijo el rango que quiero "grabar"
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$16" 'esto tal vez no sea necesario
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
RUta = ThisWorkbook.Path & "\" 'asi hallo la ruta del archivo
nombre = "Libro.pdf" 'Nombre del archivo(es necesario?)
adjunto ejemplo
Valora esta pregunta
0