............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

encontrar ruta aun cambiando de pc

Ver el tema anterior Ver el tema siguiente Ir abajo

encontrar ruta aun cambiando de pc

Mensaje por rubito1 el Lun Ago 31, 2015 9:59 am

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
Código:
CÓDIGO: SELECCIONAR TODO
Macro2 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?)


rubito1

Femenino Cantidad de envíos : 2
Edad : 62
Ciudad - Pais : argentina
Version de Excel : 2010
Fecha de inscripción : 11/01/2014

Volver arriba Ir abajo

Re: encontrar ruta aun cambiando de pc

Mensaje por rolano el Vie Sep 18, 2015 5:00 pm

Código:

CÓDIGO: SELECCIONAR TODO
Macro2 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?)

'Esta es la ruta
RutaFinal = RUta & nombre

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
Blog

rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 43
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.