求助！Excel表的信息录入 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 求助！Excel表的信息录入

标题：求助！Excel表的信息录入

只看楼主

Ｃａｆｅ﹖

等　级：新手上路
帖　子：29
专家分：0
注　册：2008-4-25

楼主

问题点数：0 回复次数：10

求助！Excel表的信息录入

老师让我们完成一个功能，录入新的Excel表信息到已有的数据库文件中。
数据库文件为 db.mdb
请教大侠们，该怎么写代码？

搜索更多相关主题的帖子: Excel表　数据库　文件　 mdb　

2008-05-02 15:45

wangtuan7788

等　级：新手上路
帖　子：286
专家分：0
注　册：2007-10-8

第 2 楼

得分:0

自己在论坛搜一下吧，记得有好几个这样的帖子

你笑我和你们不一样，我笑你们大家都一样~

2008-05-02 18:43

suwangcat

等　级：新手上路
帖　子：3
专家分：0
注　册：2008-4-29

第 3 楼

得分:0

晕死，搜索不到

2008-05-02 22:28

wangtuan7788

等　级：新手上路
帖　子：286
专家分：0
注　册：2007-10-8

第 4 楼

得分:0

https://bbs.bccn.net/thread-182852-1-52.html

你笑我和你们不一样，我笑你们大家都一样~

2008-05-03 00:11

Ｃａｆｅ﹖

等　级：新手上路
帖　子：29
专家分：0
注　册：2008-4-25

第 5 楼

得分:0

谢谢这位大哥~~

2008-05-04 08:34

Ｃａｆｅ﹖

等　级：新手上路
帖　子：29
专家分：0
注　册：2008-4-25

第 6 楼

得分:0

那个，我下了看到了。
也运行了，可是什么反应也没有啊。。。。。。
那个代码看不懂~

2008-05-05 16:48

wangtuan7788

等　级：新手上路
帖　子：286
专家分：0
注　册：2007-10-8

第 7 楼

得分:0

Dim dbs As Database
Set dbs = OpenDatabase(App.Path & "\db1.mdb") ‘ 这里是你数据库的路径
dbs.Execute "SELECT * INTO 在校学生 FROM [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] " ’在校学生是你要导入的数据库中的表名，App.Path & "\MyExcel.xls].[WorkSheet1]是你要进行导入的excel的路径worksheet1是excel里工作簿的名
dbs.Close
Set dbs = Nothing

你笑我和你们不一样，我笑你们大家都一样~

2008-05-05 22:50

zougonghua

等　级：新手上路
帖　子：163
专家分：0
注　册：2008-4-1

第 8 楼

得分:0

回复 7# 的帖子

直接在access的sql语句中输入SELECT * INTO 在校学生 FROM [Excel 8.0;DATABASE==" & App.Path & "\MyExcel.xls].[wordSheet1]
这样写不行吗?

2008-05-06 11:34

wangtuan7788

等　级：新手上路
帖　子：286
专家分：0
注　册：2007-10-8

第 9 楼