VB把excel数据导入ACCESS
Dim SQL As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
Dim Constr As String
Constr = "PROVIDER = Microsoft.Jet.OLEDB.4.0;" & "Data Source=c:\db.mdb"
conn.Open Constr
SQL = "select * into t2 from [excel 8.0;database=c:\book1.xls].[sheet1$]"
conn.Execute SQL
conn.Close
Set conn = Nothing