Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Salvar URL em arquivo XML via VBA (Access)

Perguntas e Repostas sobre os artigos, posts e arquivos que são postados no site
Cinthia Ouchi
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Nov 26, 2009 4:14 pm

Salvar URL em arquivo XML via VBA (Access)

Mensagem por Cinthia Ouchi »

Olá Tomáz,
O seu artigo sobre interação do Access com o IE via VBA foi para mim muito útil, entretanto não estou conseguindo salvar a URL gerada em arquivo XML via código VBA. Você teria alguma dica para me dar?

Obrigada,
Cinthia.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Salvar URL em arquivo XML via VBA (Access)

Mensagem por webmaster »

Cinthia,

Pode dizer exatamente qual o artigo?

Abraços


Cinthia Ouchi
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Nov 26, 2009 4:14 pm

Re: Salvar URL em arquivo XML via VBA (Access)

Mensagem por Cinthia Ouchi »

Tomás,

O artigo é este : http://www.tomasvasquez.com.br/blog/mic ... t-explorer

O artigo trata de como se abrir uma instancia do IE e passar os parâmetros para o site via código.

Utilizando o mesmo Objeto Internet Explorer, dentro do VBA, eu gostaria de salvar a URL em um arquivo XML. Importarei este XML posteriormente para uma tabela no Access. Você tem idéia de qual membro do obj IE eu posso usar para me possibilitar esta ação?

Obrigada,

Cinthia.


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Salvar URL em arquivo XML via VBA (Access)

Mensagem por webmaster »

Cinthia,

É só a URL? Nada mais? Se for isso, precisa mesmo ser em um arquivo XML? Não dá para mandar direto para o Access?

Primeiramente, vou assumir que a URL você já tem, até porque precisa dela para acessar o site que precisa. Se mesmo assim for necessário exportar para o XML, recomendo que coloque a URL em uma célula da sua planilha e exporte o arquivo para um XML. Bem mais simples do que escrever uma rotina que "fabrique" todo o XML.

Se for o caso, continuamos.

Abraços


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Bastos
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sex Mai 21, 2010 9:54 am

Re: Salvar URL em arquivo XML via VBA (Access)

Mensagem por Bastos »

Bom dia Tomáz!

Estou com este mesmo problema, mas com uma macro no excel.
Preciso apenas salvar a URL depois que ela carregar, mas não sei como fazer isso.
Então fui pesquisando e consegui este código:

Dim IEapp As Object
Dim IEdoc As Object
Dim URL As String
URL = "http://www.teste.com.br"
Set IEapp = New InternetExplorer

'Abre o IE e via para o site...
With IEapp
.Visible = True
.Navigate URL
End With

' Espera enquanto IE termina de carregar
While IEapp.Busy
DoEvents
Wend

Até aqui, beleza! Mas e agora? Como eu salvo a página utilizando essa instância do IE??
Desde já, agradeço!


Avatar do usuário
webmaster
Administrador
Mensagens: 3114
Registrado em: Sex Jul 24, 2009 2:44 pm
Contato:

Re: Salvar URL em arquivo XML via VBA (Access)

Mensagem por webmaster »

Bastos,

Tente isso:

Código: Selecionar todos

Sub Teste()
    Dim IEapp As InternetExplorer
    Dim URL As String
    URL = "http://www.tomasvasquez.com.br"
    Set IEapp = New InternetExplorer

    'Abre o IE e via para o site...
    With IEapp
        .Visible = False
        .Navigate URL
    End With

    ' Espera enquanto IE termina de carregar
    While IEapp.Busy
        DoEvents
    Wend
    'Coloca o conteúdo do HTML na janela de verificação imediata
    Debug.Print IEapp.Document.body.outerHTML
    'Fecha o IE
    IEapp.Quit
End Sub
O IEapp.Document.body.outerHTML é a variável que contém o HTML da página. Daí em diante é só salvar o arquivo.

Abraços


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder