Boa tarde,
Pessoal, eu preciso de uma função no VBA que eu possa selecionar um arquivo e gravar o nome do arquivo e caminho dele em duas células. O caminho do arquivo eu consegui, conforme o código abaixo. Mas o nome do arquivo não, alguém pode me ajudar? Por exemplo: Célula B2 = C:User/Documents/Vendas.xlsx Célula C2= Vendas
Public Function AbrirArquivo() As String
Dim Filtro As String
Dim Titulo_da_Caixa As String
Dim Arquivo As Variant
Filtro = "Todos os Arquivos (*.*),"
Titulo_da_Caixa = "Selecione o arquivo"
ChDrive ("C")
ChDir ("C:\")
With Application
Filename = .GetOpenFilename(Filtro, 3, Titulo_da_Caixa)
ChDrive (Left(.DefaultFilePath, 1))
ChDir (.DefaultFilePath)
End With
If Filename = False Then
MsgBox "Nenhum arquivo foi selecionado."
Exit Function
End If
AbrirArquivo = Filename
Planilha2.Range("B2") = AbrirArquivo
End Function
Desde já, obrigado!