Macro para criar janelas

2024 - VBA & Macros

Post Recente por marco acv 8 anos atrás

5 Posts

2 Usuários

0 Reactions

948 Visualizações

RSS

marco acv

(@marco-acv)

Posts: 142

Estimable Member

Topic starter

Prezados,

Por favor, como faço para acrescentar o comando abrir em uma macro já criada?

Código:

Sub Exportar()
    ActiveWorkbook.XmlMaps("nfeProc_Mapa").Export URL:= _
        "C:UsersFiscalDesktopXML alterado.xml"
End Sub

Essa macro exporta o xml, porém ela não permite alterar o nome do arquivo e nem escolher o diretório (tudo o que eu preciso ele não faz :cry: :cry: ).

Preciso que essa macro possibilite ao usuário opção de escolha (que o usuário possa escolher onde salvar e também com o nome que ele quiser).

Se alguém souber, por gentileza, me ajude.

Desde já agradeço a todos que estão visualizando esse tópico.

Atenciosamente,
Marco

Postado : 27/03/2017 2:13 pm

Syrax

(@syrax)

Posts: 160

Estimable Member

marco acv,
me lembro que você já tinha aberto um tópico com o mesmo assunto...

Veja se isso te ajuda...

Sub Exportar()
Dim xmldoc
xmldoc = Application.GetSaveAsFilename(FileFilter:="xml (*.xml), *.xml")
If xmldoc <> False Then
ActiveWorkbook.XmlMaps("nfeProc_Mapa").Export URL:= _
xmldoc
End If
End Sub

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

Postado : 27/03/2017 4:52 pm

marco acv

(@marco-acv)

Posts: 142

Estimable Member

Topic starter

Olá, bom dia!

Muito obrigado pela resposta.

Na verdade eu abri um tópico para realizar o procedimento de importar o xml, porém eu também preciso de uma macro para exportar o xml editado na planilha, hoje eu tenho essa macro que eu postei, porém ela não atende o que preciso :cry: :cry:

Por essa razão eu abri um novo tópico, não sobre o mesmo assunto, pois esse é diferente.

Eu vou realizar um teste e depois envio uma outra resposta.

Muito obrigado pela ajuda por enquanto.

Atenciosamente,
Marco

Postado : 28/03/2017 4:58 am

Syrax

(@syrax)

Posts: 160

Estimable Member

se isso resolveu o seu problema clique em resolvido

Se essa resposta te ajudou e resolveu o seu problema, clique no "joinha" ao lado de citar, e não esqueça de colocar o tópico como resolvido, clicando no ✓

Postado : 28/03/2017 10:43 am