<%
Set xlapp = server.createObject ("excel.application")
STRSOURCE = "c: /test.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 "" & xlsheet.cells (i, 1) & " td>" response.write | "& xlsheet.cells (i, 2) &" td> "response.write" | "& xlsheet.cells (i, 3) & " td>" response.write " tr>" i = i 1
Wend response.write " table>" set xlsheet = Nothing set xlbook = nothing xlapp.quit%>
转载请注明原文地址:https://www.9cbs.com/read-111099.html
|