Como recuperar uma tabela do Access para o Excel usando DAO

Traduções deste artigo Traduções deste artigo
ID do artigo: 146406 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Sumário

Nas versões do Microsoft Excel listados acima, você pode usar o Data Access Objects (DAO) no Visual Basic for Applications para recuperar uma tabela do Microsoft Access.

Para fornecer um exemplo de como você pode usar o DAO para recuperar uma tabela do Microsoft Access, a macro descrita neste artigo usa o banco de dados Northwind fornecido com Microsoft Office Professional para Windows 95, versão 7.0 e Microsoft Office 97 Professional para Windows. Se você selecionou as opções padrão quando você instalou o Microsoft Office Professional para Windows 95, versão 7.0, o banco de dados está localizado em:
   \MSOffice\Access\Samples\Northwind.mdb
				
se você selecionou as opções padrão ao instalar o Microsoft Office 97 Professional para Windows, o banco de dados está localizado em:
   \Program Files\Microsoft Office\Office\Samples\Northwind.mdb
				
se o banco de dados Northwind está localizado em uma pasta diferente no seu computador, você precisará editar o código fornecido abaixo antes de você executá-lo.

Para usar o DAO em sua macro, você deve fazer referência a biblioteca de objeto do Microsoft DAO ou você pode receber o erro "User-defined type não definida". Para fazer referência a esta biblioteca no Microsoft Excel versão 7.0, ativar uma planilha de módulo, clique em referências no menu Ferramentas e marque a opção "Microsoft DAO 3.0 Object Library". Para fazer referência a esta biblioteca no Microsoft Excel versão 97, clique em referências no menu Ferramentas no Editor do Visual Basic e verifique o "Microsoft DAO 3.5 Object Library".

Mais Informações

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades. Para recuperar uma tabela do Microsoft Access, siga estas etapas:

  1. Estabelece um objeto de banco de dados.
  2. Estabelece um objeto Recordset.
  3. Recupere os cabeçalhos (se desejado).
  4. Recupere os dados da tabela.
Após os dados são recuperados, você deve fechar todos os objetos que você abriu emitindo comandos .Close.

Para recuperar uma tabela do Microsoft Access programaticamente, usar o Visual Basic a seguir código de VBA:
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 na guia Índice na Ajuda do Microsoft Excel, digite o seguinte texto
acesso a dados no DAO
e, em seguida, clique duas vezes no texto selecionado para ir para o tópico "Acessando externos bancos de dados com DAO".

Propriedades

ID do artigo: 146406 - Última revisão: quarta-feira, 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 traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 146406
Aviso de Isenção de Responsabilidade sobre Conteúdo do KB Aposentado
Este artigo trata de produtos para os quais a Microsoft não mais oferece suporte. Por esta razão, este artigo é oferecido "como está" e não será mais atualizado.

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