Importação de xml em lote

2024 - VBA & Macros

Post Recente por denisonreis 4 anos atrás

3 Posts

2 Usuários

2 Reactions

3,147 Visualizações

RSS

denisonreis

(@denisonreis)

Posts: 10

Eminent Member

Topic starter

Boa tarde!

Estou usando o código abaixo para fazer importação de xml. O código seleciona vários xml , porém só importa os dados de um único xml.

Alguém poderia me ajudar? Gostaria importar varios xml's.

Segue código:

Sub IMPORTAR_XML()

  Dim intChoice As Integer
  Dim strPath As String

  With Application.FileDialog(msoFileDialogOpen)
    .AllowMultiSelect = True
    .Filters.Clear
    .Filters.Add "XML SOMENTE (*.xml)", "*.xml"
  End With

  intChoice = Application.FileDialog(msoFileDialogOpen).Show

  If intChoice <> 0 Then
    strPath = Application.FileDialog( _
    msoFileDialogOpen).SelectedItems(1)

  End If

  ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import URL:=strPath

End Sub

Editado pela Moderação. Motivo: Procure utilizar o botão Código (< >) sempre que for inserir código VBA ou Fórmulas.

Postado : 11/09/2020 5:47 pm

srobles

(@srobles)

Posts: 231

Estimable Member

@denisonreis

Estou apanhando também, mas com a parte da leitura dos dados na planilha.

Todavia, no seu código somente um XML é aberto por falta de uma laço de verificação. Experimente o que segue :

Sub IMPORTAR_XML()

Dim caixaXML As Office.FileDialog
Dim strPath As String
Dim totalArquivos As Long

totalArquivos = 0

Set caixaXML = Application.FileDialog(msoFileDialogFilePicker)

With caixaXML
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "XML SOMENTE", "*.xml"
.InitialFileName = ThisWorkbook.Path
.InitialView = msoFileDialogViewList
.Title = "Informe o local do(s) arquivo(s) : "
.Show
End With

totalArquivos = caixaXML.SelectedItems.Count

If totalArquivos >= 1 Then

For vArquivo = 1 To totalArquivos
strPath = caixaXML.SelectedItems(vArquivo)
ActiveWorkbook.XmlMaps("nfeProc_Mapa").Import Url:=strPath
Next

End If

End Sub