VBA를 사용하여 Excel 2010에 Excel 2010을 삽입하십시오.

Question

Excel에서 Access 2010으로 데이터를 삽입하는 솔루션을 찾고 있습니다. Excel의 데이터가 양식에 있습니다. 양식을 채운 후 Excel의 VBA는 데이터를 Access 테이블에 새 레코드로 삽입합니다.

1. 엑셀에서 가져 오기 기능을 사용하고 싶지 않습니다.
2. Excel 테이블에 데이터를 저장하고 싶지 않습니다.

여러 주제를 살펴 보았지만 찾고자하는 주제가 하나도 없습니다. 누군가가 이걸 도와 줄 수 있니?

Answer 1

사용 DAO 예를 들어, 열려있는 엑셀 시트 (http://support.microsoft.com/kb/319998)와 메모리 누수를 방지하기 위해 :

'Reference: Microsoft Office x.x Access Database Engine Object Library 
Dim ws As DAO.Workspace 
Dim db As DAO.Database 
Dim sDb As String 
Dim sSQL As String 
Dim qdf As QueryDef 

sDb = "Z:\Docs\Test.accdb" 

Set ws = DBEngine.Workspaces(0) 
Set db = ws.OpenDatabase(sDb) 

''A stored query would be better 
sSQL = "Parameters p1 Text, p2 Datetime; " _ 
& "INSERT INTO Table1 (AText,ADate) Values ([p1],[p2])" 

Set qdf = db.CreateQueryDef("", sSQL) 

qdf.Parameters!p1 = "ABC" 
qdf.Parameters!p2 = #2013/1/17# 
qdf.Execute dbFailOnError 
Debug.Print qdf.RecordsAffected