Fazer uma nova pergunta
-
Sergio Cardoso Zacarias
20/04/2019Boa tarde, Prof. Era isso mesmo, pois tive problema com o código que vc passou, onde o mesmo informa que eu devo converter para 64bits e eu não sei como fazer. Sim acabei ficando sem a opção de abrir o recibo selecionado. Obrigado pelo retorno.
Edivan Cabral da Silva
Sem resposta ainda...
-
Sergio Cardoso Zacarias
19/04/2019Prof. Edivam, td bem? Meu nome é Sergio Cardoso Zacarias. Peço que analise a função que usei para abrir o recibo. -------------------------------------------------------------------------- Public Function AbrirPdf() Application.ScreenUpdating = False Dim Filtro As String Dim Titulo As String Dim FileName As String Dim LocalArquivo As String Filtro = "ARQUIVOS PDF (*.pdf)," 'Filtra o tipo de arquivo para abrir Titulo = "SELECIONE O ARQUIVO DESEJADO..." 'Coloca o TÃtulo na caixa de diálogo LocalArquivo = ThisWorkbook.Path & vPasta 'Local onde o arquivo está localizado 'Verifica se há pasta de Recibos ou Relatórios. If Dir(LocalArquivo, vbDirectory) = "" Then MsgBox "AINDA NÃO FORAM CRIADOS " & Right(UCase(vPasta), Len(vPasta) - 1) & _ " NO SITEMA", vbInformation, "ABRIR PDF" Exit Function End If ChDrive (Left(LocalArquivo, 1)) ChDir (LocalArquivo) With Application FileName = .GetOpenFilename(Filtro, 3, Titulo) ChDrive (Left(.DefaultFilePath, 1)) ChDir (.DefaultFilePath) End With If FileName = "Falso" Then Exit Function End If ActiveWorkbook.FollowHyperlink FileName Application.ScreenUpdating = True End Function -------------------------------------------------------------------------- Obrigado Abraços
Edivan Cabral da Silva
Boa noite!!! Sergio, testei aqui e funcionou de boa, está tudo correto nos códigos, não entendi se era para eu ver se tinha erro ou apenas você queria me mostrar os seus códigos, mais enfim de qualquer forma rodou e funcionou, eu acho legal essa parte de abrir a janela para selecionar um arquivo, porem no caso dos recibos a minha ideia foi ao selecionar ele na lista já abri o PDF sem necessidade de abrir a caixa de seleção de arquivos, mais estamos todos juntos nesse barco parabéns pelo código ficou bem bacana... Abraços...