Excel salvar pdf no excel (vba)

[Jefferson TS]

Olá. Estou tentado salvar um pdf de uma planilha do excel com "empresa" | "id" | "nome" | "data"

Já fiz várias tentativas sem sucesso. Agradeço se alguem puder me ajudar. Segue o código que estou utilizando:

 

<>'salvar PDF
       Sheets("ORDEM DE SERVIÇO").Select
       ChDir "\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\ORDENS DE SERVIÇO"
       Empresa = Worksheets("ORDEM DE SERVIÇO").Range("a1")
       idcod = Worksheets("ORDEM DE SERVIÇO").Range("d7")
       Nome = Worksheets("ORDEM DE SERVIÇO").Range("B10")
       Data = Date
       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\ORDENS DE SERVIÇO\" & Empresa & "|" & idcod & "|" & Nome & "|" & Data & "|" _
       , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

[Midori]

@Jefferson TS O caractere | é inválido para nome de arquivo, tente usar outro.

[Jefferson TS]

@Midori  Troque pelo "." (ponto) e mesmo assim não deu certo.
O depurador abre com esta parte em amarelo:

       ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
       "\\SERVIDOR\Users\Usuario\Desktop\FLUXO DE CAIXA\ORDENS DE SERVIÇO\" & Empresa & "." & idcod & "." & Nome & "." & Data & "" _
       , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

[Midori]

@Jefferson TS Veja se nas variáveis do nome não tem outro caractere inválido, o barra (/) da data também não é válido.

[Jefferson TS]

@Midori Muito obrigado novamente. O problema era mesmo a barra (/) da data.