国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

Execel文件插入到ASP頁面

2019-11-18 20:27:00
字體：大 中 小
來源：轉載
供稿：網友
<%
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(strApExcel
xlApp.Quit
Set myWorkSheet=Nothing
Set myWorkBook=Nothing
Set myxlApp=Nothing
Response.Redirect strFileName
'發到瀏覽器中去
%>

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 雷州市| 瑞昌市| 东源县| 中方县| 巨鹿县| 乐安县| 墨竹工卡县| 轮台县| 顺昌县| 东阳市| 许昌市| 大悟县| 开阳县| 灌阳县| 琼海市| 新疆| 清涧县| 定远县| 呼和浩特市| 鄱阳县| 林周县| 南城县| 壤塘县| 绥芬河市| 文水县| 蓝山县| 五家渠市| 三门县| 图们市| 南溪县| 南木林县| 河曲县| 胶南市| 太仓市| 凤台县| 龙井市| 牟定县| 永春县| 宜良县| 罗田县| 贵阳市|