Jak importovat tabulku z Excelu 2010 do Accessu 2010 pomocí VBA

Excel 2010 a Access 2010 úzce spolupracují, pokud potřebujete importovat data z Excelu do databáze Access. Objekt DoCmd obsahuje metodu TransferSpreadsheet, která umožňuje importovat sešit z Excelu pomocí VBA. Tato metoda podporuje i jiné formáty, například Lotus. Stejnou metodou lze exportovat data z Accessu do Excelu změnou enumerace AcDataTransferType na acExport.

Krok 1 – Vytvoření nové databáze

Spusťte Access 2010, zvolte Blank Database a klikněte na tlačítko Create. Na kartě Database Tools vyberte Visual Basic, čímž otevřete okno Microsoft Visual Basic. V menu Insert zvolte Module a vložte nový modul.

Krok 2 – Vytvoření procedury

Zkopírujte a vložte následující kód a vytvořte novou podproceduru:

Private Sub ImportExcelSpreadsheet()
    ' kód bude doplněn v dalším kroku
End Sub

Krok 3 – Import tabulky

Do těla procedury ImportExcelSpreadsheet vložte tento řádek:

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _
    "Zamestnanci", "C:\Zamestnanci.xlsx", True

Krok 4 – Úprava názvů

Upravte řetězec Zamestnanci na název tabulky, kterou chcete v Accessu vytvořit. Změňte cestu C:\Zamestnanci.xlsx na skutečnou cestu a název vašeho souboru Excel.

Stiskněte F5 a procedura se spustí – data se načtou do nové tabulky v Accessu.