设为首页收藏本站

新微赢技术网

 找回密码
 注册
搜索
热搜: 回贴
查看: 67|回复: 2
打印 上一主题 下一主题

如何从EXCEL文件中导入数据到ACEESS数据库中?

[复制链接]
跳转到指定楼层
1#
发表于 2010-1-6 22:14:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
如题,请求大家帮助…………

我有数据库文件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有多个工作簿的情况下…………

请大虾们指点一二,提供一些示例代码参考一下…………
2#
发表于 2010-1-6 22:14:49 | 只看该作者
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

关于多个工作簿的问题,不太好解决,因为无法判断工作簿里的数据是不是合法。
最好的方法就是,固定工作簿的数据量,约定在每一个工作簿某个的固定单元格填写固定的数据,以判断给工作簿是不是需要导入的数据。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

申请友链|小黑屋|最新主题|手机版|新微赢技术网 ( 苏ICP备08020429号 )  

GMT+8, 2024-11-18 19:52 , Processed in 0.147858 second(s), 8 queries , Gzip On, Memcache On.

Powered by xuexi

© 2001-2013 HaiAn.Com.Cn Inc. 寰耽

快速回复 返回顶部 返回列表