...
Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF +
Diversas Revistas (pdf) de brinde, por apenas
R$182,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!
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
Adquira o kit UsandoAccess e aprenda em alta velocidade
Vídeo - Programação de relatórios - Parte 1
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Criando Ribbons parte 1 - Conhecendo a estrutura Xml
Como carregar o seu menu sem que ele vá para lista de suplementos
| Não há comentário |