? Quando os usuários do Excel precisam de mais extenso conjunto de ferramentas de banco de dados de acesso para manipular seus dados de planilhas , eles podem clicar no ícone " Excel " Acesso " no" Import " painel para duplicar os dados da planilha como uma nova tabela do Access. Mas se os usuários em vez querem manter uma única cópia dos dados , eles podem fazê-lo através da criação de um link , em vez de uma tabela separada. Usando o VBA para criar esta ligação alivia usuários com acesso de ter que criá-lo manualmente , um processo que requer a seleção de opções. Código VBA vai escolher as opções corretas, diminuindo a chance de um possível erro do usuário. Instruções
um

Open Access , em seguida, entrar no Visual Basic ambiente de desenvolvimento integrado (IDE) com a tecla " Alt- F11 ". Insira um novo módulo de código , selecionando " Módulo " do menu "Inserir" do IDE
2

Cole o seguinte sub-rotina em qualquer parte do novo módulo de código : .

Public Sub xstest ()

DoCmd.TransferSpreadsheet acLink , 5, _

" newtable ", " ", True , "A1 : C4 "

End Sub < br >
3

Digite sobre o texto " " (sem as aspas) o nome completo do caminho da planilha Excel você quiser acessar um link. Além disso, digite sobre o texto. "A1 : C4 " a especificação gama completa , incluindo todos os cabeçalhos de campo , da tabela na planilha que você deseja que o link para se referir a

Esta sub-rotina cria um link a partir do Excel planilha que você especificar para uma tabela chamada " newtable ". Access VBA criará automaticamente essa tabela para exibir os dados da ligação. O argumento da função " acLink " conta VBA para criar um vínculo dinâmico, em vez de importar e fazer uma cópia dos dados.
4

Clique em qualquer das declarações do sub-rotina , em seguida, pressione "F5" para executar a sub-rotina . Pressione " Alt- F11 " para voltar a entrar no ambiente padrão do Access , em seguida, clique duas vezes no ícone " newtable " no " Todas as mesas " painel à esquerda da tela. Acesso irá exibir os dados da tabela , que será a mesma que a da folha de cálculo , quando vistos em Excel. (Note que a Microsoft desabilitou o recurso que permite o acesso para editar os dados da planilha. )
5

Pressione " Alt- F11 " para voltar a entrar no IDE do Visual Basic, em seguida, faça as seguintes alterações ao " xstest " sub-rotina : Mude o texto" acLink "para ler " acImport , "e mude " newtable "para ler " newtable2 " . Essas alterações irão instruir o VBA para criar uma nova tabela do Access que as importações , ao invés de links para os dados da planilha . Esta acção irá permitir que os usuários de acesso para modificar os dados da nova tabela (embora estas modificações não serão refletidas na planilha ) .
6

Execute o sub-rotina , como você fez no passo 4, em seguida, pressione " Alt- F8 "para voltar ao Access. Clique duas vezes no ícone " newtable2 " no painel esquerdo da tela, em seguida, editar a nova tabela conforme necessário.