ASP直接调用EXCEL数据的例子

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

例子:

在"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"是不行的。

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航