Macro para imprimir en pdf sin sobreescribir
Les solicito ayuda con un pequeño problema que tengo, deseo escribir una macro que me permita guardar un archivo en PDF, el problema se presenta cuando guardo dos veces el mismo archivo ya que sobreescribe el original, me gustaría que la macro pudiera detectar cuando ya hay archivos con el mismo nombre y empezara a numerarlos en orden de esta forma:
- Archivo original "Trabajo"
- Archivo numerado "Trabajo (1)"..........."Trabajo(2)"...........etc.
Este es mi código:
Sub Imprimir_D638Modulo()
' Boton imprimir, permite imprimir la hoja en pdf
DatoFechador = Format(Date, "dd-mm-yyyy")
Sheets("D638 Modulo").Select
Range("C2:T32").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DatoFechador & "-" & Range("D3").Value, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Range("F7").Select
End Sub
1 respuesta
Respuesta de Miguel Huertas
' Check if a file exists
Function fileExists(s_fileName As String) As Boolean
Dim obj_fso As Object
Set obj_fso = CreateObject("Scripting.FileSystemObject")
fileExists = obj_fso.fileExists(s_fileName)
End FunctionYo haría una función, que tenga un bucle y que retorne la ruta hasta que se verifique que no existe...
