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 estás conectado. Conéctate o registrate

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

6luishao6


Hola mi pregunta es la siguiente

TENGO ESTA MACRO QUE ME TRABAJA BIEN:
-------------------------------------------------------------------------------------------------------------------------
Sub Pdf()

ruta = ThisWorkbook.Path & "\"
nombre = WorksheetFunction.Text(Now(), "dd-mmm-yyyy-O-hh-mm-ss")

MsgBox "EL ARCHIVO IMPRESO SE GUARDO EN: " & ruta, vbOKOnly, "Centralizador de notas v4.1"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ruta & nombre, OpenAfterPublish:=1
End Sub
------------------------------------------------------------------------------------------------------------------------
Pero quisiera modificar solamente su destino; cuando lo va convertir a PDF, esta macro por defecto lo crea donde está el archivo de Excel, quisiera que lo direcciones al ESCRITORIO con un cuadro de dialogo en donde el cual diga en donde se va encontrar el archivo PDF.

Igtelo

avatar
Hola Luis.

Sólo modifica la ruta Thisworkbook.path.... Escribe la ruta en donde desees te guarde el archivo.

Saludos
Ignacio Téllez

Igtelo

avatar
Se da por resuelto y se cierra por abandono.

¿Hasta cuando entenderán?

Ignacio Téllez

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.