VB execl导入ACCESS(中级问题）

Question

多个execl的格式:
     XXXX清单姓名：XXX
-------------------
ID1      数据
1        12
2        34
合计：XXX
ACCESS的格式ID1      数据
1        12
2        34如何execl导入ACCESS？
我编的程序：
  adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\111\11.mdb; Persist Security Info=False"
  adocn.Open
adocn.Execute " insert into ab select * from [sheet1$] in 'c:\111\123.xls' 'excel 8.0;'"
出错。
我想把整个EXECL导入ACCESS，然后判断ID和数据是否合法，不合法的删除。以前用VFP就是这样做，现在不知如何改？

Answer 1

不用导，可以把Excel象操作Access一样操作。

Answer 2

Dim adoCnn As new ADODB.Connection
Dim r As new ADODB.Recordset
adoCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=C:\1.xls;Extended Properties='Excel 8.0;HDR=Yes;IMEX=1'"
r.Open "Select * From [" & sheet1$ & "]" , adoCnn, adOpenKeyset, adLockOptimistic

Answer 3

adocn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\111\11.mdb; Persist Security Info=False"
adocn.Open
adocn.Execute "insert into ab(id,data) select f1,f2 from [Excel 8.0;HDR=no;IMEX=2;DATABASE=c:\111\123.xls].[sheet1$];"
注意access数据库字段类型，先用把id与data全用文本型测试。

Answer 4

本帖最后由 bcrun 于 2011-11-20 11:26:52 编辑

  

Answer 5

如果是在vb中操作的话可以通过com端口读取出数据，然后insert语句逐个操作，判断id和数据是否合法也在这里面判断。

Answer 6

这里是ado默认的excel文件字段名(当HDR=no时，即设置excel文件无标题时)。

Answer 7

我也在做这个，的把从串口下给设备的数据，导入EXCEL里，解析给用户看。先学习了。。