主题:  ASP直接调用EXCEL数据,为什么不能实现?

chgxhctj

职务:普通成员
等级:1
金币:0.0
发贴:1
注册:2003/3/31 23:14:47
#12003/4/3 9:38:15
网上有一篇ASP直接调用EXCEL数据的例子,可我运行时什么都没显示。例子如下,请教各位高手,是否可用UD来调用EXCEL数据?
例子:
在"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"是不行的。
%>