Код VBA для экспорта данных Excel в Access

Экспорт данных Excel в Access с помощью VBA (изображения и код)

Что это такое?

Этот код VBA поможет вам загрузить или экспортировать данные Excel в Access в один клик.

Почему?

Ты можешь экспортировать данные Excel в Access даже не открывая базу данных Access.

Как экспортировать данные Excel в Access

Шаг 1: Откройте Эксель лист и перейдите в конструктор кода VBA (Alt + F11) и откройте новый модуль

.

Шаг 2: Скопируйте и вставьте в него приведенный ниже код.

Const TARGET_DB = "myDB.accdb" 'Замените 'myDB.accdb' на имя вашей базы данных, убедитесь, что и Excel, и Access DB находятся по одному пути.
Sub PushTableToAccess()
Dim cnn As ADODB.Connection
Dim MyConn
Dim rst As ADODB.Recordset
Dim i As Long, j As Long
Dim Rw As Long

Sheets("Имя листа").Activate 'Замените "Имя листа" на имя вашего листа Excel
Rw = Range("A65536").End(xlUp).Row
'Дайте вашему листу Excel данные Range

Set cnn = New ADODB.Connection
MyConn = ThisWorkbook.Path & Application.PathSeparator & TARGET_DB

С CNN
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open MyConn
Конец с

'Замените 'tblMyExcelUpload' на имя вашей таблицы в Access

Set rst = New ADODB.Recordset
rst.CursorLocation = adUseServer
rst.Open Source:="tblMyExcelUpload", ActiveConnection:=cnn, _
CursorType:=adOpenDynamic, LockType:=adLockOptimistic, _
Параметры:=adCmdTable

'Загрузите все записи из Excel в Access.
For i = 2 To Rw
rst.AddNew
Для j = 1 - 7
rst(Cells(1, j).Value) = Cells(i, j).Value
Следующий j
rst.Update
Следующий i

' Закройте соединение
rst.Close
cnn.Close
Set rst = Nothing
Set cnn = Nothing

Конец субтитра

Шаг 3Нажмите кнопку "Выполнить" или F5. (Также вы можете вставить кнопку/форму в лист excel, затем щелкнуть правой кнопкой мыши и назначить этот макрос для выполнения каждый раз). Вы закончили загрузку!!! Записи Excel успешно загружены в Access, откройте таблицу Access DB и проверьте данные.

Примечание: Убедитесь, что 'Microsoft ActiveX Data Objects Library' включена в меню Инструменты - Ссылки (используйте последнюю версию [6.1 на момент публикации]).

Pin