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 Таблиця як Recordset Dim TbDef As TableDef Dim Ch як рядок, Lig як довгий, i як ціле Ch = "PAth & NameofDB.MDB" Встановити BDexp = DBEngine.Workspaces (0). (Ch) Встановити таблицю = BDexp.OpenRecordset ("NameofTable", dbOpenDynaset) 'Debug.Print Встановити TbDef = BDexp.TableDefs ("NameofTable") Lig = 3 dim Назва (TbDef.Fields.Count - 1) 'Помістіть заголовки у стовпці З таблицями ("Sheet1") Для i = 0 До TbDef.Fields.Count - 1' Виділіть заголовок 'Debug.Print TbDef.Fields (i) .Name Name (i) = TbDef Поля (i) .Name .Cells (Lig, i + 3) = Ім'я (i) Далі 'Caller з 1-го запису Table.MoveFirst Lig = 4 Хоча не Table.EOF Для i = 0 To TbDef.Fields.Count - 1 "Для всієї лінії. Мережі (Lig, i + 3) = Таблиця (назва (i)) Далі i Lig = Lig + 1 Table.MoveNext" Перейти до наступного запису Wend End With Table.Close BDexp.Close Set BDexp = Нічого Встановити таблицю = Нічого не закінчувати