vb将excel导入数据库

[sduupc]

有很多excel2003的数据表，想把它们导入到access2003数据库里，要求以excel的文件名作为数据库每个表的名字，数据库表的格式和excel一样，其实就是把数换个地方，其他的都不改，呵呵。怎么实现，给代码吧！谢谢！！

[sduupc]

不太懂啊，随便了，最好自动吧，问的问题是不是不对啊，怎么没有回答的！

[jiang_jiajia10]

UP

[jhone99]

建表结构手工还是自动

[-晴天]

http://gxnxz.ik8.com/txt/Delphi/XlSToMdb.htm

[wuxuedehuaqiao]

我也很想知道 ,期待高手的出现!!

[cqcpl]

表名多到什么程度？500个以下还是手工导入的快，编程太麻烦,在Access界面中右键——》导入，下拉列表中选Excel就可以导入了。
如果真想练习编程，请参照以下代码（将Excel以Ado方式读出)

dim Rst1 as new adodb.recordset
dim Cnn1 as new adodb.connection
Cnn1.Open "Data Source=" & "D:\a.xls" & ";Extended Properties='Excel 8.0'"
rst1.Open SELECT * FROM [Sheet1$], Cnn1, 1, 3 '生成ADO

有了ADo，在Access中建表,加数据等就是SQl的事了

[ooily]

up

[yxz32]

[Quote=引用 2 楼 qianjin036a 的回复:]
http://gxnxz.ik8.com/txt/Delphi/XlSToMdb.htm
[/Quote]
绝对了，人家要VB的，你给个DELPHI的。佩服佩服。
呵呵。
个人观点，如果是ACCESS结构已经固定了，且与EXCEL的行和列都对应的话，应该可以解决。
一个读取EXCEL及存储ACCESS的过程可以搞定。