asp 控制Execel

来源:百度文库 编辑:神马文学网 时间:2021/10/16 13:08:52
给你个例子:
例子:
在"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   ""
while   xlsheet.cells(i,1)<>""
response.write   ""
response.write   "   "
response.write   "   "
response.write   "   "
response.write   ""
i=i+1
wend
response.write   "
"   &   xlsheet.Cells(i,   1)   &   ""   &   xlsheet.Cells(i,   2)   &   ""   &   xlsheet.Cells(i,   3)   &   "
"
set   xlsheet=nothing
set   xlbook=nothing
xlApp.quit   '千万记住要加这一句,否则每运行一次你的机器里就增加一个excel进程,而且无法释放。我试过"set
xlApp=nothing"是不行的。
%>