Como obter uma tabela do Access para o Excel utilizando DAO

Traduções de Artigos Traduções de Artigos
Artigo: 146406 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Sumário

Nas versões do Microsoft Excel listadas acima, pode utilizar o Data Access Objects (DAO) no Visual Basic for Applications para obter uma tabela do Microsoft Access.

Para fornecer um exemplo de como utilizar o DAO para obter uma tabela do Microsoft Access, a macro descrita neste artigo utiliza a base de dados fornecido com o Microsoft Office Professional para o Windows 95, versão 7.0 e Microsoft Office 97 Professional para Windows. Se seleccionou as opções predefinidas quando instalou o Microsoft Office Professional para Windows 95, versão 7.0, a base de dados estiver localizada numa:
   \MSOffice\Access\Samples\Northwind.mdb
				
se seleccionou as opções predefinidas quando instalou o Microsoft Office 97 Professional para Windows, a base de dados estará localizado em:
   \Program Files\Microsoft Office\Office\Samples\Northwind.mdb
				
se a base de dados Adamastor está localizado numa pasta diferente no computador, terá de editar o código fornecido abaixo antes de o utilizar.

Para utilizar o DAO a macro, tem de referenciar a Microsoft DAO Object Library ou poderá receber o erro "definidos pelo utilizador tipo não definido". Para fazer referência nesta biblioteca no Microsoft Excel versão 7.0, activar uma folha de módulo, clique em References no menu Ferramentas e seleccione a opção "3.0 biblioteca de objectos do Microsoft DAO". Para fazer referência a esta biblioteca na versão do Microsoft Excel 97, clique em References no menu Ferramentas do Visual Basic Editor e seleccione o "Microsoft DAO 3.5 Object Library".

Mais Informação

A Microsoft fornece exemplos de programação apenas, para fins sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, as garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação apresentada e as ferramentas que são utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. Para obter uma tabela do Microsoft Access, siga estes passos:

  1. Estabelecer um objecto de base de dados.
  2. Estabelecer um objecto Recordset.
  3. Obter os cabeçalhos (se desejar).
  4. Obter os dados da tabela.
Depois de obtidos os dados, deve fechar todos os objectos abertos por emitir comandos .Close.

Para obter uma tabela do Microsoft Access programaticamente, utilizar o seguinte Visual Basic para aplicações de código:
Sub GetTable()
'This sub will retrieve all the data in the "Customers" table in
'Northwind

   'Declare variables
   Dim Db As Database
   Dim Rs As Recordset
   Dim Ws As Object
   Dim i As Integer
   Dim Path as String

   'This line will define the Object "Ws" as Sheets("Sheet1")
   'The purpose of this is to save typing Sheets("Sheet1")
   'over and over again
   Set Ws = Sheets("Sheet1")

   'Set the Path to the database. This line is useful because
   'if your database is in another location, you just need to change
   'it here and the Path Variable will be used throughout the code
   Path = "c:\msoffice\access\samples\northwind.mdb"

   'This set of code will activate Sheet1 and clear any existing data
   'After clearing the data it will select cell A1
   Ws.Activate
   Range("A1").Activate
   Selection.CurrentRegion.Select
   Selection.ClearContents
   Range("A1").Select

   'Set the Database, and RecordSet  This Table exists in the database
   Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)

   'This will set the RecordSet to all records in the Customers table
   Set Rs = Db.OpenRecordset("Customers")

   'You could instead set the RecordSet to, for example, the records
   'where the Country Code is "UK", without quotes. To do this, replace
   'the line above: Set Rs = Db.OpenRecordset("Customers") with the
   'following:
   '
   'Set Rs = _
   'Db.OpenRecordset("SELECT * FROM Customers WHERE Country = 'UK';")


   'This loop will collect the field names and place them in the first
   'row starting at "A1"
   For i = 0 To Rs.Fields.Count - 1
      Ws.Cells(1, i + 1).Value = Rs.Fields(i).Name
   Next I

   'The next line simply formats the headers to bold font
   Ws.Range(Ws.Cells(1, 1), Ws.Cells(1, Rs.Fields.Count)).Font.Bold=True

   'The next line will get the data from the recordset and copy it
   'into the Worksheet (Sheet1).
   Ws.Range("A2").CopyFromRecordset Rs

   'This next code set will just select the data region and
   'auto-fit the columns
   Sheets("Sheet1").Select
   Range("A1").Select
   Selection.CurrentRegion.Select
   Selection.Columns.AutoFit
   Range("A1").Select

   Rs.Close
   Db.Close
End Sub
				

Referências

Para obter mais informações sobre acesso a dados, clique no separador Índice remissivo na ajuda do Microsoft Excel, escreva o seguinte texto
acesso a dados de DAO
e faça duplo clique sobre o texto seleccionado para ir para o tópico "Ao aceder ao externos de bases de dados com DAO".

Propriedades

Artigo: 146406 - Última revisão: 11 de outubro de 2006 - Revisão: 2.3
A informação contida neste artigo aplica-se a:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
Palavras-chave: 
kbmt kbdtacode kbhowto kbinterop kbprogramming KB146406 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 146406
Exclusão de Responsabilidade para Conteúdo sem Suporte na KB
Este artigo foi escrito sobre produtos para os quais a Microsoft já não fornece suporte. Por conseguinte, este artigo é oferecido "tal como está" e deixará de ser actualizado.

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com