Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro para criar ja...
 
Notifications
Clear all

Macro para criar janelas

 
2024 - VBA & Macros
Post Recente por marco acv 8 anos atrás
5 Posts
2 Usuários
0 Reactions
925 Visualizações
RSS
 marco acv
(@marco-acv)
Posts: 0
New 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: 0
New 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
 
Postado : 27/03/2017 4:52 pm
 marco acv
(@marco-acv)
Posts: 0
New 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: 0
New Member
 

se isso resolveu o seu problema clique em resolvido

 
Postado : 28/03/2017 10:43 am
 marco acv
(@marco-acv)
Posts: 0
New Member
Topic starter
 

Olá,

Resolveu e muitooooooo :D :D :D :D :D :D

Muito obrigado pela sua ajuda.

Atenciosamente,
Marco

 
Postado : 28/03/2017 1:38 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico