Abrir arquivo em um diretório especifico


#1

Galera bom dia,
Estou realizando um trabalho onde necessito abrir um diretório especifico e conseguir abrir um determinado arquivo excel dentro desse diretório.
A minha função quando eu clico no buttom ela realiza a operação até o especifico diretório, porem não consigo abrir o arquivo excel que contem dentro do diretório.

Segue a código:

Exemplo do diretório: ChDir (“C:\Users\administrador\Documents\Projeto”)

Sub Botão1_Clique()

ChDrive ("C")
ChDir ("C:aqui fica o diretório")
With Application
Dim b As Variant

b = Application.GetOpenFilename("files,*", _
1, "Selecione Para Abrir o Arquivo", , False)
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With

If TypeName(b) = "Boolean" Then Exit Sub

End Sub