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.]

martinborges81


Primero que nada buenas noches a todos!! Soy nuevo en el Foro.

Si alguien me puede ayudar se lo agradezco.

Tengo una macro que me guarda un pdf de dos celdas pero necesito que me guarde también la fecha y hora. sino se me sobre escribe el pdf anterior.
Les paso mi código

Sub GuardarPDF()
Dim RutaArchivo As String
RutaArchivo = "C:\Users\martinb\Desktop\SPM\" & [G4] & [B3]
Nombre = Format(Now, "dd-mm-yy hh mm ss")
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Igtelo


martinborges81


Ignacio Gracias por tu aporte.

Te quería consultar otra cosa.

Yo necesito que tome dos celdas de nombre y al final fecha y hora.

RutaArchivo = "C:\Users\martinb\Desktop\SPM\" & [G4] & [B3]

Estas son las celdas que tengo de referencia, y el la celda G2 tengo la fecha y hora con la formula  =AHORA()   Pero me da error si la agrego.


No se si fui claro??

Muchas gracias por tu respuesta!!

Igtelo


A ver Martín:
Código:
Sub GuardarPDF()
Dim Ruta, Nombre As String

Ruta = ThisWorkbook.Path & "\"
Nombre = [G4] & [B3] & Format(Now, "dd-mm-yy hh mm ss")

ActiveSheet.ExportAsFixedFormat xlTypePDF, Filename:=Ruta & Nombre, Quality:=xlQualityStandard

End Sub

Aunque esto es sencillo para próximas preguntas adjunta archivo, siempre deben hacerlo así sea para saber como sumar 2 + 2.

¿Viste y leíste el aporte?

Lo que pretendes de la fecha y hora en una celda NO funciona, lee sobre los caracteres que Excel no acepta para nombres de archivos...

Saludos
Ignacio Téllez

martinborges81


Ignacio, Muchas gracias!!

Me funciono  perfecto!!

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.