Visual Basic para Aplicaciones - URGENTE: Macro para guardar hoja de Excel en PDF

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por Andrey (2 intervenciones) el 03/06/2016 18:49:04
Buenos días,

Por favor me pueden colaborar con algo referente al tema que están tratando:

Tengo esta macro, pero necesito que al exportar, me guarde a parte del nombre de la persona, con el día en el cual ejecuté la macro, se puede insertar la función ahora?, si es asi, me pueden ayudar por favor indicándome como agrego esa función a la macro, para que me exporte con el nombre y la fecha.

Gracias!!!

1
2
3
4
5
Sub Leidy()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Nómina Leidy Zapata .pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de GERARDO
Val: 8
Ha disminuido su posición en 72 puestos en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por GERARDO (22 intervenciones) el 15/06/2016 16:05:31
Hola

No puedes guardar los pdf's con caracteres "/" , ":"

Dado esto te propongo el siguiente codigo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Leidy()
 
Dim FechaHora As Date
Dim StringFecha As String
 
FechaHora = Now
 
StringFecha = FechaHora
 
StringFecha = Replace(StringFecha, "/", "-")
 
StringFecha = Replace(StringFecha, ":", "_")
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\Nómina Leidy Zapata " & StringFecha & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar