UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

anapaocg007


Hola chicos, tengo esta macro que corre perfectamente, lo que hace es generar un PDF de una selección de excel, el problema es que guarda el archivo en "Mis Documentos" y lo que necesito es que lo guarde automáticamente dentro de la misma carpeta donde se encuentra el archivo de origen.

Alguna idea?, mil gracias chavos!
Pao.


[ltr]''Genera PDF de Pool de Proyectos
Sub GUARDAR_PDF() 'Copia el ancho de papel carta, Hoja unica desde un rango fijo
'SOLO para hoja activa.
nombre = ActiveSheet.Name 'Nombre de hoja
Range("C1:E29").Select 'rango inicio y final selecionado


Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True 'Si quieres que el archivo se abra luego de creado, cambia False por True al final
Range("A1").Select 'celda final selecionada

End Sub[/ltr]

Igtelo


Hola Anapao.

Agrega la línea que está en rojo.

Sub GUARDAR_PDF() 'Copia el ancho de papel carta, Hoja unica desde un rango fijo
'SOLO para hoja activa. 
nombre = ActiveSheet.Name 'Nombre de hoja
ChDir ThisWorkbook.Path  '<=== CON ESTO CAMBIA A LA RUTA 
Range("C1:E29").Select 'rango inicio y final selecionado

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nombre & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True 'Si quieres que el archivo se abra luego de creado, cambia False por True al final
Range("A1").Select 'celda final selecionada

End Sub

Saludos
Ignacio Téllez

3RESUELTO gracias el 18/01/16, 03:20 pm

anapaocg007


Muchas gracias!

Igtelo


Por favor lee las normas y márcalo como resuelto...

5RESUELTO problema resuelto el 18/01/16, 04:19 pm

anapaocg007


gracias!

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

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