Excel 导入 Access的问题

Excel的格式如上图所示。


Access 格式如下图所示。怎样才能将Excel导入Access？

[ 本帖最后由 Office 于 2010-12-30 10:43 编辑 ]

参考http://club.excelhome.net/thread-360059-1-1.html

供参考
Sub InsertRecord()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
Dim i As Integer

cnn.Provider = " Microsoft.Jet.OLEDB.4.0"
cnn.Open "C:\db.mdb"

i = 2
Cells(i, 1).Select

Do Until (Cells(i, 1).Value) = ""        
    s1 = "insert into tablename (ID,dec_code) vlues ( '" & cells(i,1) & "','" & cells(i,2) & "')"
     Set rst = cnn.Execute(s1)
    i = i + 1
Loop

rst.close
cnn.close

MsgBox "Completed!"
End Sub