Listar e Abrir arqu...
 
Notifications
Clear all

Listar e Abrir arquivos PDF por nome aproximado contido em uma célula


Cyllacelos
Posts: 4
Registered
Topic starter
(@cyllacelos)
New Member
Entrou: 3 meses atrás

Bom dia, pessoal!

Tenho uma planilha que gera gráficos de pacientes e salva o arquivo em PDF como "Nome do paciente + data + preenchedor do gráfico".

Quando este paciente voltar, eu quero ter a oportunidade de listar todos os arquivos salvos com nome dele e ter a possibilidade de abrir um deles ao clicar sobre ele ou emalgum outro campo que faça referencia. 

Ex.: A Priscylla vai todo mês e jé tem 3 arquivos salvos: "Priscylla 01_07_21 Maria", Priscylla 01_07_21 Maria", "Priscylla 01_08_21 João". Quando ela for em 01_09, e eu digitar no nome dela dela em "X1", deve listar todos estes 3 arquivos para eu abrir o referente ao mês que me interessa.

X1 é o campo de nome, eu só posso pesquisar por parte do nome do arquivo, pois não saberei em que data o paciente foi, nem quem preencheu o gráfico. 

Se não for possível assim, pode ser a opção de abrir apenas o último arquivo salvo constando o nome da daquele paciente.

 

A pasta onde vou pesquisar tem subpastas de ano e mês, então preciso fazer uma varredura na pasta "principal" : Pacientes>2021>Julho     /      Pacientes>2021>Agosto

 

Eu usei este código, que peguei aqui no fórum mesmo, mas sempre retorna a msg de "Arquivo não encontrado".

Coloquei Range(X1) no 'nome do arquivo, e "C:Pacientes" em 'Path.

Mesmo salvando um arquivo com o nome exato da célula X1, dentro da pasta principal, sem entrar nas subpastas (Pacientes), ela não encontra o arquivo.

 

Se puderem me ajudar, ficarei muito grata. 

Sub VerificaArquivoAbre()
    Dim FileName As String
    Dim Path As String
    Dim sPath As String
    Dim meuArqu As String
    
    Path = "C:SeuDiretorio"
    
    sPath = Path
    
    meuArqu = "Planilhan*" 'Nome Arquivo
   
   'VERIFICA SE O CAMINHO EXISTE
    If Not Dir(sPath, vbDirectory) = vbNullString Then
         'SE EXISTIR
         'adiciona a barra, se não houver
         If Right(sPath, 1) <> "" Then sPath = sPath & ""
            'monta o caminho completo do arquivo
            FileName = Dir(sPath & meuArqu)

        Else

            MsgBox "O CAMINHO :" & Chr(13) & sPath & Chr(13) & "NÃO EXISTE"
            Exit Sub
    End If
      
    'VERIFICA SE O ARQUIVO EXISTE
    If FileName = "planilhando.xls" Then
       'SE EXISTIR, Coloque aqui sua chamada para abrir o arquivo
        MsgBox "OK, Arquivo encontrado"
        Workbooks.Open FileName:=sPath & FileName
       
       Exit Sub
    Else
            MsgBox "O Arquivo:" & Chr(13) & meuArqu & Chr(13) & "NÃO existe !!!"
    End If
        
End Sub
Responder
1 Reply
1 Responder
teleguiado
Registered
(@teleguiado)
Entrou: 6 anos atrás

Estimable Member
Posts: 138

@cyllacelos 

Uma coisa que percebi é que o caminho esta errado tente assim:

Path = "C:\SeuDiretorio"
Responder