Jak importovat data z aplikace Excel do aplikace Access pomocí jazyka VBA

Obsah

• Pokyny

Naučit se používat aplikace Visual Basic for Applications pro import dat do aplikace Access může zvýšit dynamičnost databázové aplikace. V VBA můžete použít kombinaci objektů k otevření listu aplikace Excel a import dat do tabulky aplikace Access. Otevřete list pomocí knihovny objektů pro aplikaci Microsoft Excel v aplikaci VBA. Objekt Recordset se používá k otevření tabulky v aplikaci Access a uložení dat importovaných z aplikace Excel. Použití VBA k importu dat výrazně snižuje čas strávený prováděním procesu ručně.

Pokyny

Import dat z aplikace Excel do aplikace Access pomocí knihovny objektů aplikace Excel (Jupiterimages / Photos.com / Getty Images)

1. Otevřete uzavřený a zadejte "data1" v A2 a "data2" v B2. Stisknutím kláves Ctrl + S dokument uložte. Uložte pracovní list v "C: Tem" s názvem "dataToImport.xlsx". Klepněte na tlačítko Uložit a zavřete aplikaci Excel.

2. Spusťte aplikaci Microsoft Access, klepněte na tlačítko "Nová databáze" a klepněte na tlačítko "Vytvořit". Klepněte na tlačítko "Nástroje databáze" a klepněte na tlačítko "Visual Basic" otevřete editor VB. Klikněte na nabídku "Vložit" a klikněte na "Modul" pro vložení nového modulu kódu. Klepněte na nabídku "Nástroje" a potom "odkazy" a zaškrtněte políčko vedle "Knihovna objektů Microsoft Excel '.

3. Začněte zadáním následujícího kódu VBA a vytvořte nový dílčí postup:

   
   

   Private Sub importExcelData ()

4. Zadejte následující kód pro vytvoření proměnných, které budou použity pro čtení aplikace Excel:

   Dim xlApp jako Excel.Application Dim xlBk jako Excel.Workbook Dim xlSht As Excel.Worksheet

5. Zadejte následující kód pro vytvoření proměnných, které mají být použity v aplikaci Access:

   Dim dbRst jako Recordset Dim dbs jako databáze Dim SQLStr jako řetězec

6. Zadejte následující kód pro definování objektů banky a také definujte, který list chcete použít:

   Set dbs = CurrentDb Set xlApp = Excel.Application Set xlBk = xlApp.Workbooks.Open ("C: TemToImport.xlsx") Nastavit xlSht = xlBk.Sheets (1)

7. Vytvořit novou tabulku se dvěma sloupci v aplikaci Access k importu dat aplikace Excel. Zadejte následující kód vytvořit tabulku pomocí objektu DoCmd: t

   
   

   SQLStr = "CREATE TABLE excelData (columnOne TEXT, columnTwo TEXT)" DoCmd.SetWarnings False DoCmd.RunSQL (SQLStr)

8. Otevřete tabulku, kterou jste právě vytvořili pomocí objektu Recordset. Chcete-li otevřít tabulku a přidat nový řádek, zadejte následující kód:

   Nastavit dbRst = dbs.OpenRecordset ("excelData") dbRst.AddNew

9. Zadejte následující kód získat hodnoty v listu aplikace Excel, uložit je do tabulky a aktualizovat záznam: t

   xlSht.Range ("A2") Vyberte dbRst.Fields (0) .Value = xlSht.Range ("A2") Hodnota xlSht.Range ("B2") Vyberte dbRst.Fields (1) .Value = xlSht. Rozsah ("B2") Hodnota dbRst.Update

10. Dokončete postup zadáním následujícího kódu VBA:

    dbRst.Close dbs.Close xlBk.Close End Sub

11. Postup proveďte stisknutím klávesy F5. Data v listu aplikace Excel budou importována do tabulky aplikace Access.