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

2019-11-18 20:34:52

字體：大中小

供稿：網(wǎng)友

例子：
在"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"是不行的。
%>

上一篇：獲得jpg文件的實(shí)際尺寸

下一篇：樣設(shè)置為使用OLEDB連接我的Access數(shù)據(jù)庫？