MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Captura Dados Internet

    avatar
    PatyNummer
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 1
    Registrado : 26/06/2017

    Captura Dados Internet Empty Captura Dados Internet

    Mensagem  PatyNummer 20/4/2019, 13:45

    Bom dia!

    Estou criando uma função para capturar informações de filmes de um site.
    Esse VBA funciona perfeitamente no Excel, mas eu gostaria de colocar ele no Access.
    Tenho uma tabela no Access chamada MSC e um chamado filme em formato texto que consta as informações que deveriam ser imputadas no site e um campo chamado detalhes formato texto que deveria trazer as informações do site.
    Vocês poderiam me ajudar a arrumar esse VBA para trazer as informações para minha tabela.
    Segue abaixo o VBA.

    Sub BuscaDados()
    Dim ie As Object
    Dim alin As Long
    Dim sFilme As String
    iLin = 2
    'Busca dados da internet
    Set ie = CreateObject("internetexplorer.application")
    ie.Visible = False
    'Vai para página que quer capturar
    sFilme = Replace(Range("b1").Text, " ", "+")
    ie.navigate "http://www.adorocinema.com/busca/?q=" & sFilme
    Do While ie.busy
    Loop
    'Seta a tabela onde estão as informações
    Set Tabela = ie.Document.all.tags("tr")
    For i = 0 To Tabela.Length - 1
    sFilme = Replace(Tabela.Item(i).innerText, Chr(10), "")
    If Not IsNumeric(Left(sFilme, 1)) Then
    If sFilme <> "" Then
    Cells(iLin + 1, "A").Value = sFilme
    iLin = iLin + 1
    End If
    End If

    Next
    ____

    Grata

    Patrícia Batista
    marcelo3092
    marcelo3092
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 250
    Registrado : 19/08/2010

    Captura Dados Internet Empty Re: Captura Dados Internet

    Mensagem  marcelo3092 20/4/2019, 20:55

    Bom amigo o bom seria vc colocar a planilha para poder ver
    porque ai
    sFilme = Replace(Range("b1").Text, " ", "+") b1 ta referenciando uma celula do excel.
    Posta ela toda pra poder ver

      Data/hora atual: 1/8/2021, 12:23