扑咚扑咚 于 8/30/2001 4:52:49 PM 加贴在 Joy ASP ←返回版面：

例子：

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

%>