Generar PDF renombrado desde celda, solo 22 caracteres

Cerrado
acyclovir
Message postés
1
Date d'inscription
miércoles, 20 de mayo de 2015
Estatus
Miembro
Última intervención
miércoles, 20 de mayo de 2015
- 20 may 2015 a las 18:56
Hola,


Gracias a los aportes de esta y otras paginas he elaborado un macro para renombrar el PDF generado de acuerdo a la celda D8 (donde aparece el nombre del cliente) y le adiciona la fecha, sin embargo esto solo permite 22 campos, ahí el nombre generado se corta, hay alguna forma de hace ilimitada la opción de generar el nombre?

On Error GoTo aviso
Dim xcel As String
Dim zfilename As String
Dim outName As String, i As Long
If InStr(1, ActiveWorkbook.Name, ".", vbTextCompare) > 1 Then
outName = Mid(Range("D8") + Format(Now, " dd-mm-yyyy"), 1, InStr(1, ActiveWorkbook.Name, ".", vbTextCompare) - 1)
Else
outName = ActiveWorkbook.Name
End If
zfilename = ThisWorkbook.Path & "\" & outName
ActiveSheet.ExportAsFixedFormat xlTypePDF, zfilename