Excel - Guardar pdf sin repetirse

 
Vista:
sin imagen de perfil
Val: 8
Ha disminuido su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

Guardar pdf sin repetirse

Publicado por informatic (10 intervenciones) el 05/09/2019 21:17:15
Consulta como hago para que al guardar un archivo pdf en macros no se repita el nombre,
es decir, si se llama el archivo 'hola', no hayan dos del mismo nombre, sino que se cree uno llamado 'hola(1)'

1
2
3
4
5
6
7
8
9
10
11
12
Sub SavePDFMacro2()
 
nombre = 'nombrearchivo'
ruta = 'C:\Users\Desktop\carpeta\'
 
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ruta & nombre, Quality:= _
    xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
 
 
End Sub

hasta ahora tengo este codigo
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 Hector Madriz
Val: 857
Bronce
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Guardar pdf sin repetirse

Publicado por Hector Madriz (137 intervenciones) el 06/09/2019 01:12:25
Buen día, prueba esto:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Exportar()
    RutaNombreArchivo = "D:\xxx.pdf"
    NombreAux = Split(RutaNombreArchivo, ".")
    Cont = 1
    While Len(Dir(RutaNombreArchivo)) > 0
          RutaNombreArchivo = NombreAux(0) & "_" & Cont & "." & NombreAux(1)
          Cont = Cont + 1
    Wend
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaNombreArchivo, Quality:= _
    xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
sin imagen de perfil
Val: 8
Ha disminuido su posición en 5 puestos en Excel (en relación al último mes)
Gráfica de Excel

Guardar pdf sin repetirse

Publicado por informatic (10 intervenciones) el 10/09/2019 22:52:54
Gracias me ha funcionado perfectamente
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