MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Captura Dados Internet

    avatar
    PatyNummer
    Novato
    Novato

    Respeito às Regras 100%

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

    Captura Dados Internet Empty Captura Dados Internet

    Mensagem  PatyNummer em 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
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Captura Dados Internet Empty Re: Captura Dados Internet

    Mensagem  marcelo3092 em 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: 21/9/2019, 17:02