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
información
Otras secciones de LWP con contenido de Visual Basic para Aplicaciones
- Código fuente de Visual Basic para Aplicaciones
- Cursos de Visual Basic para Aplicaciones
- Temas de Visual Basic para Aplicaciones
información
Códigos de Visual Basic para Aplicaciones
- Formulario de Access
- Barra de proreso en Excel
- Rompecabezas
Imágen de perfil de GERARDO

URGENTE: Macro para guardar hoja de Excel en PDF

Publicado por GERARDO (18 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