Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Spustite program Microsoft Office Excel a zadajte " údaje1 " v A2 , a " údaje2 " v B2 . Stlačte tlačidlo " Ctrl " a " S " sa otvorí " Uložiť ako " dialógové okno a uloženie zošita v " C : \\ Temp \\ " " . DataToImport.xlsx " ako Kliknite na tlačidlo " Uložiť " a zatvorte aplikáciu Excel .
2
Spustite program Microsoft Office Access , kliknite na tlačidlo " Prázdna databáza " a kliknite na tlačidlo " Vytvoriť " . Kliknite na " Databázové nástroje " a kliknite na " Visual Basic " , otvorte okno editora jazyka Visual Basic . Kliknite na menu " Vložiť " a potom kliknite na tlačidlo " modul " vložiť nový kód modulu . Kliknite na menu " Nástroje " , kliknite na " Odkazy " a zaškrtnite políčko vedľa " Microsoft Excel Začnite zadaním nasledujúci kód VBA vytvoriť nový čiastkové postup : Private Sub importExcelData ( ) Zadajte nasledujúce vytvoriť premenné , ktoré budete používať pre čítanie Excel : Dim oExcel ako Excel . Použitie Dim xlBk Ako Excel.Workbook Dim xlSht Ako Excel.Worksheet Zadajte nasledujúce vytvoriť premenné , ktoré budete používať v programe Access : Dim dbRst ako Recordset Dim dbs ako databáza Dim SQLStr As String Zadajte nasledujúce definovať databázové objekty a tiež definovať Excel zošit na použitie : Set DBS = CurrentDb Set oExcel = Excel.Application Set xlBk = xlApp.Workbooks.Open ( " C : \\ Temp \\ dataToImport.xlsx " ) Set xlSht = xlBk.Sheets ( 1 ) Vytvoriť novú tabuľku s dvoma stĺpcami v programe Access import dát z Excelu . Zadajte nasledujúci kód jazyka VBA k vytvoreniu tabuľky pomocou " DoCmd " objekt : SQLStr = " CREATE TABLE excelData ( columnOne TEXT , columnTwo TEXT ) " DoCmd.SetWarnings False DoCmd.RunSQL ( SQLStr ) Otvorte tabuľku , ktorú práve vytvorili pomocou objektu Recordset . Zadajte nasledujúce otvoriť tabuľku a pridať nový riadok : Set dbRst = dbs.OpenRecordset ( " excelData " ) dbRst.AddNew typ nasledujúce dostať hodnoty zo zošita programu Excel , uložte ich do tabuľky a aktualizovať záznam : xlSht.Range ( " A2 " ) Vyberte klipart dbRst.Fields ( 0 ) Value .. = xlSht.Range ( " A2 " ) . Value celým xlSht.Range ( " B2 " ) . Výber dbRst.Fields ( 1 ) . Value = xlSht.Range ( " B2 " ) . Hodnota dbRst.Update Ukončite postup zadaním nasledujúci kód jazyka VBA : dbRst.Close dbs.Close xlBk.Close End Sub Stlačte " F5 " pre spustenie procedúry . Dáta v zošite programu Excel bol práve importovaný do tabuľky programu Access .
3
4
5
6
7
8
9
10
11
Copyright © počítačové znalosti Všetky práva vyhradené