明輝手游網(wǎng)中心：是一個免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

ASP直接調(diào)用EXCEL數(shù)據(jù)的例子（不用ODBC）

發(fā)表時間：2024-01-21 來源：明輝站整理相關(guān)軟件相關(guān)文章人氣：

[摘要]例子：在"c:\excel\book1.xls"存在一個EXCEL表book1.xsl,表的結(jié)構(gòu)如下：1 序號 名稱 金額2 1 張三 1003 2 李四 2004 3 王五 300...
例子：
在"c:\excel\book1.xls"存在一個EXCEL表book1.xsl,表的結(jié)構(gòu)如下：
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 "<table cellpadding=0 cellspacing=0 border=1 width=500>"
  while xlsheet.cells(i,1)<>""
  
  response.write "<tr>"
  response.write "  <td height=20 align=center width=100>" & xlsheet.Cells(i, 1) & "</td>"
  response.write "  <td height=20 align=center width=200>" & xlsheet.Cells(i, 2) & "</td>"
  response.write "  <td height=20 align=center width=200>" & xlsheet.Cells(i, 3) & "</td>"
  response.write "</tr>"
    i=i+1

  wend
    response.write "</table>"
set xlsheet=nothing
set xlbook=nothing
xlApp.quit  '千萬記住要加這一句，否則每運(yùn)行一次你的機(jī)器里就增加一個excel進(jìn)程，而且無法釋放。我試過"set
xlApp=nothing"是不行的。
%>