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

2016-01-29 17:32 55 1 收藏

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

【 tulaoshi.com - ASP 】

  例子:
在"c:excelbook1.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:excelbook1.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"是不行的。
%


 

来源:http://www.tulaoshi.com/n/20160129/1501800.html

延伸阅读
标签: ASP
  <!-- #include file = "DB.fun" -- <% mingcheng=request("mingcheng") sec=Request("score") session("mingcheng")=mingcheng session("sec")=sec If session("ID")="" then    response.redirect "qzhuce.asp"   &...
标签: ASP
  <%@ Page Language="VB"% <%@ Import Namespace="System.Data" % <%@ Import Namespace="System.Data.ADO" % <script language="VB" runat="server"   Sub subbtn_OnClick(Sender As Object, E As EventArgs)       Dim c...
标签: ASP
  'EXCELa.VBS '直接将查询数据结果生成 EXCEL 表,稍做修改后即可 '改成ASP文件放在服务器上面向客户 option Explicit dim conn,strConnString Set conn = WScript.CreateObject("ADODB.Connection") on error resume next strConnString ="Provider=SQLOLEDB.1;Password=UP;" & _     &n...
标签: 电脑入门
Excel中常常使用到函数,因为我们要统计不同的数据,所以就需要使用到函数。 而Excel中的函数有这么两种使用方法,即单独使用某个函数和嵌套使用多个函数。 所谓的嵌套使用函数,指的是多个函数同时使用,其目的就是为实现某种复杂的统计功能。 下面,就给你介绍一下Excel函数嵌套的使用方法,给你举多个例子。 一、两个函数的嵌套使用 A...
标签: Web开发
1.调用存储过程的一般方法 先假设在sql server中有一存储过程dt_users: CREATE PROCEDURE [dbo].[dt_users] AS select * from users return GO 第一种方法是不利用command对象,直接用recordset对象 set rs=server.createobject("adodb.recordset") sql="exec dt_users" rs.open sql,c...

经验教程

36

收藏

11
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部