vba seleciona o arquivo mas NÃO importa

2024 - VBA & Macros

Post Recente por JNEXCEL 6 anos atrás

5 Posts

3 Usuários

0 Reactions

1,091 Visualizações

RSS

JNEXCEL

(@jnexcel)

Posts: 298

Reputable 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

(@boobymcgee)

Posts: 84

Trusted Member

Tenta assim

Postado : 01/06/2018 8:27 am

JNEXCEL

(@jnexcel)

Posts: 298

Reputable 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

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious 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)

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

Postado : 01/06/2018 12:44 pm