Tengo problemas al convertir archivos de excel con nombres largos a pdf con el siguiente código.

Agradezco su colaboración.

Sub ImpPDF()

'

' ImpPDF Macro

'

'aqui agregamos la variable, y en la parte de Filename checa como agrego la variable

Año = Range("r1").Value

Sem = Range("Q1").Value

Nombre = Range("c17").Value

Range("C4:P59").Select

Range("P59").Activate

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

ThisWorkbook.Path & "/" & Año & " Sem " & Sem & Nombre & " " & ".pdf", _

Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _

:=False, OpenAfterPublish:=False

Range("B19").Select

End Sub

Creo que será un problema del máximo número de caracteres que permite el nombre del archivo, pues tienes que tener en cuenta que toda la ruta se contabiliza a la hora de intentar guardarlo como pdf y no solo lo que podríamos denominar el nombre como tal.

Como dices, si te pasa sólo con los nombres largos, deben ir por ahí los tiros.

He leído en algún sitio que es alrededor de 260 caracteres, pero no podría asegurártelo.

Un saludo,

Tese

Buenas además de lo mencionado por @[uSER=99562]tese1969[/uSER] del largo de caracteres el cual solo es valido cuando es menor o igual de 255 caracteres debes de tener en cuenta que no se pueden crear los archivos con los siguientes caracteres

Bien chequea el siguiente código

Sub ImpPDF()

    Dim Año        As String

    Dim Sem        As String

    Dim Nombre      As String

    Dim Archivo    As String

    Dim c          As String

    Dim i          As Long

    Año = Range("r1").Value

    Sem = Range("Q1").Value

    Nombre = Range("c17").Value

    Archivo = ThisWorkbook.Path & "/" & Año & " Sem " & Sem & Nombre & ".pdf"

    If Len(Archivo) > 255 Then

        MsgBox "Cree otro nombre el actual posee demasiados caracteres", vbInformation, ""

        Exit Sub

    End If

    For i = 1 To Len(Archivo)

        c = Mid(Archivo, i, 1)

        Select Case Asc(c)

            Case 34, 60, 62, 124, 0, _

                1, 2, 3, 4, 5, 6, 7, 8, _

                9, 10, 11, 12, 13, 14, 15, _

                16, 17, 18, 19, 20, 21, 22, _

                23, 24, 25, 26, 27, 28, 29, 30, 31, _

                58, 42, 63, 92, 47

                MsgBox "Cree otro nombre el actual posee caracteres no validos", vbInformation, ""

                Exit Sub

        End Select

    Next i

    Range("C4:P59").ExportAsFixedFormat Type:=xlTypePDF, _

                                        fileName:=Archivo, _

                                        Quality:=xlQualityStandard, _

                                        IncludeDocProperties:=True, _

                                        IgnorePrintAreas:=False, _

                                        OpenAfterPublish:=False

    Range("B19").Select

End Sub[/CODE]

Un saludo[/indent]