테이블 DAO를 사용하여 Excel로 Access에서 데이터를 검색하는 방법

기술 자료 번역 기술 자료 번역
기술 자료: 146406 - 이 문서가 적용되는 제품 보기.
모두 확대 | 모두 축소

요약

위에 나열된 Microsoft Excel 버전에서 VBA 데이터 액세스 개체 (DAO) Microsoft Access에서 테이블을 검색할 수 있습니다.

DAO Microsoft Access에서 테이블을 검색할 수 있는 방법에 대한 예제를 제공하기 위해 이 문서에서 설명하는 매크로 모두 Microsoft Office Professional Windows 95, 버전 7.0, 및 Microsoft Office 97 Professional에 대한 Windows 함께 제공되는 Northwind 데이터베이스를 사용합니다. Microsoft Office Professional Windows 95, 버전 7 .0을 설치할 때 기본 옵션을 선택한 경우 데이터베이스 위치합니다:
   \MSOffice\Access\Samples\Northwind.mdb
				
Microsoft Office 97 Professional에 대한 Windows를 설치할 때 기본 옵션을 선택한 경우에는 데이터베이스가 위치한:
   \Program Files\Microsoft Office\Office\Samples\Northwind.mdb
				
Northwind 데이터베이스가 컴퓨터의 다른 폴더에 있는 경우 이를 실행하기 전에 아래 제공된 코드를 편집해야 합니다.

DAO에서 매크로를 사용하려면 다음 Microsoft DAO 개체 라이브러리에 참조 또는 "사용자 정의 형식이 정의되지 않았습니다." 오류 메시지가 나타날 수 있습니다. Microsoft Excel 버전 7.0이 이 라이브러리를 참조하려면 모듈 시트, 도구 메뉴에서 참조를 활성화하고 "Microsoft DAO 3.0 개체 라이브러리" 옵션을 선택하십시오. Microsoft Excel 버전 97이 이 라이브러리를 참조하는 데 "Microsoft DAO 3.5 개체 라이브러리에" 확인하고 Visual Basic 편집기에서 [도구] 메뉴에서 참조를 누릅니다.

추가 정보

Microsoft는 묵시적인 보증 없이 목적으로만 프로그래밍 예제를 제공합니다. 이 포함되지만, 상품성 또는 특정 목적에의 적합성에 대한 묵시적인된 보증이 제한되지 않습니다. 이 문서에서는 만들려면 및 프로시저를 디버깅하는 데 사용되는 도구 및 여기서 설명하는 프로그래밍 언어에 익숙한 사용자를 대상으로 합니다. Microsoft 지원 엔지니어는 사용자에게 도움이 되도록 특정 절차에 대한 기능을 설명할 수 있지만 추가 기능을 제공하거나 특정 요구 사항에 맞도록 프로시저를 구성하지는 이 예제를 수정하지 않습니다. Microsoft Access에서 테이블을 검색하려면 다음과 같이 하십시오.

  1. 데이터베이스 개체를 설정하십시오.
  2. Recordset 개체를 설정하십시오.
  3. 원하는 경우 해당 머리글을 검색하십시오.
  4. 테이블에서 데이터를 검색하십시오.
데이터를 가져온 후 .Close 명령을 실행하여 열 개체를 모두 닫아야 합니다.

다음은 Microsoft Access에서 테이블을 프로그래밍 방식으로 검색하려면 코드를 사용합니다.:
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.Close
End Sub
				

참조

데이터 액세스 방법에 대한 자세한 내용은 Microsoft Excel 도움말에서 색인 탭을 누르고, 다음 텍스트를 입력하십시오.
DAO에서 데이터 액세스
및 "DAO 외부 데이터베이스 액세스 함께" 항목으로 이동합니다 선택한 텍스트를 두 번 클릭합니다.

속성

기술 자료: 146406 - 마지막 검토: 2006년 10월 11일 수요일 - 수정: 2.3
본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Excel 97 Standard Edition
  • Microsoft Excel 95 Standard Edition
키워드:?
kbmt kbdtacode kbhowto kbinterop kbprogramming KB146406 KbMtko
기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.
더 이상 지원되지 않는 제품의 KB 내용에 대한 고지 사항
이 문서에서는 Microsoft에서 더 이상 지원하지 않는 제품에 대해 설명합니다. 따라서 이 문서는 "있는 그대로" 제공되며 업데이트되지 않습니다.

피드백 보내기

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com