Object Library . "
Start 3 door de volgende VBA- code
Private sub importExcelData
( )
Type 4 de volgende variabelen die u wilt gebruiken om te lezen Excel : :
Dim xlApp
als Excel om nieuwe sub procedure te creëren . Toepassing
Dim xlBk
Zoals Excel.Workbook
Dim xlSht
Zoals Excel.Worksheet
5
Typ het volgende om variabelen te creëren die je gaat gebruiken in Access : < br
Dim dbRst als Recordset
Dim dbs > Als Database
Dim sqlstr
als Koord
Type 6 de volgende om database- objecten definiëren en definiëren ook de Excel werkboek te gebruiken :
Set
dbs = CurrentDb
Set xlApp = Excel.Application
Stel xlBk = xlApp.Workbooks.Open ( " C : \\ Temp \\ dataToImport.xlsx " )
Set xlSht = xlBk.Sheets ( 1 )
7
Maak een nieuwe tabel met twee kolommen in Access om gegevens uit Excel importeren. Typ de volgende VBA- code om de tafel met behulp van de " DoCmd " object te maken :
sqlstr = " CREATE TABLE excelData ( columnOne TEKST , columnTwo TEXT ) "
DoCmd.SetWarnings
False
DoCmd.RunSQL ( sqlstr )
8
Open de tabel die u zojuist hebt gemaakt met behulp van een van de Recordset-object . Typ het volgende om de tafel te openen en voeg een nieuwe rij :
Set dbRst = dbs.OpenRecordset ( " excelData " )
dbRst.AddNew
Type
9 de volgende om waarden uit de Excel-werkmap te krijgen , slaan ze aan uw tafel en actualiseren van de stemming: .
xlSht.Range
( " A2 " ) Selecteer
dbRst.Fields
( 0 ) Value . = xlSht.Range ( " A2 " ) . Value
xlSht.Range
( " B2 " ) . selecteren
dbRst.Fields
( 1 ) . Value = xlSht.Range ( " B2 " ) . Waarde
dbRst.Update
End 10 uw procedure door het intikken van de volgende VBA-code :
dbRst.Close
dbs.Close
< br >
xlBk.Close
End Sub
Druk op " F5 "
11 om de procedure uit te voeren. De gegevens in uw Excel-werkmap is zojuist geïmporteerd in uw Access-tabel .
