主题:  怎样读取excle表格的数据

gation

职务:普通成员
等级:2
金币:1.0
发贴:251
#12004/4/19 11:00:17
有一个5*6的excle表格,能不能读取里面的数据,然后显示在网页上,我用的是acess数据库,能够将数据用文本文件直接导入数据库,我想问问还有什么别的方法

编辑历史:[此帖最近一次被 gation 编辑过(编辑时间:2004-04-19 11:26:59)]


janlay

职务:管理员
等级:7
金币:28.0
发贴:7244
#22004/4/19 15:42:20
文件菜单:文件 > 获取外部数据 >导入 中选择 Excel 文档格式



gation

职务:普通成员
等级:2
金币:1.0
发贴:251
#32004/4/20 10:39:09
我说的不清楚 我知道excle导入数据库的方法 ,因为是要交给客户维护,我想知道有没有更方便的方法?



缺缺

职务:管理员
等级:8
金币:41.0
发贴:9620
#42004/4/20 11:00:41
使用Excel做数据库?



绿茶

职务:普通成员
等级:8
金币:10.0
发贴:19267
#52004/4/20 15:41:56
这个。。。。可以先定义好模板,然后读取,,
不过太麻烦了



林易

职务:普通成员
等级:3
金币:1.0
发贴:750
#62004/4/25 9:39:46
楼上的高人,给我们讲一点啊



dxjw

职务:普通成员
等级:1
金币:0.0
发贴:33
#72004/4/25 12:05:22
在"c:\excel\book1.xls"存在一个EXCEL表book1.xsl,表的结构如下:
1 序号 名称 金额
2 1 张三 100
3 2 李四 200
4 3 王五 300

序号字段不为空
注意:excel 起始行是1而不是为0

<%@language=vbscript %>
<%

Set xlApp = server.CreateObject("Excel.Application"

strsource = "c:\excel\book1.xls"

Set xlbook = xlApp.Workbooks.Open(strsource)
Set xlsheet = xlbook.Worksheets(1)

i=1
response.write "<table cellpadding=0 cellspacing=0 border=1 width=500>"
while xlsheet.cells(i,1)<>""

response.write "<tr>"
response.write " <td height=20 align=center width=100>" & xlsheet.Cells(i, 1) & "</td>"
response.write " <td height=20 align=center width=200>" & xlsheet.Cells(i, 2) & "</td>"
response.write " <td height=20 align=center width=200>" & xlsheet.Cells(i, 3) & "</td>"
response.write "</tr>"
i=i+1

wend
response.write "</table>"
set xlsheet=nothing
set xlbook=nothing
xlApp.quit '千万记住要加这一句,否则每运行一次你的机器里就增加一个excel进程,而且无法释放。我试过"set
xlApp=nothing"是不行的。
%>



林易

职务:普通成员
等级:3
金币:1.0
发贴:750
#82004/4/26 14:33:54
好,谢了。研究研究,以前做设计现在也要论程序了