Come recuperare una tabella da Access in Excel con DAO

Il presente articolo è stato tradotto tramite il software di traduzione automatica di Microsoft e non da una persona. Microsoft offre sia articoli tradotti da persone fisiche sia articoli tradotti automaticamente da un software, in modo da rendere disponibili tutti gli articoli presenti nella nostra Knowledge Base nella lingua madre dell’utente. Tuttavia, un articolo tradotto in modo automatico non è sempre perfetto. Potrebbe contenere errori di sintassi, di grammatica o di utilizzo dei vocaboli, più o meno allo stesso modo di come una persona straniera potrebbe commettere degli errori parlando una lingua che non è la sua. Microsoft non è responsabile di alcuna imprecisione, errore o danno cagionato da qualsiasi traduzione non corretta dei contenuti o dell’utilizzo degli stessi fatto dai propri clienti. Microsoft, inoltre, aggiorna frequentemente il software di traduzione automatica.

Clicca qui per visualizzare la versione originale in inglese dell’articolo: 146406
Questo articolo è stato archiviato. L’articolo, quindi, viene offerto “così come è” e non verrà più aggiornato.
Sommario
Nelle versioni di Microsoft Excel elencati in precedenza, è possibile utilizzare DAO (Data Access Objects) in Visual Basic, Applications Edition per recuperare una tabella da Microsoft Access.

Per fornire un esempio di come è possibile utilizzare DAO per recuperare una tabella da Microsoft Access, la macro descritta in questo articolo utilizza il database Northwind fornito con Microsoft Office Professional per Windows 95, versione 7.0 e Microsoft Office 97 Professional per Windows. Se selezionate le opzioni predefinite quando è installato Microsoft Office Professional per Windows 95, versione 7.0, il database si trova in:
   \MSOffice\Access\Samples\Northwind.mdb				
se è stato selezionato le opzioni predefinite durante l'installazione di Microsoft Office 97 Professional per Windows, il database si trova:
   \Program Files\Microsoft Office\Office\Samples\Northwind.mdb				
se il database Northwind si trova in una cartella diversa sul computer, sarà necessario modificare il codice fornito di seguito prima di eseguirla.

Per utilizzare DAO della macro, è necessario fare riferimento alla libreria di oggetti di Microsoft DAO o si venga visualizzato l'errore "definito dall'utente tipo non definito". Fare riferimento a questa libreria in Microsoft Excel versione 7.0, di attivare un foglio di modulo, scegliere Riferimenti dal menu Strumenti e selezionare l'opzione "Microsoft DAO 3.0 Object Library". Per fare riferimento la raccolta in versione di Microsoft Excel 97, è necessario scegliere Riferimenti dal menu Strumenti in Visual Basic Editor e verificare di "Microsoft DAO 3.5 Object Library".
Informazioni
Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia espressa o implicita. Questo include, ma non è limitato a, le garanzie implicite di commerciabilità o idoneità per uno scopo specifico. Questo articolo si presuppone che conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug di procedure. Tecnici del supporto Microsoft possono spiegare la funzionalità di una particolare procedura, ma in nessun sono caso a modificare questi esempi per fornire funzionalità aggiuntive o creare procedure per soddisfare specifiche esigenze. Per recuperare una tabella da Microsoft Access, attenersi alla seguente procedura:

  1. Definire un oggetto database.
  2. Definire un oggetto Recordset.
  3. Consente di recuperare le intestazioni (se necessario).
  4. Recuperare i dati dalla tabella.
Dopo aver recuperati i dati, è necessario chiudere tutti gli oggetti che è stato aperto inviando comandi .Close.

Per recuperare a livello di programmazione di una tabella da Microsoft Access, utilizzare Visual Basic seguente codice, Applications Edition:
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				
Riferimenti
Per ulteriori informazioni sull'accesso ai dati, fare clic sulla scheda indice nella Guida di Microsoft Excel, digitare il testo riportato di seguito
accesso ai dati in DAO
e fare doppio clic sul testo selezionato per passare all'argomento "Accesso a database esterni con DAO".
OFF7 XL7 8.00 97 XL97 OFF97 XL

Avviso: questo articolo è stato tradotto automaticamente

Proprietà

ID articolo: 146406 - Ultima revisione: 12/04/2015 14:09:22 - Revisione: 2.3

Microsoft Excel 97 Standard Edition, Microsoft Excel 95 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbhowto kbinterop kbprogramming KB146406 KbMtit
Feedback