MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Copiar conteúdo de um site

    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 96
    Registrado : 24/10/2017

    [Resolvido]Copiar conteúdo de um site Empty [Resolvido]Copiar conteúdo de um site

    Mensagem  annissima em 23/7/2019, 12:53

    Olá,

    Gostaria de saber se é possível pelo access, acessar um site e copiar seu conteúdo, e armazenar para comparação futura.
    Em seguida, gostaria de saber se é possível acessar o mesmo site, e verificar se houve modificação, e caso positivo, emitir um alerta, e armazenar esse novo conteúdo, em substituição ao anterior, para servir de parâmetro para a próxima verificação.

    Outra possibilidade, seria verificar se no conteúdo do site existe a data de hoje (por exemplo, a macro abre o site e verifica se existe "23/07/2019" no conteúdo). Se sim, emitir alerta...
    Assim, rodando a macro diariamente, seria possível verificar se houve atualização...
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Copiar conteúdo de um site Empty Re: [Resolvido]Copiar conteúdo de um site

    Mensagem  DamascenoJr. em 23/7/2019, 22:15

    Veja se o artigo abaixo ajuda
    usandoaccess.com.br/dicas/capturando-data-e-hora-da-internet.asp


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 96
    Registrado : 24/10/2017

    [Resolvido]Copiar conteúdo de um site Empty Re: [Resolvido]Copiar conteúdo de um site

    Mensagem  annissima em 12/5/2020, 21:27

    Resolvido com o seguinte código:

    Código:
    Private Sub cmdLocalizar_Click()
        Dim strTexto As String
        strTexto = [txt_data].value
        If PaginaWebContem(strTexto) = True Then
             MsgBox "A página contém movimento na data indicada. Selecione o movimento e clique no botão [Adicionar Movimento]"
        Else
             MsgBox "A página não contém movimento na data indicada."
        End If
    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2137
    Registrado : 22/11/2016

    [Resolvido]Copiar conteúdo de um site Empty Re: [Resolvido]Copiar conteúdo de um site

    Mensagem  DamascenoJr. em 12/5/2020, 23:33

    annissima, faltou disponibilizar o código da função PaginaWebContem para sabermos como a busca na página funciona. Very Happy


    Última edição por DamascenoJr. em 12/5/2020, 23:41, editado 1 vez(es)


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 96
    Registrado : 24/10/2017

    [Resolvido]Copiar conteúdo de um site Empty Re: [Resolvido]Copiar conteúdo de um site

    Mensagem  annissima em 12/5/2020, 23:38

    heheheh loira né... Laughing Laughing Laughing Laughing

    Código:
    Private Function PaginaWebContem(ByVal s As String) As Boolean
        Dim i As Long, EHTML
        For i = 1 To WebBrowser1.Document.all.Length
            Set EHTML = WebBrowser1.Document.all.Item(i)
              If Not (EHTML Is Nothing) Then
                If InStr(1, EHTML.innerHTML, s, vbTextCompare) > 0 Then
                    PaginaWebContem = True
                    Exit Function
            End If
        End If
    Next i
    End Function

      Data/hora atual: 9/8/2020, 14:48