| 本月文章推荐 |
Execel文件插入到ASP页面发表日期：2001-11-18
|
|
<%
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 '发到浏览器中去 %> |
| 上一篇：FrontPage 2000+DB2实现数据库信息发布
人气:13203 下一篇：利用ASP在客户端注册DLL文件 人气:12216 |
| 浏览全部的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
