Momentálne ste offline a čaká sa, kým sa znova pripojíte na internet

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

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
Tento článok bol archivovaný. Je publikovaný v aktuálnej podobe a už nebude aktualizovaný.
SUHRN
Vo verziách programu Microsoft Excel uvedené vyššie, môžete použiť prístup k údajomObjekty (DAO) v jazyku Visual Basic for Applications získať tabuľku zProgramu Microsoft Access.

Poskytovať príklad ilustrujú použitie DAO získať tabuľku zMicrosoft Access, v tomto článku je opísané makro používa Northwinddatabáza, ktorá bola dodaná s oboch Microsoft Office Professional pre systém Windows95, verzie 7.0 a Microsoft Office 97 Professional pre Windows. Ak stevybraté predvolené možnosti pri inštalácii balíka Microsoft OfficeProfesioná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 Office97 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šompočítač, budete musieť upraviť kód uvedené nižšie pred spustenímto.

Využívajú objekty DAO v makre, musíte referenčné objekt DAO MicrosoftKnižnice alebo vám môže chybové "používateľom definovaný typ nie definované". Vykonaná akciaReferenčná knižnica v programe Microsoft Excel verzia 7.0, aktivujte modulhárok, kliknite na odkazy v ponuke Nástroje a skontrolujte "Microsoft DAO3.0 Objektová knižnica"možnosť. Odkaz na túto knižnicu v programe Microsoft Excelverzia 97, kliknite na položku odkazy v ponuke Nástroje v programe Visual Basic Editora 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 otvorilivydaním.Zavrieť príkazy.

Získať tabuľku z programu Microsoft Access pomocou programovania, použitenasledujú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.CloseEnd Sub				
ODKAZY
Ďalšie informácie o prístupe k údajom, kliknite na kartu Register v MicrosoftPomocní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šímDatabáz s DAO"tému.
OFF7 XL7 8.00 97 XL97 OFF97 XL

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 146406 – Posledná kontrola: 12/04/2015 14:09:25 – Revízia: 2.0

Microsoft Excel 97 Standard Edition, Microsoft Excel 95 Standard Edition

  • kbnosurvey kbarchive kbdtacode kbhowto kbinterop kbprogramming kbmt KB146406 KbMtsk
Pripomienky