VBA - Подключение базы данных (MDB) к Excel
Microsoft Excel, популярное программное обеспечение SpreadSheet в Office, позволяет пользователям подключаться к базе данных Microsoft Access MDB. Подключение базы данных Microsoft Access MDB к Excel можно осуществить с помощью макросов. Может потребоваться небольшое знание Excel и макросов. Для подключения базы данных Access к таблицам Excel требуется библиотека объектов Microsoft DAO. Можно открыть базу данных Access в Excel и получить доступ к данным в базе данных. Различные манипуляции с данными, такие как копирование данных в полях в столбцы на листе Excel и другие вычисления, можно выполнить, подключив базу данных Microsoft Access к Excel.
- Добавить ссылку
- Библиотека объектов Microsoft DAO XX
В общем модуле (например, Module1) вставьте код ниже
Sub CopyDBaccess () Dim BDexp как таблица базы данных Dim как набор записей Dim TbDef как TableDef Dim Ch как строка, Lig As Long, i как целое число Ch = "PAth & \ & NameofDB.MDB" Установить BDexp = DBEngine.Workspaces (0) .OpenDatabase (Ch) Установить Table = BDexp.OpenRecordset ("NameofTable", dbOpenDynaset) 'Debug.Print Table.Name Установить TbDef = BDexp.TableDefs ("NameofTable") Lig = 3 dim Name (TbDef.Fields.Count - 1) As String «Поместить заголовки в столбец« С листами »(« Sheet1 ») для i = 0 до TbDef.Fields.Count - 1« Залить влево »- Debug.Print TbDef.Fields (i). Имя (i) = TbDef .Fields (i) .Name .Cells (Lig, i + 3) = Name (i) вызывающая сторона Next 'из 1-й записи Table.MoveFirst Lig = 4, но не Table.EOF для i = 0 в TbDef.Fields.Count - 1 'Для всей строки .Cells (Lig, i + 3) = Таблица (Name (i)) Next i Lig = Lig + 1 Table.MoveNext' Перейти к следующей записи. Завершить с таблицей. Закрыть BDexp. Закрыть Установить BDexp = Nothing Set Table = Nothing End Sub