O ideal seria colocar a sua rotina completa para saber qual váriavel está utilizando, se for "caminho", para retornar o nome do arquivo pode utilizar "Dir(Caminho)", fica mais fácil você analizando na rotina abaixo, ela faz praticamente a mesma coisa, abre a caixa para selecionar o arquivo e retorna só o nome :
Sub AbrirArquivo()
Dim Caminho As String 'Caminho do arquivo
Dim fDialog As Office.FileDialog
Dim nome As Variant
Dim sNomeArquivo As String
'Configura caixa de seleção do arquivo
Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
.AllowMultiSelect = False 'Habilita ou desabilita a seleção de múltiplos arquivos
.Title = "Selecionar arquivo..."
'.InitialFileName = 'Caminho inicial para seleção, não utilizado no exemplo
'Configura filtros da caixa de seleção
.Filters.Clear 'Limpa os filtros
.Filters.Add "Arquivos Excel - .xls", "*.xls" 'Adiciona filtro para arquivos .xlsb
If .Show = True Then 'Se o parâmetro .Show for igual à True significa
'que algum arquivo foi selecionado
Caminho = .SelectedItems.Item(1) 'Local + arquivo selecionados são passados para
'Só o Nome sem o "Caminho"
sNomeArquivo = Dir(Caminho)
'Msg só para confirmação
MsgBox sNomeArquivo
End If
End With
End Sub
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/09/2016 12:55 pm