Как да прехвърлите Excel 2010 към Access 2010 с VBA

Въведение

Excel 2010 и Access 2010 са идеален тандем за прехвърляне на данни между електронна таблица и база данни. Чрез VBA можете да използвате метода DoCmd.TransferSpreadsheet, който позволява импорт от Excel в Access, както и обратния процес – експортиране.

Стъпка 1 – Създаване на нова база данни

Отворете Access 2010, изберете Blank Database и натиснете Create. Отидете в раздела Database Tools и кликнете върху Visual Basic, за да отворите прозореца на Microsoft Visual Basic. В менюто Insert изберете Module, за да добавите нов модул за код.

Стъпка 2 – Дефиниране на процедурата

Копирайте и поставете следния код, за да създадете нова под‑процедура:

Private Sub ImportExcelSpreadsheet()
    ' кодът ще бъде добавен по‑долу
End Sub

Натиснете Enter след реда с Private Sub, за да генерирате автоматично реда End Sub.

Стъпка 3 – Добавяне на кода за импорт

Вътре в създадената процедура поставете следния ред, който изпълнява импорта:

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

Стъпка 4 – Персонализиране на параметрите

Заменете Employees с името на таблицата, в която желаете данните да бъдат импортирани. Също така променете пътя C:\Employees.xlsx със съответния път и име на вашия Excel файл.

Накрая натиснете F5 или кликнете върху Run, за да изпълните процедурата и да импортирате Excel‑таблицата в Access.