Prezados, bom dia!
Por favor, alguém poderia me informar por qual motivo o código abaixo permite selecionar o arquivo porém não permite importar ele?
Dim fDlg As FileDialog
Dim lArquivo As String
Set fDlg = Application.FileDialog(FileDialogType:=msoFileDialogOpen)
With fDlg
.AllowMultiSelect = True
.InitialView = msoFileDialogViewDetails
.Filters.Add "XML", "*.XML", 1 ' o problema é que ele importa o diretório do arquivo e não o arquivo
.InitialFileName = "C:"
End With
If fDlg.Show = -1 Then
lArquivo = fDlg.SelectedItems(1)
Cells(3, 2).Value = lArquivo
Else
MsgBox "Não foi selecionado nenhum arquivo.", vbInformation, "Aviso"
End If
agradeço a todos pela atenção
Postado : 01/06/2018 7:38 am