Visual Basic for Applications (VBA) é a linguagem de programação para o programa de banco de dados Access da Microsoft. VBA pode executar as mesmas funções disponíveis na interface de acesso habitual , incluindo consulta de dados de fontes externas ao Access. Um tipo de dados externa é uma tabela HTML. Consultando essa tabela do Access VBA envolve a conexão com o documento HTML que contém a tabela , em seguida, executar uma consulta sobre a mesa. A principal vantagem de consultar uma tabela HTML a partir do Access VBA é a economia de tempo , substituindo a intervenção do usuário de uma consulta padrão com a automação de uma consulta com base em VBA. Coisas que você precisa
Abra o bloco de notas e cole nele o seguinte documento HTML amostra. Este documento contém uma pequena mesa de dados relacionados a filmes. Você vai consultar esta tabela a partir de um programa Access VBA:
Pressione "Control " + " S " e digite " c: \\ movies.html ." para o nome do arquivo
3 Acesso e prima Abrir "Alt" + " F11 " para entrar no ambiente de programação para VBA.
4
Clique no comando "Inserir" do menu " Módulo " para criar uma nova janela para entrar no sub-rotina de consulta HTML dentro
5
colar o seguinte código do programa para a nova janela. A sub-rotina top cria uma conexão , por meio do comando " TransferText " , com a tabela no arquivo HTML a partir do passo 1. A sub-rotina " queryHTML " irá executar uma consulta SQL sobre os dados da tabela transferidos.
Public Sub importHTMLData ()
Dim tabname Como
corda
tabname = " Filmes " < br >
DoCmd.TransferText acLinkHTML , tabname , "C: \\ movies.html " , -1
End Sub
Public Sub queryHTML ()
Const qry = " qHTML "
Dim dbs Como DAO.Database
Dim RecSet Como DAO.Recordset
Set dbs = CurrentDb
Definir RecSet = dbs.OpenRecordset ( qry )
Do While Not recset.EOF
Debug.Print " Título:" & RecSet [título]
recset.MoveNext
laço !
recset.Close
dbs.Close
End Sub
6
Clique em qualquer declaração na sub-rotina " importHTMLData " , em seguida, pressione " F5 "para executar o sub-rotina.
7
Pressione" Alt "+" F11 "para voltar ao Access, em seguida, clique nas setas do painel de navegação ( " << " ) duas vezes para atualizar os dados do painel. O painel irá agora mostrar uma nova tabela, "Filmes ", que a sub-rotina importHTMLData produzidos .
8
Clique no ícone para o " Movies " mesa no painel de navegação , clique no menu " Criar" , seguido do botão " consulta" na barra de ferramentas principal.
9
clique duas vezes no item de "Movie " na caixa de diálogo " Adicionar mesa " , em seguida, arraste o "*" item da pequena "Movie " janela para primeiro comando da grade da consulta. Esta ação cria uma consulta que a segunda sub-rotina VBA que você escreveu vai usar para buscar dados a partir do novo Filmes mesa.
10
Pressione "Control " + " S ", digite " qHTML " para a consulta de nome.
11
Pressione " Alt " + " F11 " para voltar ao ambiente de desenvolvimento. Clique em qualquer declaração na sub-rotina queryHTML , em seguida, pressione "F5" para executar a sub-rotina.
12
Pressione "Control " + "G" para abrir a janela " imediata" do ambiente de desenvolvimento. A janela irá exibir a saída de declaração debug.print da sub-rotina queryHTML . Essa saída contém os resultados da execução da sub-rotina queryHTML da consulta qHTML ( a partir do Passo 10).
