| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 868 人关注过本帖
标题:以excel表为数据库,读出表里的所有内容,谁有这一块的例子,给我一份啊,我参考 ...
只看楼主 加入收藏
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
结帖率:66.67%
收藏
 问题点数:0 回复次数:4 
以excel表为数据库,读出表里的所有内容,谁有这一块的例子,给我一份啊,我参考下
以excel表为数据库,读出表里的所有内容,谁有这一块的例子,给我一份啊,我参考下.谢谢.
搜索更多相关主题的帖子: 数据库 excel 表里 例子 
2008-10-13 16:12
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
收藏
得分:0 
顶啊,没人知道吗?
2008-10-14 14:17
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
Excel.Application方式读取Excel文件的教程
http://blog.
ADODB方式操作Excel文件
http://www.

[[it] 本帖最后由 yms123 于 2008-10-14 14:30 编辑 [/it]]
2008-10-14 14:28
Kettyjin1983
Rank: 1
等 级:新手上路
帖 子:303
专家分:0
注 册:2007-8-17
收藏
得分:0 
版主,你真强大.
2008-10-14 15:16
anlige
Rank: 3Rank: 3
等 级:新手上路
威 望:7
帖 子:401
专家分:0
注 册:2006-11-3
收藏
得分:0 
<style>
.eHead {background:#dddddd;border:1px #000000 solid;width:100px;text-align:center;padding:3px auto 1px 3px;}
.eBody {border:1px #eeeeee solid;width:100px;padding:3px auto 1px 3px;}
</style>
<table style="border:0px;border-collapse: collapse;" cellpadding="0" cellspacing="0">
<%
dim ExclePath: ExcelPath=server.mappath("exc.xls")
Dim ExExp :set ExExp=createobject("Excel.Application")
Dim ExWork :Set ExWork = ExExp.Workbooks.Open(ExcelPath) '打开excel表格
Dim ExShem :Set ExShem = ExWork.Sheets(1)  '工作表1

cCount=ExShem.UsedRange.Columns.Count '有效列数
rCount=ExShem.UsedRange.Rows.Count  '有效行数

'输出头(如果你的第1行是表头的话)
response.write "<tr>"
for i=1 to cCount
   response.write "<td class=""eHead"">" & ExShem.Cells(1, i) & "</td>"
next
response.write "</tr>"&vbcrlf

'输出记录
for j=2 to rCount
response.write "<tr>"
   For i = 1 To cCount
       response.write "<td class=""eBody"">" & ExShem.Cells(j, i) & "</td>"
   next
response.write "</tr>"&vbcrlf
Next

ExWork.close() '一定要调用此方法
ExExp.Quit()   '一定要调用此方法
set ExExp=nothing
set ExWork=nothing
set ExShem=nothing
%>
</table>

具体代码看附件吧
读取excel.rar (2.45 KB) 读取excel


http://www.
zhanghuiguoanlige@
2008-10-14 20:02
快速回复:以excel表为数据库,读出表里的所有内容,谁有这一块的例子,给我一份啊, ...
数据加载中...
 
   



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

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