Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Salvar URL em arquivo XML via VBA (Access)
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Qui Nov 26, 2009 4:14 pm
Salvar URL em arquivo XML via VBA (Access)
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.
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.
Re: Salvar URL em arquivo XML via VBA (Access)
Cinthia,
Pode dizer exatamente qual o artigo?
Abraços
Pode dizer exatamente qual o artigo?
Abraços
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Qui Nov 26, 2009 4:14 pm
Re: Salvar URL em arquivo XML via VBA (Access)
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.
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.
Re: Salvar URL em arquivo XML via VBA (Access)
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
É 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
Re: Salvar URL em arquivo XML via VBA (Access)
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!
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!
Re: Salvar URL em arquivo XML via VBA (Access)
Bastos,
Tente isso:
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
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
Abraços