Excel로 작업한 Data를 Access로 변환하는 내용입니다.

1.  엑셀파일을  하나  생성합니다.
      -  파일명  :  C:\Book1.xls

2.  엑셀파일에  다음과  같이  데이타를  작성해  주십시요.

영어단어             뜻                값 
school              학교               1 
student             학생               2 
computer          컴퓨터            3 
visual  basic     비쥬얼베이직  4 

      -  엑셀파일  작성시  첫번째  Row  의  값을  MDB  에선  필드명으로  인식을  합니다.  그렇기  때문에 첫번째  Row  는  필드명으로  그리구  두번째  Row  부터  데이타를  입력해  주시기  바랍니다.

3.  엑셀파일이  작성되었으면  비쥬얼베이직에서  프로젝트를  하나  생성하고  기본폼위에  버튼  하나와 데이타컨트롤  하나를  생성합니다.
      -  버튼  :  Command1
          데이타컨트롤  :  Data1

4.  폼의  선언부에  다음의  함수와  버튼에  다음과  같이  코딩하시기  바랍니다.

Private  STR_MDB  As  String

Private  Function  CREATE_TABLE()  As  Integer
        Dim  tdExample  As  TableDef
        Dim  fld()  As  Field
        Dim  dbDatabase  As  Database
       
        Dim  strTable  As  String
       
        Dim  intCount  As  Integer
        Dim  i  As  Integer

        If  Dir(STR_MDB)  <>  ""  Then
                '  파일이  존재하면  삭제한다.
                Kill  STR_MDB
        End  If
       
        strTable  =  Mid(CStr(Data1.RecordSource),  1,  Len(CStrata1.RecordSource))  -  1)
       
        '  MDB  생성
        Set  dbDatabase  =  CreateDatabase(STR_MDB,  dbLangGeneral,  dbEncrypt)

        '  테이블  생성
        Set  tdExample  =  dbDatabase.CreateTableDef(strTable)

        intCount  =  Data1.Recordset.Fields.Count
        ReDim  fld(intCount  -  1)
       
        '  엑셀의  필드수만큼  필드  생성
        For  i  =  0  To  intCount  -  1
                Set  fld(i)  =  tdExample.CreateField(Data1.Recordset.Fields(i).Name,  _
                                    Data1.Recordset.Fields(i).Type,  _
                                    Data1.Recordset.Fields(i).Size)
                tdExample.Fields.Append  fld(i)
        Next
       
        dbDatabase.TableDefs.Append  tdExample
       
        '  필드수를  리턴한다.
        CREATE_TABLE  =  intCount
End  Function

Private  Sub  Command1_Click()
        Dim  wrkDATA  As  Workspace
        Dim  dbsDATA  As  Database
       
        Dim  strTable  As  String
        Dim  strSQL  As  String
        Dim  strValue  As  String
       
        Dim  intCount  As  Integer
        Dim  i  As  Integer
        Dim  x  As  Integer
        Dim  intField  As  Integer
       
        '  Data1  데이타콘트롤에  엑셀파일을  연결하여  오픈한다.
        Data1.Connect  =  "Excel  8.0;"

        '  엑셀파일을  지정한다.
        Data1.DatabaseName  =  "C:\Book1.xls"

        '  엑셀파일내의  쉬트를  지정한다.  ($  표시가  쉬트명  뒤에  붙는다.  주의)
        Data1.RecordSource  =  "tb_test$"
        Data1.Refresh
       
        '  엑셀파일안의  데이타  갯수  (레코드  카운트)  를  읽어온다.
        Data1.Recordset.MoveLast
        intCount  =  Data1.Recordset.RecordCount
        Data1.Recordset.MoveFirst
       
        '  생성할  MDB  파일명
        STR_MDB  =  "c:\test.mdb"
       
        '  엑셀파일의  테이블명에서  마지막문자인  $  표시를  제거하여  테이블명을  만든다.
        strTable  =  Mid(CStr(Data1.RecordSource),  1,  Len _   

                          (CStrData1.RecordSource))  -  1)

        '  MDB  를  생성한다.  (리턴값은  엑셀파일안의  필드  갯수)
        intField  =  CREATE_TABLE
       
        '  생성한  MDB  를  오픈한다.
        Set  wrkDATA  =  CreateWorkspace("",  "admin",  "",  dbUseJet)
        Set  dbsDATA  =  wrkDATA.OpenDatabase(STR_MDB,  False,  False)
       
        '  엑셀파일에서  데이타를  읽어서  MDB  에  저장한다.
        For  i  =  1  To  intCount
                strValue  =  "'"  &  Data1.Recordset.Fields(0)  &  "'"
                For  x  =  1  To  intField  -  1
                        strValue  =  strValue  &  ",  '"  &  Data1.Recordset.Fields(x)  &  "'"
                Next  x
               
                strSQL  =  "INSERT  INTO  ""  &  strTable  &  ""  VALUES("  &  strValue  &  ")"
                '                                          ++                            ++
                '  만약에  ++  부분이  두개의  큰따음표로  보이면  하나로  수정하십시요. 

                ' 원래  하나입니다.

                dbsDATA.Execute  strSQL
                Data1.Recordset.MoveNext
        Next  i
       
        dbsDATA.Close
        wrkDATA.Close
       
        Set  dbsDATA  =  Nothing
        Set  wrkDATA  =  Nothing
End  Sub

위의것은 DB를 생성하면서 엑셀 화일을 만든 디비에 집어늫는것이고요

이방식말고..

만들어놓은 DB에 ADO방식으로 엑셀데이터를 입력하고싶은데

전혀감이 안옵니다..

만들테이블 명은 ATABLE이구요..

컬럼(필드)명은 num , nam, nrm입니다..

도와주십시요..

 
 
질문자가 선택한 답변 
re: 비주얼베이직..엑셀파일을 mdb(ado방식)로 저장하는 프로그램입니다. 
 
kabiyo (2005-06-23 22:46 작성) 
이의제기 | 신고
 
 질문자 평
^^ 감사합니다.. 데브피아랑 하우투는 이미 알고 있는데 거긴 없어서 ..ㅎ 암튼 고맘습니다.. 즐거운하루 상퀘한 하루 .. 
 
MSDN에 ADO에 대해서 검색해서 보시면 도움이 될겁니다

www.devpia.com

www.howtobank.net

여기 가시면 vb에 대한 많은 정보 얻으실수 있으시구요

제가 봤을땐 ADO도 특별한 방법 있는거 아닌거 같은데........

변수 선언할때 ADO형식으로 선언해주고......

ADO형식을 한번 참조해보세요 그러시면

코드 약간 수정으로  ADO연결 가능합니다
 

(출처 : '비주얼베이직..엑셀파일을 mdb(ado방식)로 저장하는 프로그램입니다.' - 네이버 지식iN)