Este fórum está sendo desativado

[Mafalda]

Boa noite
Por favor como abro janela de importar da imagem pelo vba.




Obrigada.

[alexandrevba]

Bom dia!!

Veja:
https://analysistabs.com/vba/open-file- ... mple-code/

Código: Selecionar todos

Sub Tente()
ActiveWorkbook.XmlImport URL:=Application.GetOpenFilename, ImportMap:= Nothing, Overwrite:=True, Destination:=Range("$A$1")
End Sub

Att

[Mafalda]

Alexandre infelizmente não, porque essa instrução abre janela que permite abrir um arquivo. Preciso abrir aquela janela da aba Desenvolvedor que deixa selecionar vários arquivos e importá-los. Por favor ajude.



Obrigada.

[alexandrevba]

Bom dia!!

Código: Selecionar todos

Sub Teste2()
    fileToOpen = Application.GetOpenFilename("XML Files (*.xml), *.xml", , "Import XML", , True)
    If IsArray(fileToOpen) Then
        For Each fil In fileToOpen
            MsgBox fil
        Next fil
    Else
         ' MsgBox "Mensagem"
    End If
End Sub

Att

[Mafalda]

Obrigada, mas Alexandre quando aperto para abrir ele não inclui os arquivos na tabela (mapeada). Por favor ajude.

[Mafalda]

Nome do mapeamento é "NFPSe_Map".
Obrigada.

[alexandrevba]

Boa tarde!!

Você disse no seu primeiro post

Por favor como abro janela de importar da imagem pelo vba.

Foi o que eu entendi!!
Eu não entendi, veja se alguém que entendeu possa te ajudar...
Leia:
https://www.extendoffice.com/documents/ ... files.html
https://msdn.microsoft.com/en-us/librar ... e.14).aspx

Código: Selecionar todos

Sub AleVBA_5759()
'Fonte:
'http://community.powerbi.com/t5/Desktop/Import-multiple-XML-files/td-p/8900
    ChDir "C:\Users\aleVBA\Downloads"
    fileToOpen = Application.GetOpenFilename("XML Files (*.xml), *.xml", , "Import XML", , True)
    If IsArray(fileToOpen) Then
        Application.DisplayAlerts = False
        For Each fil In fileToOpen
            ActiveWorkbook.XmlMaps("PartQuote_Map").Import URL:=fil
        Next fil
        Application.DisplayAlerts = True
    End If
End Sub

Att

[Mafalda]

Tentei:

Sub M_snb()
For Each fl In Application.GetOpenFilename("XML Files (*.xml), *.xml", , "Import XML", , True)
ActiveWorkbook.XmlMap("NFPSe_Map").Import fl
Next
End Sub

mas apresentou erro



Obrigada.

[Mafalda]

Desculpa pela confusão Alexandre, esse instrução que passe abre todos arquivos, mas sobrepõem um no outro, ou seja não fico com várias linha de dados dos xml, e sim com uma da última.
por favor ajude.