콘텐츠
Visual Basic for Applications를 사용하여 데이터를 Access로 가져 오는 방법을 배우면 데이터베이스 응용 프로그램을보다 동적으로 만들 수 있습니다. VBA에서는 개체 조합을 사용하여 Excel 워크 시트를 열고 Access 테이블로 데이터를 가져올 수 있습니다. VBA에서 Microsoft Excel 용 개체 라이브러리를 사용하여 워크 시트를 엽니 다. Recordset 개체는 Access에서 테이블을 열고 Excel에서 가져온 데이터를 저장하는 데 사용됩니다. VBA를 사용하여 데이터를 가져 오면 프로세스를 수동으로 수행하는 데 소요되는 시간이 크게 줄어 듭니다.
지침
-
Microsoft Excel을 열고 A2에 "data1"을 입력하고 B2에 "data2"를 입력하십시오. Ctrl + S를 눌러 문서를 저장하십시오. 워크 시트를 "C : Temp "에 "dataToImport.xlsx"라는 이름으로 저장하십시오. 저장을 클릭 한 다음 Excel을 닫습니다.
-
Microsoft Access를 시작하고 "새 데이터베이스"를 클릭 한 다음 "만들기"를 클릭하십시오. "데이터베이스 도구"를 클릭하고 "Visual Basic"을 클릭하여 VB 편집기를 엽니 다. "삽입"메뉴를 클릭하고 "모듈"을 클릭하여 새 코드 모듈을 삽입하십시오. "도구"메뉴를 클릭 한 다음 "참조"를 클릭하고 "Microsoft Excel Object Library
'. -
새 VBA 프로 시저를 만들려면 다음 VBA 코드를 입력하십시오.
전용 하위 importExcelData ()
-
Excel을 읽는 데 사용할 변수를 만들려면 다음 코드를 입력하십시오.
Dim xlApp as Excel.Application Dim xlBk As Excel.Workbook Dim xlSht as Excel.Worksheet
-
다음 코드를 입력하여 Access에서 사용할 변수를 만듭니다.
Dim dbRst As Recordset Dim dbs 데이터베이스로 Dim SQLStr As String
-
다음 코드를 입력하여 은행 오브젝트를 정의하고 사용할 워크 시트를 정의하십시오.
설정 dbs = CurrentDb xlApp = Excel.Application Set xlBk = xlApp.Workbooks.Open ( "C : Temp dataToImport.xlsx") Set xlSht = xlBk.Sheets (1)
-
Access에서 두 개의 열이있는 새 테이블을 만들어 Excel 데이터를 가져옵니다. 다음 코드를 입력하여 DoCmd 개체를 사용하여 테이블을 만듭니다.
SQLStr = "CREATE TABLE excelData (columnOne TEXT, columnTwo TEXT)"DoCmd.SetWarnings False DoCmd.RunSQL (SQLStr)
-
Recordset 개체를 사용하여 방금 만든 테이블을 엽니 다. 테이블을 열고 새 행을 추가하려면 다음 코드를 입력하십시오.
Set dbRst = dbs.OpenRecordset ( "excelData") dbRst.AddNew
-
Excel 워크 시트에 값을 가져 와서 테이블에 저장하고 레코드를 업데이트하려면 다음 코드를 입력하십시오.
xlSht.Range ( "A2") dbRst.Fields (0)을 선택하십시오 .Value = xlSht.Range ( "A2") 값 xlSht.Range ( "B2") dbRst.Fields (1) .Value = xlSht를 선택하십시오. 범위 ( "B2"). 값 dbRst.Update
-
다음 VBA 코드를 입력하여 프로 시저를 완료하십시오.
dbRst.Close dbs.Close xlBk.Close End Sub
-
프로 시저를 수행하려면 F5 키를 누릅니다. Excel 워크 시트의 데이터는 Access 테이블로 가져옵니다.