Execel文件插入到ASP页面

2016-01-29 17:35 2 1 收藏

Execel文件插入到ASP页面,Execel文件插入到ASP页面

【 tulaoshi.com - ASP 】

<%
Set Xlapp=Server.Createobject("Execel.Application")
Xlapp.Visible=false
'使服务端不出现Execel窗口
Set myWorkbook=xlapp.Wordbooks.Add
Set myWorksheet=myWorkbook.Worksheets(1)
'建立一个WorkSheet
myWorkSheet.Range("A1").Value=''
myWorkSheet.Range("A1").Vont.size=18
myWorkSheet.Range("A1").Font.Bold=True
myWorkSheet.Range("A2").Value='姓名'
myWorkSheet.Range("B2").Value='住址'
myWorkSheet.Range("C2").Value='电话'
myWorkSheet.Range("D2").Value='传真'
'建立表头
myWorkSheet.Range("A2:D2").Font.Bold=True
StrFileName=Session.SessionID&".xls"
'确保文件名唯一
strAppPath=Request.ServerVariables("PATH_TRANSLATED")
strAppPath=Left(strAppPth,InstrRev(strAppPath,""))
strFullPath=strAppPath&strFileName
myWorkBook.SaveAs(StrFullPath)
'保存文件
myWorkbook.Close
'关闭Excel
xlApp.Quit
Set myWorkSheet=Nothing
Set myWorkBook=Nothing
Set myxlApp=Nothing
Response.Redirect strFileName
'发到浏览器中去
%

来源:https://www.tulaoshi.com/n/20160129/1502016.html

上一篇： Office轻松把PDF文件转成Word文档
下一篇： Windows XP实用技巧：自动更改地址栏字体

看过《Execel文件插入到ASP页面》的人还看了以下文章更多>>

纯ASP上传图像文件到数据库的最佳例子

标签： ASP

getfile.htm ------------------------- <html <head <title保存图片到数据库</title </head <body <b <p</b你可以找个图片试试，保存完毕后会有提示</p <form METHOD="POST" ENCTYPE="multipart/form-data" ACTION="savetodb.asp" <pEmail : <i...

Asp计算页面执行时间

标签： Web开发

页面执行时间：就是从这页的开始执行一直到这页执行完毕所用的时间。许多网站的首页的页尾都会显示一个页面执行时间，下面说说如何实现：首先在一个网页的开头定义一个变量： dim startime startime=timer() 在显示页面执行时间的地方，这个地方应该是页尾的地方： dim endtime endtime=timer() ...

asp+ 如何跨站抓取页面

标签： ASP

如何用 PHp 和 Asp 跨站抓取别的站点的页面，今天我们来测试一下 asp+ 是怎么实现跨站抓取别的站点的页面 Code Listing <%@ Assembly Name="System.Net" % <%@ Import Namespace="System.Net" % <%@ Import Namespace="System.IO" % <script language="VB" runat="server...

Asp.Net页面输出到EXCE

利用ASP.NET输出指定内容的WORD、EXCEL、TXT、HTM等类型的文档很容易的。主要分为三步来完成。一、定义文档类型、字符编码 Response.Clear(); Response.Buffer= true; Response.Charset="utf-8"; //下面这行很重要， attachment 参数表...

提高ASP页面的执行效率（中）

标签： ASP

2.影响ASP的要素 (1).尽量把对象变量转换成本地变量，因为读本地变量比读对象变量要快许多。比较慢的例子: if Myobj.Value = 0 then Do something elseif Myobj.Value ＞ 0 then Do something elseif Myobj.Value ＜ 0 then Do something end if 比较快的例子: MyVar = Myobj.Value if MyVar = 0 then D...

查看更多精彩>>