网络编程
位置:首页>> 网络编程>> Asp编程>> asp如何直接调用Excel数据?

asp如何直接调用Excel数据?

  发布时间:2010-06-28 18:26:00 

标签:excel,调用,数据,asp

如何直接调用Excel数据?

在ASP中,不用ODBC,如何直接调用Excel数据?

  在调用处理处,究竟是使用:

xlApp.quit

还是使用:

set xlApp=nothing

是这个程序成败的关键,如果使用不当,嘿嘿,每运行一次程序,就在你的机器里就增加一个无法释放的excel进程(!)
    具体程序代码见下:

<%@language=vbscript %>
<%
Set xlApp = server.CreateObject("Excel.Application")
strsource = "c:\excel\stock1.xls"
' 数据库位置
Set xlstock = xlApp.Workstocks.Open(strsource)
Set xlsheet = xlstock.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 xlstock=nothing
xlApp.quit  
%>

Excel表stock1.xsl的结构如下(注意,Excel 起始行是1而不是0):
序 号(不能为空) 姓  名 股  票
1 孙春亮 6000
2 宋颜浩 5000
3 费文华 5600

 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com