Salvar PDF em pasta do servidor

HELIOS · 26 de novembro de 2020

Boa tarde a todos, sou novo aqui, porém estou com um problema que ja perdi 1 dia testando e nada.

Preciso que ao gerar o PDF, ele seja salvo na pasta que foi criada anteriormente com os dados do orçamento, porém essa pasta esta em um servidor (rede do escritorio que fica em um notebook), ele faz tudo cria a pasta no servidor so que gera o pdf mas nao identifica o caminho ai salva nos documentos do diretorio C:

se eu alterar para trabalhar localmente no meu computador da 100%.

alguem para me dar um help nesse caminho.

segue codigo criado.

Sub printb2()
'
'

'
'gera orçamento em pdf
'
Sheets("printb").Visible = True
Sheets("Printb").Activate
' ActivateSheets.Calculate

'pdf
'cria pasta do cliente
'
Dim CriaPastacliente As String

A = Range("PARAMETROS!D2").Value 'Caminho orçamento no servidor exemp:\\SERVIDORINDUSOL\A- Projetos em Execução e orçamentos\ORÇAMENTOS\2020\11 Novembro\DNS26112015HS - Fabiano Sehnem Rossa
B = Range("PARAMETROS!D3").Value ' DNS26112015HS - Fabiano Sehnem Rossa
C = Range("PARAMETROS!D4").Value ' 2020\11 Novembro\DNS26112015HS - Fabiano Sehnem Rossa

CriaPastacliente = A 'Caminho orçamento no servidor
If Dir(CriaPastacliente, vbDirectory) = "" Then 'Verifica se ja nao existe a pasta no diretorio especificado, caso ja exista termina
MkDir CriaPastacliente
'MsgBox "O diretório: " & CriaSubPasta & " foi criado!", vbInformation, "AVISO"
'
End If
'salva pdf
Sheets("Printb").Select
'
ChDir A '
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
B, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False

End Sub

Edson Luiz Branco · 27 de novembro de 2020

Bem vindo ao fórum, @HELIOS

No VBA, ChDrive e ChDir só funcionam para path de redes que tenham o caminho mapeado, p. ex. Z:\Orçamentos\.

Mas você pode usar o UNC completo no argumento FileName do método ExportAsFixedFormat. Ex.:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:= "\\SERVIDOR\DOCUMENTOS\ORÇAMENTOS\" & "MeuOrçamento.pdf", _
                                Quality:= xlQualityStandard, _
                                IncludeDocProperties:=True, _
                                IgnorePrintAreas:=False, _
                                OpenAfterPublish:=False