В настоящее время вы работаете в автономном режиме; ожидается повторное подключение к Интернету

Получение таблицы из Access в Excel с помощью DAO

ВНИМАНИЕ! Перевод данной статьи был выполнен не человеком, а с помощью программы машинного перевода, разработанной корпорацией Майкрософт. Корпорация Майкрософт предлагает вам статьи, переведенные как людьми, так и средствами машинного перевода, чтобы у вас была возможность ознакомиться со статьями базы знаний KB на родном языке. Однако машинный перевод не всегда идеален. Он может содержать смысловые, синтаксические и грамматические ошибки, подобно тому как иностранец делает ошибки, пытаясь говорить на вашем языке. Корпорация Майкрософт не несет ответственности за неточности, ошибки и возможный ущерб, причиненный в результате неправильного перевода или его использования. Корпорация Майкрософт также часто обновляет средства машинного перевода.

Эта статья на английском языке:146406
Эта статья помещена в архив. Она предлагается "как есть" и обновляться не будет.
Аннотация
В версиях Microsoft Excel, перечисленных выше можно использовать доступ К даннымОбъекты (DAO) в Visual Basic для приложений для извлечения из таблицыMicrosoft Access.

Пример того, как использовать DAO для извлечения из таблицыMicrosoft Access макросы, описанные в этой статье использует "Борей"базы данных, входящим в обоих Microsoft Office Professional для Windows95, версии 7.0 и Microsoft Office 97 Professional for Windows. Если выВыбранные параметры по умолчанию при установке Microsoft OfficeПрофессиональные для Windows 95 версии 7.0, база данных находится в:
   \MSOffice\Access\Samples\Northwind.mdb				
Если выбраны параметры по умолчанию при установке Microsoft Office97 Professional для Windows, база данных находится в:
   \Program Files\Microsoft Office\Office\Samples\Northwind.mdb				
Если в базе данных "Борей" находится в другой папке на вашемкомпьютер, необходимо будет изменить в коде, приведенном ниже, прежде чем запуститьего.

Чтобы использовать DAO в макрос, необходимо обратиться к объектов Microsoft DAOБиблиотека или появляется сообщение об ошибке «определяемый пользователем тип не определен». Дляссылки на эту библиотеку в Microsoft Excel версии 7.0, активировать модульлист, щелкните ссылки в меню Сервис и проверьте "Microsoft DAOВариант 3.0 библиотека». Для ссылки на эту библиотеку в Microsoft ExcelOffice 97, выберите ссылки в меню Сервис в редакторе Visual Basicи установите флажок «3.5 библиотеку объектов Microsoft DAO».
Дополнительная информация
Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации Это включает, но не ограничивается, подразумеваемые гарантии товарности или пригодности для определенной цели. В данной статье предполагается, что вы знакомы с языком программирования предложенном и с помощью средств, которые используются для создания и отладки. Сотрудники службы поддержки Майкрософт могут пояснить конкретной процедуры, но они будут изменять примеры для реализации дополнительных возможностей или удовлетворения конкретных требований. Загрузка таблицы из Microsoft Access, выполните следующие действия.

  1. Создание объекта базы данных.
  2. Создайте объект набора записей.
  3. Загрузить заголовки (при необходимости).
  4. Извлечь данные из таблицы.
После получения данных необходимо закрыть все объекты, было открытопутем выдачи.Команд Close.

Загрузка таблицы из Microsoft Access программно, с помощьюСледующий код Visual Basic для приложений:
Sub GetTable()'This sub will retrieve all the data in the "Customers" table in'Northwind   'Declare variables   Dim Db As Database   Dim Rs As Recordset   Dim Ws As Object   Dim i As Integer   Dim Path as String   'This line will define the Object "Ws" as Sheets("Sheet1")   'The purpose of this is to save typing Sheets("Sheet1")   'over and over again   Set Ws = Sheets("Sheet1")   'Set the Path to the database. This line is useful because   'if your database is in another location, you just need to change   'it here and the Path Variable will be used throughout the code   Path = "c:\msoffice\access\samples\northwind.mdb"   'This set of code will activate Sheet1 and clear any existing data   'After clearing the data it will select cell A1   Ws.Activate   Range("A1").Activate   Selection.CurrentRegion.Select   Selection.ClearContents   Range("A1").Select   'Set the Database, and RecordSet  This Table exists in the database   Set Db = Workspaces(0).OpenDatabase(Path, ReadOnly:=True)   'This will set the RecordSet to all records in the Customers table   Set Rs = Db.OpenRecordset("Customers")   'You could instead set the RecordSet to, for example, the records   'where the Country Code is "UK", without quotes. To do this, replace   'the line above: Set Rs = Db.OpenRecordset("Customers") with the   'following:   '   'Set Rs = _   'Db.OpenRecordset("SELECT * FROM Customers WHERE Country = 'UK';")   'This loop will collect the field names and place them in the first   'row starting at "A1"   For i = 0 To Rs.Fields.Count - 1      Ws.Cells(1, i + 1).Value = Rs.Fields(i).Name   Next I   'The next line simply formats the headers to bold font   Ws.Range(Ws.Cells(1, 1), Ws.Cells(1, Rs.Fields.Count)).Font.Bold=True   'The next line will get the data from the recordset and copy it   'into the Worksheet (Sheet1).   Ws.Range("A2").CopyFromRecordset Rs   'This next code set will just select the data region and   'auto-fit the columns   Sheets("Sheet1").Select   Range("A1").Select   Selection.CurrentRegion.Select   Selection.Columns.AutoFit   Range("A1").Select   Rs.Close   Db.CloseEnd Sub				
Ссылки
Для получения дополнительных сведений о доступе К данным перейдите на вкладку «указатель» в MicrosoftСправка Excel, введите следующий текст
доступ к данным в DAO
затем дважды щелкните выделенный текст для перехода к «доступ К внешнимРаздел баз данных с использованием DAO".
OFF7 XL7 XL 97 8.00 XL97 OFF97

Внимание! Эта статья переведена автоматически

Свойства

Номер статьи: 146406 — последний просмотр: 12/04/2015 14:09:25 — редакция: 4.0

Microsoft Excel 97 Standard Edition, Microsoft Excel 95 Standard Edition

  • kbnosurvey kbarchive kbdtacode kbhowto kbinterop kbprogramming kbmt KB146406 KbMtru
Отзывы и предложения