Excel VBA_Exportando Intervado de Dados em .pdf

[guicrissantos]

Boa Noite!

 

Tenho uma macro criada para exportar determinado intervalo de células em .pdf para pasta de origem porém, a mesma roda, no meio abre a janela como se estivesse me dando opção de escolher a pasta para salvar (não precisa disso pois quero que o arquivo caia dentro do diretório onde está a pasta da planilha) e mesmo cancelando ela traz a mensagem de que o arquivo foi salvo com sucesso porém, não gera nenhum arquivo de fato.

 

O código é esse:

 

Citação

Sub ExportarHORASRETRABALHO()
Dim intevalo As Range
Set intervalo = Range("b1:O29")
Application.FileDialog(msoFileDialogFolderPicker).Show
If Application.FileDialog(msoFileDialogFolderPicker).SelectedItems.Count = 0 Then Exit Sub
pasta = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
Filename = pasta & "\.RelatorioHorasDeRetrabalho.pdf"
intervalo.ExportAsFixedFormat Type:=xlTypePDF, Filename:="RelatorioHorasDeRetrabalho", _
includeDocProperties:=True, ignorePrintAreas:=False, OpenAfterPublish:=False
    If MsgBox("Relatório de HORAS DE RETRABALHO salvo com sucesso!", vbOKOnly) = vbYes Then
    End If
End Sub

 

Se alguém puder me auxiliar, ficarei grato.

 

No aguardo,

Guilherme Santos

[deejaywesley]

Bom dia @guicrissantos

 

tenta assim:

Sub ExportarHORASRETRABALHO()
Dim intevalo As Range
Set intervalo = Range("b1:O29")
'Application.FileDialog(msoFileDialogFolderPicker).Show
'If Application.FileDialog(msoFileDialogFolderPicker).SelectedItems.Count = 0 Then Exit Sub
pasta = ThisWorkbook.Path
Filename = pasta & "\RelatorioHorasDeRetrabalho.pdf"
intervalo.ExportAsFixedFormat Type:=xlTypePDF, Filename:="RelatorioHorasDeRetrabalho", _
includeDocProperties:=True, ignorePrintAreas:=False, OpenAfterPublish:=False
    If MsgBox("Relatório de HORAS DE RETRABALHO salvo com sucesso!", vbOKOnly) = vbYes Then
    End If
End Sub

 

aqui funcionou!

[guicrissantos]

45 minutos atrás, deejaywesley disse:

@deejaywesley bom dia...

 

...o que você fez, apenas inibiu aparecer a caixa para direcionamento do diretório porém, mesmo aparecendo a mensagem de "relatório salvo com sucesso" ao final, o mesmo não é gerado.

Tente para você ver e depois vai na pasta onde está o arquivo.

Não terá nenhum PDF lá.

 

Isso é exatamente o que estava acontecendo aqui comigo.

Ele confirma a criação do arquivo, mas não gera o mesmo.

 

No aguardo,

Guilherme.

[deejaywesley]

Bom dia @guicrissantos

 

Eu copiei o código que postei pra você, colei em uma nova planilha e rodei, e como antes funcionou....

gerou o arquivo em pdf e depois exibiu a mensagem de confirmação.

 

o problema é alguma alteração que você esta fazendo ai...

[guicrissantos]

@deejaywesley @deejaywesley Deu certinho meu amigo.

O arquivo estava gerado em MEUS DOCUMENTOS.

Muito obrigado.