这样格式的EXCEL 如何将它的内容导入到 ACCESS中

Question

1、EXCEL 中的格式是这样的：
    |    A     |    B    |   C    | D  | E   | F  |  G   |  H   |
——————————————————————————————————————————
 1  |          |         |        |   包装尺码    |    重量     |
——-   产品编号    规格品名   包装率  ———————————————-
 2  |          |         |        | 长 | 宽  | 高 | 净重 | 毛重 |
——————————————————————————————————————————
 3  |  数据     |   数据   |   数据   |数据|数据 |数据| 数据 | 数据 |
2、ACCESS中的表 INFO 的字段：产品编号，规格品名，包装率，长， 宽， 高，净重，毛重请高手帮忙如何将EXCEL 中的数据导入到表INFO中

Answer 1

首先，不规则的格式不可以导
如是规则格式，可以这样：
Option Explicit
Dim Adocon As ADODB.Connection
Private Sub Form_Load()
Set Adocon = New ADODB.Connection
Adocon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\newdata.mdb;" & "Mode=Share Deny Read|Share Deny Write;Persist Security Info=False;Jet OLEDB:Database Password="
Adocon.ConnectionTimeout = 120
Adocon.Open
Adocon.Execute ("delete from newsort")
Adocon.Execute ("insert into newsort(sort_id,sort_name) SELECT sort_id,sort_name FROM OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source=" & App.Path & "\carsort1.xls;Extended properties=Excel 5.0')...[carsort1$]")
Adocon.Close
Set Adocon = Nothing
End Sub

Answer 2

高手就是高手。
如果是我，我只能：
用excel.application  打开excel文件，
用Adodb 打开数据库，再找记录写到mdb中。

Answer 3

高手就是高手。
如果是我，我只能：
用excel.application  打开excel文件，
用Adodb 打开数据库，再找记录写到mdb中。

Answer 4

Dim Rs As New ADODB.Recordset
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
dim i as long 
'引用 excel　objec library　，Ado  library ...xlApp.Workbooks.Open "C:\XXX.xls"
Set xlBook = xlApp.Workbooks(1)   
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Activate    '激活 sheet1
Set Cnn = New ADODB.Connection
Set Rs = New ADODB.Recordset
Cnn.CursorLocation = adUseClient
Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & MdbNetPath
Cnn.Open　　　'注意数据库路径: MdbNetPath
TmpStr = "select ItemNo,Description From 表1 "
Set Rs = New ADODB.Recordset
Rs.CursorLocation = adUseClient
Rs.Open TmpStr, Cnn, adOpenKeyset, adLockOptimistic
'打开 表1
for i =3 to  XXX-3   ' Excel中的数据最大行数。
     Rs.AddNew
     Rs("ItemNo") =  xlSheet.Cells(i,1)'写入数据
　　　......
      ......
     Rs.Update
next Rs.Close
Set Rs = Nothing
Cnn.Close
Set Cnn=Nothing
xlApp.Quit
set xlApp=nothing

Answer 5

//用excel.application  打开excel文件，
//用Adodb 打开数据库，再找记录写到mdb中。
这种方式很有可能有进程问题。