繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > Execel文件插入到ASP页面
- ASP
- ASP页面随机添加字符实现防复制的代码
- ASP中应用事务处理技巧
- asp下比较全面的获取IP地址的代码
- ASP实现缓存类无错版
- asp下实现批量插入数据的方法
- asp下用ADODB.Stream代替FSO读取文本文件
- asp之基于adodb.stream的文件操作类
- 自己写的文件操作的function和Sub vb.net dll
- kesion科讯V4.0管理员Key工具
- asp 获取access系统表，查询等操作代码
- asp之字符串函数示例
- asp之日期和时间函数示例
- ASP 关于动态数据显示页面得锚点
- Asp无组件上传进度条解决方案
- ASP控制每页打印行数
- 用ASP实现分级权限控制
- ASP在服务器自动解压RAR文件
- 用ASP实现远程将文件批量改名的代码
- 在Asp程序中取得表单所有内容的代码
- 使用ASP实现网站的“目录树”管理的代码
Execel文件插入到ASP页面
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 234 ::
收藏到网摘: n/a
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
'发到浏览器中去
%>
评论 (0) All
