Question

ASP如何读取excel并列出内的内容

数据库用excelasp页面读取最好能给个实例谢谢！

Answer 1

<%
set xlApp = server.CreateObject("Excel.Application")
strsource = server.MapPath("xl.xls")
set xlbook = xlApp.WorkBooks.Open(strsource)
set xlsheet = xlbook.Worksheets(1)

i = 1
response.write "<table>"

while xlsheet.cells(i,1) <> ""

response.write "<tr>"
response.write "<td>" & xlsheet.Cells(i,1) & "</td>"
response.write "<td>" & xlsheet.Cells(i,2) & "</td>"
response.write "<td>" & 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 是不行的
%>