Excel 데이터를 Access로 가져오기, SQL Server의 샘플 코드

Access에 테이블이 생성된 경우 Excel에서 Access로 데이터를 가져옵니다.

희미한 콘
희미한 연결2
set conn=CreateObject("ADODB.Connection")
conn.Open "공급자=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:데이터베이스 암호=;데이터 소스=c:book1.mdb"

set conn2=CreateObject("ADODB.Connection")
conn2.Open "공급자=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:데이터베이스 암호=;확장 속성=Excel 5.0;데이터 원본=c:book1.xls"

sql = "[시트1$]에서 선택 *"
rs = conn2.execute(sql) 설정
rs.eof가 아닌 동안
sql = "xxx([a],[b],[c],[d]) 값에 삽입('"& fixsql(rs(0)) &"','"& fixsql(rs(1)) & "','"& fixsql(rs(2)) &"','"& fixsql(rs(3)) &"')"
conn.execute(sql)
rs.movenext

하다

.닫다
conn = 아무것도 설정하지 않음
conn2.close
conn2 = 아무것도 설정하지 않음

함수 fixsql(str)
희미한 뉴스
새로운 str = str
isnull(newstr)이면
newstr = ""
또 다른
newstr = 교체(newstr,"'","''")
종료하면
fixsql = newstr

end 함수를

가져올 때 Excel 파일과 데이터베이스가 동일한 서버에 있지 않은 경우 위 코드를 참고하세요.

을

생성할 필요가 없습니다. 프로그램은 Excel의 첫 번째 데이터 행을 테이블의 필드 이름으로 사용하여 자동으로 테이블을 생성합니다).

set conn=CreateObject("ADODB.Connection")
conn.Open("드라이버={SQL Server};서버=localhost;uid=sa;pwd=sa;데이터베이스=hwtemp;")
sql = "OpenDataSource('Microsoft.Jet.OLEDB.4.0','Data Source=""c:book1.xls"";User ID=Admin;Password=;확장 속성=Excel 5.0')에서 새 테이블로 *를 선택합니다. ...[시트1$] "
conn.execute(sql)

conn.close
conn 설정 =

sxycgxj의 블로그에서 선택된 항목