Fábio, poderia ter especificado isso antes ou ter enviado o arquivo antes...
Veja se isso te ajuda
Sub abrir()
Dim i As String
i = Application.ActiveWorkbook.Path & "" & ThisWorkbook.Sheets("Rela").Range("C8").Value & ".xlsx"
If Dir(i) <> "" Then
Workbooks.Open i
Else
MsgBox "O arquivo não existe no local especificado"
End If
End Sub
se todos os arquivos forem *.xlsx o código vai funcionar, pois como eu disse, você precisa especificar o caminho corretamente, o que inclui a extensão do mesmo
digite o nome do arquivo sem a extensão e tente abrir, a macro vai procurar o arquivo dentro da mesma pasta onde está a sua planilha
Se isso te ajudou, clique no "joinha" ao lado de citar
Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓
Postado : 24/03/2017 12:05 pm