软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 网络编程 > ASP教程 > ASP直接调用EXCEL数据的例子(不用ODBC)

ASP直接调用EXCEL数据的例子(不用ODBC)

【烈火建站学院文档】今日有个朋友问小编如何在ASP直接调用EXCEL,小编的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 "<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  '千万记住要加这一句,否则每运行一次你的机器里就增加一个excel进程,而且无法释放。我试过"set
xlApp=nothing"是不行的。
%>

    相关阅读
    栏目导航
    推荐软件