[Resolvido]Abrir XML no IE via VBA

Prezados colegas,

Gostaria de abrir o xml selecionado diretamente ao clicar sobre ele.
Consegui fazer informando o nome especifico do arquivo.

Código:

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")

ie.Navigate "C:\Users\Administrador\Desktop\teste2b\teste2\ALPINA-15797.xml"
ie.Visible = True


Desejo  abrir qualquer arquivo selecionado na lista.

Desde já, agradeço a ajuda dos colegas.

Prezados colegas,

Consegui abrir os arquivos com o código abaixo:

Código:

Private Sub XML_DblClick(Cancel As Integer)

diret = Forms!lista!txtLocalXML 'pega o caminho do arquivo na caixa de texto
Dim nome As String
nome = Me.arq 'pega nome arquivo celula da tabela
nomeArq = Dir(diret & "nome", vbArchive)
Dim Ie As Object
   Set Ie = CreateObject("InternetExplorer.Application")
   Ie.Visible = True
   Ie.Navigate (diret & nome)

End Sub

Se alguém tiver uma forma mais eficiente, agradeço!

Olá Isaque,

Se a ideia é ver o conteúdo do ficheiro, baixe o exemplo abaixo:
https://www.maximoaccess.com/t26904-webbrowser-controle-navegador

E coloque o caminho completo com nome do ficheiro ponto extensão e teste.
Se for i pretendido ajuste à sua caixa de listagem.

Abraço

Prezado anteixeira,


Muito obrigado pelo exemplo fornecido.

Atendeu completamente às minhas necessidades.

Abraço!

Olá Isaque,

Obrigado pelo retorno, o fórum agradece.

Abraço