MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Abrir XML no IE via VBA

    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Abrir XML no IE via VBA Empty [Resolvido]Abrir XML no IE via VBA

    Mensagem  ictsp 24/1/2019, 11:54

    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.
    [Resolvido]Abrir XML no IE via VBA Duvida11
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Abrir XML no IE via VBA Empty Re: [Resolvido]Abrir XML no IE via VBA

    Mensagem  ictsp 29/1/2019, 15:56

    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!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Abrir XML no IE via VBA Empty Re: [Resolvido]Abrir XML no IE via VBA

    Mensagem  Alvaro Teixeira 29/1/2019, 18:47

    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
    avatar
    ictsp
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/09/2016

    [Resolvido]Abrir XML no IE via VBA Empty Re: [Resolvido]Abrir XML no IE via VBA

    Mensagem  ictsp 1/2/2019, 12:05

    Prezado anteixeira,


    Muito obrigado pelo exemplo fornecido.

    Atendeu completamente às minhas necessidades.

    Abraço!

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7914
    Registrado : 15/03/2013

    [Resolvido]Abrir XML no IE via VBA Empty Re: [Resolvido]Abrir XML no IE via VBA

    Mensagem  Alvaro Teixeira 1/2/2019, 12:22

    Olá Isaque,

    Obrigado pelo retorno, o fórum agradece.

    Abraço

    Conteúdo patrocinado


    [Resolvido]Abrir XML no IE via VBA Empty Re: [Resolvido]Abrir XML no IE via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 22:36