Importowanie arkusza Excel 2010 do Access 2010 przy użyciu VBA

Excel 2010 i Access 2010 współpracują, umożliwiając łatwe przenoszenie danych z arkusza kalkulacyjnego do bazy danych. Metoda DoCmd.TransferSpreadsheet w VBA pozwala zaimportować lub wyeksportować dane między tymi programami.

Krok 1 – Utworzenie nowej bazy i modułu VBA

Uruchom Access 2010, wybierz Blank Database i kliknij CREATE. Następnie przejdź do zakładki Database Tools i wybierz Visual Basic, aby otworzyć okno Microsoft Visual Basic. W menu Insert wybierz Module, co doda nowy moduł kodu.

Krok 2 – Dodanie szkieletu procedury

W nowo otwartym module wklej poniższy kod, aby utworzyć podprocedurę:

Private Sub ImportExcelSpreadsheet()
End Sub

Po wpisaniu pierwszej linii naciśnij Enter, aby automatycznie wygenerować End Sub.

Krok 3 – Dodanie kodu importu

Wewnątrz procedury ImportExcelSpreadsheet wklej następujący wiersz, który wykona import arkusza Excel:

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

Krok 4 – Dostosowanie parametrów

Zmień:

• Employees – na nazwę tabeli, w której mają zostać zapisane dane.
• C:\Employees.xlsx – na pełną ścieżkę i nazwę pliku Excel, który chcesz zaimportować.

Następnie naciśnij F5 lub wybierz Run, aby uruchomić procedurę i przenieść dane do Access.