vb将excel导入数据库

Question

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

Answer 1

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

Answer 2

绝对了，人家要VB的，你给个DELPHI的。佩服佩服。
呵呵。
个人观点，如果是ACCESS结构已经固定了，且与EXCEL的行和列都对应的话，应该可以解决。
一个读取EXCEL及存储ACCESS的过程可以搞定。

Answer 3

表名多到什么程度？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的事了