Excel Abrindo arquivos docx e pdf no excel vba

[Fabrizzio Tavares Moretti]

Bom dia a todos. Estou tentando executar um código para uma planilha minha. Essa planilha deve abrir (e salvar o caminho) arquivos .docx e .pdf. O que está acontecendo é que quando mando ele abrir determinado arquivo, ele tenta abrir o arquivo quebrando o caminho que este arquivo se encontra. Por exemplo "E:\Arquivos do outro hd\Aquivos Desktop\Meu Curriculo.docx", ele abre o word, mas o erro se apresenta dessa forma "Não conseguimos encontrar seu arquivo. Ele foi movido renomeado ou excluido "E:\Arquivos.docx" , logo depois apresente o erro "Não conseguimos..."E:\do.docx", "E\:outro.docx", "E:\ hd.docx". Dessa maneira consecutivamente. Alguém sabe como resolver isso, de maneira que ele pegue toda a extensão do caminho do arquivo ? O código usado está em anexo

Detalhe que percebi, quando o caminho e o arquivo não possuem espaços, ele abre normalmente.

 

 

 

codigo.txt

[Basole]

Pode ser que o caminho do arquivo seja longo e o windows não esta conseguindo ler por completo.

Experimente usar esta funcão para "abreviar" o caminho.

Use: GetShortPath(SeuCaminho\SeuArquivo) 

Public Function GetShortPath(path As String) As String
  
  Dim fso As Object
  If fso Is Nothing Then
  Set fso = CreateObject("Scripting.FileSystemObject")
     
  End If
  
  If fso.FileExists(path) Then
      GetShortPath = fso.GetFile(path).ShortPath
      Exit Function
  End If
 
  If fso.FolderExists(path) Then
      GetShortPath = fso.GetFolder(path).ShortPath
     
      Set fso = Nothing
      Exit Function
      
  End If

End Function