序号字段不为空
注意：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"是不行的。
%>

编辑：黑鹰　[发送给好友] [打印本页] [关闭窗口] [返回顶部]
上一篇：读取access数据库表名实例
下一篇：使用 sql server 2000 将现有代码作为 web 服务提供
转载请注明来源：www.iyit.net
特别声明： 本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作者。文章版权归文章原始作者所有。对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转载的文章有版权问题请联系编辑人员，我们尽快予以更正。