Come utilizzare VBA per importare dati da Excel in Access

Imparare come utilizzare Visual Basic, Applications Edition per importare dati in Access può rendere l'applicazione di database più dinamico . In VBA , è possibile utilizzare una combinazione di oggetti di aprire una cartella di lavoro di Excel esistente e importare alcuni dati di una tabella in Access . Utilizzare la Libreria oggetti di Microsoft Excel in VBA per aprire la cartella di lavoro . L'oggetto Recordset viene utilizzato per aprire una tabella esistente in Access e salvare dati da Excel in esso. Utilizzando VBA per importare dati in grado di ridurre significativamente la quantità di tempo che passate importare manualmente i dati . Istruzioni
1

lancio di Microsoft Office Excel e digitare " data1 " in A2 , e " data2 " in B2. Premere il tasto " Ctrl " e " S " per aprire la finestra " Salva con nome" finestra di dialogo e salvare la cartella di lavoro in " C : \\ Temp \\ " come " . DataToImport.xlsx " Fare clic su "Salva" e chiudere Excel .
2

lancio di Microsoft Office Access , fare clic su " Database vuoto " e fare clic sul pulsante "Crea " . Fare clic su " Strumenti di database ", e fare clic su " Visual Basic " per aprire la finestra Editor VB . Fai clic sul menu "Inserisci" e poi su " Modulo " per inserire un nuovo modulo di codice . Fai clic sul menu "Strumenti" , clicca su " Riferimenti ", e selezionare la casella accanto a " Libreria oggetti di Microsoft Excel . "
3

Inizia digitando il seguente codice VBA per creare nuova procedura sub :

importExcelData private Sub ( ) economici 4

digitare quanto segue per creare variabili che si intende utilizzare per leggere Excel :

Dim xlApp Come Excel . Applicazione

Dim xlBk Come Excel.Workbook

Dim xlSht Come Excel.Worksheet
5

digitare quanto segue per creare variabili che utilizzerà in Access :

Dim dbRst come Recordset

Dim dbs As Database Dim

sqlstr As String
6

Digitare quanto segue per definire gli oggetti del database e definire anche la Excel cartella di lavoro da utilizzare :

Set dbs = CurrentDb

xlApp = Excel.Application

xlBk = xlApp.Workbooks.Open ( " C : \\ Temp \\ dataToImport.xlsx " ) per

xlSht = xlBk.Sheets ( 1 ) economici 7

Creare una nuova tabella con due colonne in Access per importare dati da Excel . Digitare il seguente codice VBA per creare la tabella utilizzando l' oggetto " DoCmd " :

sqlstr = " CREATE TABLE ExcelData ( columnOne TESTO , columnTwo TESTO ) "

DoCmd.SetWarnings
False

DoCmd.RunSQL ( sqlstr ) economici 8

Aprire la tabella appena creata utilizzando un oggetto Recordset. Digitare quanto segue per aprire la tabella e aggiungere una nuova riga :

dbRst = dbs.OpenRecordset ( " ExcelData " ) per

dbRst.AddNew
9

Tipo quanto segue per ottenere i valori dalla cartella di lavoro di Excel , salvarli sul tavolo e aggiornare il record : .

xlSht.Range ( " A2 " ) Selezionare

dbRst.Fields ( 0 ) Value. = xlSht.Range ( " A2" ) . Valore

xlSht.Range ( " B2" ) . Seleziona

dbRst.Fields ( 1) . Value = xlSht.Range ( " B2 " ) . Valore

dbRst.Update
10