Qual o seu excel (a exportação conforme acima funciona somente 2007 e acima).

Se for compativel experimente assim:

Sub Macro1()
Dim Pasta As String, MyPath As String, Arq As String

Pasta = ActiveSheet.Range("P1").Value
Arq = Format(Now, "dd-mm-yyyy-hhmm") & ActiveSheet.Range("P2").Value & ".pdf"
MyPath = "C:relatorios" 'Indica em que local a pasta estará , pode ser C: ou d: ou e:....
'Verifica se o diretorio existe
If (Dir(MyPath & "" & Pasta, vbDirectory) = "") Then
MsgBox "Diretório - " & MyPath & Pasta & " - Não encontrado"
' se não existir, cria se quiser
MkDir (MyPath)
MkDir (MyPath & "" & Pasta)
End If

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyPath & "" & Pasta & "" & Arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

End Sub

Reinaldo, alterei o código mas continua dando o mesmo erro.

A versão do EXCEL é 2007.

O principal devia se à Barra, vc no seu tópico mostrou como "MyPath & Pasta & "/" & arq", porem deve ser "MyPath & "" & Pasta & "" & Arq
Dá para postar o exemplo, somente com os valores em P1 e P2 e o seu codigo, para pode analizar "in loco"

Reinaldo,

o problema é que essa planilha eu faço acesso remoto... no meu pc esse código funciona corretamente, mas no pc da minha cliente o diretório "relatórios" é criado normalmente mas continua dando erro ao gerar o arquivo PDF.

Sub Macro1()
Dim Pasta As String, MyPath As String

Pasta = ActiveSheet.Range("P1").Value
arq = Format(Now, "dd-mm-yyyy-hhmm") & ActiveSheet.Range("P2").Value & ".pdf"
MyPath = "C:relatorios" 'Indica em que local a pasta estará , pode ser C: ou d: ou e:....
'Verifica se o diretorio existe
If (Dir(MyPath & Pasta, vbDirectory) = "") Then
MsgBox "Diretório - " & MyPath & Pasta & " - Não encontrado"
' se não existir, cria se quiser
MkDir (MyPath & Pasta)
End If
'Verifica se o arquivo já existe, se existir, deleta
'If (Dir(Arquivo) <> "") Then
' Kill Arquivo
'End If
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
MyPath & Pasta & "" & arq, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True

O pc onde será salvo o arquivo tem suporte a pdf? Diretorio C: e o cliente?
Experimente alterar OpenAfterPublish:=False

Um detalhe adicional:
Certifique-se que a planilha a ser "exportada" tenha algum dado a ser impresso, caso contrario , gerará "erro em tempo de execução 1004"

erro ao GELAR o PDF ?
Meu, poe no pendrive, mete no congelador, e espera.... não vai ter erro

Desculpa a piadinha, rs, segue o jogo !

Gente ,

vi que ao clicar em "salvar como" não me aparece a opção PDF, seria esse o problema?

o PDF eu baixei a nova versão .. mas mesmo assim...

PDF só no 2010
2007 nao tem.

hm.. então.

eu baixei o cutpdf quando fui instalar pediu para instalar o PS2PDF conversor, baixei ele também e não deu nada!!!

já não sei oq faço... todos os pcs funcionam menos o dessa cliente.

Fernando, Boa Noite!
Meu Excel é 2007 e tem opção salvar em PDF!
E não me lembro de ter baixado nehum adin.
Doni

Fernando, Boa Noite!
Meu Excel é 2007 e tem opção salvar em PDF!

Doni, provavelmente quem fez a instalação do excel 2007 para você já instalou o suplemento, mas o Fernando tem razão, no 2007 não tem a opção por padrão, tem de baixar do site da microsoft e instalar.

Suplemento do 2007 Microsoft Office: Salvar como PDF ou XPS da Microsoft
http://www.microsoft.com/pt-br/download ... .aspx?id=7

É só escolher a linguagem que está instalado o excel, baixar e instalar.

[]s

Mauro, Boa Tarde!

Foi isso mesmo, liguei para o cara que fez a instalação e ele disse que instalou, eu como nunca me atentei a isso nem me preocupei em saber se era nativo ou não.
Obrigado pela informação!
Doni

Perfeito!

Funcionou... era isso mesmo que estava faltando.

obrigado gente.