excel을 DB 처럼 사용 하기

excel을 DB 처럼 사용 하기

라이브러리 추가

도구 -> 참조 

다음과 같이 라이브러리를 추가해 줍니다.

라이브러리를 추가해 줘야 DB를 사용할수 있습니다. 

Sub 입력1()
    Dim cu_연결 As New ADODB.Connection
    Dim TEST_REC As New ADODB.Recordset
    Dim cu_OLEDB As String
    Dim cu_경로 As String
    Dim DB As String
    Dim cu_SQL As String
    Dim cu_현재파일 As String
    
    '파일 경로를 지정
    cu_경로 = "C:\Users\JS201208030669\Desktop\TEST\"
    cu_현재파일 = "TEST.xlsx"
    
    'HDR=YES 는 첫번째 줄을 칼럼으로 사용
    'Excel 12.0 Xml 은 엑셀 버전별로 다름
    
    cu_OLEDB = "Provider=Microsoft.ACE.OLEDB.12.0; " & _
            "Data Source='" & cu_경로 & cu_현재파일 & "'; " & _
            "Extended Properties =""Excel 12.0 Xml; HDR=YES"";"
            
    cu_연결.Open cu_OLEDB
    '쿼리문 작성
    '[Sheet1$B2:E6] = [시트이름$범위:범위]
    cu_SQL = "select * from [Sheet1$B2:E6]"
    
    '쿼리문 실행
    TEST_REC.Open Source:=cu_SQL, _
                  ActiveConnection:=cu_연결, _
                  CursorType:=adOpenKeyset, _
                  LockType:=adLockOptimistic
    
    While (Not TEST_REC.EOF)
      Debug.Print TEST_REC("값1").Value
      TEST_REC.MoveNext
    Wend
    
    TEST_REC.Close
    
    cu_연결.Close
    
    
End Sub

위와 같이 사용하면 됩니다.