Ako získať tabuľku z programu Access do programu Excel pomocou DAO

Preklady článku Preklady článku
ID článku: 146406 - Zobraziť produkty, ktorých sa tento článok týka.
Rozbaliť všetko | Zbaliť všetko

SUHRN

Vo verziách programu Microsoft Excel uvedené vyššie, môžete použiť prístup k údajom Objekty (DAO) v jazyku Visual Basic for Applications získať tabuľku z Programu Microsoft Access.

Poskytovať príklad ilustrujú použitie DAO získať tabuľku z Microsoft Access, v tomto článku je opísané makro používa Northwind databáza, ktorá bola dodaná s oboch Microsoft Office Professional pre systém Windows 95, verzie 7.0 a Microsoft Office 97 Professional pre Windows. Ak ste vybraté predvolené možnosti pri inštalácii balíka Microsoft Office Profesionálne pre systém Windows 95, verzie 7.0, databáza nachádza:
   \MSOffice\Access\Samples\Northwind.mdb
				
Ak vyberiete predvolené možnosti pri inštalácii balíka Microsoft Office 97 Professional pre Windows, databáza nachádza:
   \Program Files\Microsoft Office\Office\Samples\Northwind.mdb
				
Ak databáze Northwind nachádza v inom priečinku na vašom počítač, budete musieť upraviť kód uvedené nižšie pred spustením to.

Využívajú objekty DAO v makre, musíte referenčné objekt DAO Microsoft Knižnice alebo vám môže chybové "používateľom definovaný typ nie definované". Vykonaná akcia Referenčná knižnica v programe Microsoft Excel verzia 7.0, aktivujte modul hárok, kliknite na odkazy v ponuke Nástroje a skontrolujte "Microsoft DAO 3.0 Objektová knižnica"možnosť. Odkaz na túto knižnicu v programe Microsoft Excel verzia 97, kliknite na položku odkazy v ponuke Nástroje v programe Visual Basic Editor a skontrolujte "Microsoft DAO 3.5 Object Library".

DALSIE INFORMACIE

Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez ľubovoľnej vyjadrenej alebo implicitnej záruky. Toto zahŕňa, okrem iného, implicitné záruky obchodovateľnosti a vhodnosti pre konkrétny účel. Úroveň odbornosti článku predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu pomôcť vysvetliť funkčnosť konkrétny postup, ale nie modifikuje tieto príklady poskytovať pridanú funkčnosť alebo výstavbe postupy splniť vaše konkrétne požiadavky. Získať tabuľku z programu Microsoft Access, postupujte nasledovne:

  1. Vytvorenie objektu databázy.
  2. Vytvorenie objektu.
  3. Načítať hlavičky (ak sa to vyžaduje).
  4. Načítanie údajov z tabuľky.
Po údaje sa načítajú, by ste mali zatvoriť všetky objekty, ktoré ste otvorili vydaním.Zavrieť príkazy.

Získať tabuľku z programu Microsoft Access pomocou programovania, použite nasledujúce kódu Visual Basic for Applications:
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
				

ODKAZY

Ďalšie informácie o prístupe k údajom, kliknite na kartu Register v Microsoft Pomocník programu Excel, zadajte nasledujúci text
prístup k údajom v DAO
a potom dvakrát kliknite na vybratý text ísť "prístup k vonkajším Databáz s DAO"tému.

Vlastnosti

ID článku: 146406 - Posledná kontrola: 17. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
Kľúčové slová: 
kbdtacode kbhowto kbinterop kbprogramming kbmt KB146406 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:146406
Upozornenie na neaktuálny obsah článku databázy KB
Tento článok obsahuje informácie o produktoch, pre ktoré spoločnosť Microsoft už neposkytuje technickú podporu. Z tohto dôvodu je tento článok publikovaný ako nezmenený a už nebude aktualizovaný.

Odošlite odozvu

 

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