bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Fazendo Download de uma página Web para um arquivo no formato txt

... Assinatura do site por 1 ano + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$100,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

Antes de iniciar sua leitura, clique aqui e cadastre-se para receber comunicados sobre novos artigos.

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: