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
Tenta assim
Olá, agradeço pela atenção quanto a minha dúvida.
Então...
Na verdade eu estou tentando importar o conteúdo dos arquivos xml
exemplo:
cnpj do emitente
código do produto
descrição do produto
ncm
cfop
o meu código lista os arquivos
seleciona os arquivos
porém não importa o conteúdo existente nos arquivos.
JNEXCEL,
Boa tarde!
Você pode conseguir importar os dados do arquivo .xml com o código abaixo:
ActiveWorkbook.XmlImport URL:= _
"C:UsersF046779DownloadsARQUIVOS PARA TESTEARQUIVOS XML TESTEXML TESTE1.xml" _
, ImportMap:=Nothing, Overwrite:=True, Destination:=Range("$B$4")
Use ele logo após a linha a seguir do seu código:
lArquivo = fDlg.SelectedItems(1)
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
eu vou testar aqui.
muito obrigado pela atenção