Página 1 de 1
Abrir janela
Enviado: 02 Nov 2017 às 21:08
por Mafalda
Boa noite
Por favor como abro janela de importar da imagem pelo vba.
Obrigada.
Re: Abrir janela
Enviado: 03 Nov 2017 às 07:31
por alexandrevba
Bom dia!!
Veja:
https://analysistabs.com/vba/open-file- ... mple-code/
Código: Selecionar todosSub Tente()
ActiveWorkbook.XmlImport URL:=Application.GetOpenFilename, ImportMap:= Nothing, Overwrite:=True, Destination:=Range("$A$1")
End Sub
Att
Abrir janela
Enviado: 03 Nov 2017 às 09:40
por 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.
Re: Abrir janela
Enviado: 03 Nov 2017 às 09:56
por alexandrevba
Bom dia!!
Código: Selecionar todosSub 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
Abrir janela
Enviado: 03 Nov 2017 às 11:24
por Mafalda
Obrigada, mas Alexandre quando aperto para abrir ele não inclui os arquivos na tabela (mapeada). Por favor ajude.
Abrir janela
Enviado: 03 Nov 2017 às 11:32
por Mafalda
Nome do mapeamento é "NFPSe_Map".
Obrigada.
Re: Abrir janela
Enviado: 03 Nov 2017 às 11:40
por 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 todosSub 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
Abrir janela
Enviado: 03 Nov 2017 às 11:41
por 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.
Abrir janela
Enviado: 03 Nov 2017 às 11:51
por 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.