Notifications
Clear all

vba seleciona o arquivo mas NÃO importa

5 Posts
3 Usuários
0 Reactions
1,085 Visualizações
(@jnexcel)
Posts: 0
New Member
Topic starter
 

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
(@boobymcgee)
Posts: 0
New Member
 

Tenta assim

 
Postado : 01/06/2018 8:27 am
(@jnexcel)
Posts: 0
New Member
Topic starter
 

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.

 
Postado : 01/06/2018 10:08 am
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

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)
 
Postado : 01/06/2018 12:44 pm
(@jnexcel)
Posts: 0
New Member
Topic starter
 

eu vou testar aqui.

muito obrigado pela atenção

 
Postado : 05/06/2018 12:31 pm