1.Первым делом заходишь в "Источники данных (ODBC)"
выбираешь вкладку "Пользовательский DNS"
нажимаешь кнопку "Добавить..."
выбираешь в списке:
"Microsoft Access Driver (*.mdb)"
нажимаешь "Готово"
Далее задаёшь "Имя источника данных", например Access_BD,
дальше нажимаешь кнопку "Выбрать" и указываешь путь к твое базе на Access, в которую необходимо писать данные из Excel.
Нажимаешь ок. В списке "Пользовательский DNS" должен появиться источник данных с именем Access_BD.
Нажимаешь ок.
2. Запускаешь Excel.
Тут есть много различных способов как заставить данные перейти в Аксес.
Например:
добавляешь к стандартным кнопкам, кнопки "Элементов управления"
Далее на лист (экселю) вставляешь кнопку. Два раза на ней нажимаешь и попадаешь в Редактор VBA.
В нем заходишь в меню "Tools->References..."
К уже подключиным библеотекам добавляешь:
Microsoft ActiveX Data Objects 2.1 Library
Microsoft DAO 3.6 Objects Library
вроде всё, но могут туда автоматом добавиться и некоторые другие.
Затем в редакторе код должен выглядеть примерно так:
Private Sub CommandButton1_Click() ' Это строка создаёться автоматом
Dim conn As New ADODB.Connection 'Объявляем подключение
Dim rs As New ADODB.Recordset 'Объявляем запись
conn.Open "ODBC;DATABASE=db10.mdb;UID=;PWD=;DSN=Access10" 'Открываем конект к ' базе Access
'(Access10 - то самое имя из Пользовательского DNS, db10.mdb - имя файла самой БД)
rs.Open "select * from a", conn, adOpenStatic, adLockOptimistic
'открываем необходимую таблицу (у меня она просто - a)
' ТУТ можно вставить цикл добавляющий из любых полей Excel`я любых данных в базу
' Наприме так:
rs.AddNew 'создаём новую запись в этой таблице
rs![a] = 546546 'записываю в поле "a", таблици "a" че нибуть
rs.Update 'Подтверждаю обновление
rs.Close 'Закрываю запись
conn.Close ' Закрываем соединение.
Set rs = Nothing '
End Sub
подробно о проекте
Анализ криптографических сетевых...
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
