Fazendo Download de uma página Web para um arquivo no formato txt
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
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!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Aprenda sobre filtragens
Trabalhando com Registros - DAO e ADO
Adquira o kit UsandoAccess e aprenda em alta velocidade
Vídeo - Programação de relatórios - Parte 1
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
| Não há comentário |