... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$145,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Fazendo Download de uma página Web para um arquivo no formato txt

O objeto XMLHTTP  é usado para baixar a página. E a instrução OPEN do Access para criar e gravar em arquivo txt.  Leia com atenção os comentários:

Public Sub fncDownloadPagina(Url As String, DestFileName As String)
Dim HttpReq As Object
Dim hFile As Integer
On Error GoTo trataErro
Set HttpReq = CreateObject("Msxml2.ServerXMLHTTP.6.0")
'--------------------------
'Abre a página Web indicada
'---------------------------
HttpReq.Open "GET", Url, False
'--------------------------------------
'Passa a página para a variável HttpReq
'--------------------------------------
HttpReq.send
hFile = FreeFile
'---------------------------------------------------------------
'Cria o arquivo txt no local indicado pela variável DestFileName
'---------------------------------------------------------------
Open DestFileName For Output As #hFile
'-------------------------------------------------------------------------
'Passa o código Html/Xml, que está na variável HttpReq, para o arquivo txt
'-------------------------------------------------------------------------
Print #hFile, StrConv(HttpReq.ResponseBody, vbUnicode)
'-------------------
'Fecha o arquivo txt
'-------------------
Close #hFile
MsgBox "Página salva com sucesso...", vbInformation, "Aviso"
Sair:
  Exit Sub
trataErro:
  MsgBox "Não foi possível gravar a página. Verifique se o endereço da _
  página está correto...", vbInformation, "aviso"
  Resume Sair:
End Sub

Mais detalhes  sobre o objeto XMLHTTP aqui

Exemplo de chamada:

fncDownloadPagina "http://www.usandoaccess.com.br","c:\SuaPasta\PaginaUA.txt"

Bom estudo!


 

 


Não há comentário

Envie seu comentário: