Transferarea datelor Excel 2010 în Access 2010 cu VBA

Excel 2010 și Access 2010 de la Microsoft Office funcționează împreună perfect atunci când trebuie să importați date din Excel într-o bază de date Access. Obiectul DoCmd conține metoda TransferSpreadsheet, care permite transferul unui fișier Excel în Access prin intermediul Visual Basic for Applications. Această metodă acceptă și alte formate de fișier, precum Lotus. În mod similar, puteți exporta date din Access către Excel schimbând valoarea enumerării AcDataTransferType în acExport.

Pasul 1

Deschideți Access 2010, faceți clic pe Blank Database și apoi pe butonul Create pentru a crea o bază de date nouă. Accesați fila Database Tools și selectați Visual Basic pentru a deschide fereastra Microsoft Visual Basic. Din meniul Insert, alegeți Module pentru a insera un nou modul de cod.

Pasul 2

Copiați și lipiți următorul cod pentru a crea o procedură sub: Private Sub importExcelSpreadsheet(). Apăsați Enter pentru a genera linia End Sub care închide procedura.

Pasul 3

Copiați și lipiți următorul cod în interiorul procedurii Private Sub importExcelSpreadsheet() pentru a importa un fișier Excel în Access:

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

Pasul 4

Editați Employees și introduceți numele tabelului dorit pentru foaia de calcul. Editați C:\Employees.xlsx și introduceți calea și numele fișierului Excel pe care doriți să-l importați.

Apăsați F5 pentru a rula procedura și a importa fișierul Excel în Access.