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
Postado : 24/03/2017 12:05 pm