[Resolvido]Copiar conteúdo de um site

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...

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

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

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

heheheh loira né...

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