标题:如何从EXCEL文件中导入数据到ACEESS数据库中?
只看楼主
在编程中沦落
Rank: 2
等 级:新手上路
威 望:4
帖 子:411
专家分:0
注 册:2005-12-25
 问题点数:0 回复次数:1 
如何从EXCEL文件中导入数据到ACEESS数据库中?
如题,请求大家帮助…………

我有数据库文件mdb表名:Products,其中数据字段:itemno,size,detail等等…………

我如何通过同样的aceess文件,里面格式已定好为:itemno,size,detail等。

请问,我如何才能把excel里面的数据导入进数据库中…………

我的思路:

1,先建立一文件域表单:选择相应的excel文件

<form id="form1" name="form1" enctype="multipart/form-data" method="post" action="request.asp">
<label for="file"></label>
<input type="file" name="exc" id="exc" />
</form>

2,通过获取文件调出数据
exc=reqest.form("exc")

其它的不知道该怎么处理,还有假如excel有多个工作簿的情况下…………

请大虾们指点一二,提供一些示例代码参考一下…………

搜索更多相关主题的帖子: 数据库 EXCEL ACEESS 文件 
2007-01-09 15:43
zfjyyzycl
Rank: 2
等 级:论坛游民
帖 子:239
专家分:10
注 册:2006-4-15
得分:0 
Set xlApplication = CreateObject("Excel.application")
xlApplication.Visible = False
xlApp.Workbooks.Open("你的文件")
.....循环,判断几个工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '激活第一个工作簿
..............(一些判断表格数据完毕和循环得条件)
变量1=xlWorksheet.Cells(1,1) '第一行第一列单元格的数据
变量2=xlWorksheet.Cells(1,2) '第一行第二列单元格的数据
............
插入数据库语句
..............循环结束语句(可通过Set xlWorksheet = xlApplication.Worksheets(2) 激活第二个工作簿)

再次循环

xlApplication.Quit ' 关闭工作表
Set xlWorksheet = Nothing
Set xlApplication = Nothing

关于多个工作簿的问题,不太好解决,因为无法判断工作簿里的数据是不是合法。
最好的方法就是,固定工作簿的数据量,约定在每一个工作簿某个的固定单元格填写固定的数据,以判断给工作簿是不是需要导入的数据。
2007-01-09 17:25



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-115070-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.048104 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved