asp导出excel一
来源:互联网 发布:游戏的代理端口 编辑:程序博客网 时间:2024/05/01 22:11
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%response.ContentType ="application/vnd.ms-excel"
%>
<%
Set xlApplication = Server.CreateObject("Excel.Application") '调用excel对象
xlApplication.Visible = False '无需打开excel
xlApplication.SheetsInNewWorkbook=1 '指定excel中表的数量
xlApplication.Workbooks.Add '添加工作簿
Set xlWorksheet = xlApplication.Worksheets(1) '生成第1个工作表的子对象
xlWorksheet.name="统计" '指定工作表名称
'指定列的宽度以及对齐方式
xlApplication.ActiveSheet.Columns(1).ColumnWidth=5
xlApplication.ActiveSheet.Columns(1).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(2).ColumnWidth=40
xlApplication.ActiveSheet.Columns(2).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(3).ColumnWidth=5
xlApplication.ActiveSheet.Columns(3).HorizontalAlignment=3
xlApplication.ActiveSheet.Columns(4).ColumnWidth=15
xlApplication.ActiveSheet.Columns(4).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(5).ColumnWidth=12
xlApplication.ActiveSheet.Columns(5).HorizontalAlignment=1
xlApplication.ActiveSheet.Columns(6).ColumnWidth=12
xlApplication.ActiveSheet.Columns(6).HorizontalAlignment=3
'xlApplication.ActiveSheet.Rows(i).RowHeight = 30'行的高度
'指定列的高度以及特定列
xlWorksheet.Range(xlWorksheet.Cells(1,1), xlWorksheet.Cells(1,6)).MergeCells =True '合并列
xlWorksheet.Range("A1").value="2005年统计"
xlWorksheet.Range("A1").font.Size=14'字体大小
xlWorksheet.Range("A1").font.bold=true'粗体
xlWorksheet.Range("A1").HorizontalAlignment=3'水平对齐
xlWorksheet.Range("A1").VerticalAlignment=3'垂直对齐
xlWorksheet.Cells(2,1).Value = "序号"
xlWorksheet.Cells(2,2).Value = "标题"
xlWorksheet.Cells(2,3).Value = "图"
xlWorksheet.Cells(2,4).Value = "部门"
xlWorksheet.Cells(2,5).Value = "作者"
xlWorksheet.Cells(2,6).Value = "时间"
xlWorksheet.Range("A2:F2").Borders.LineStyle=1
'--------------------------------------------------自己可做循环i=i+1(数据库数据)
'xlWorksheet.Cells(2+i,1).Value = i
'xlWorksheet.Cells(2+i,2).Value = topic
'xlWorksheet.Cells(2+i,3).Value = img_str
'xlWorksheet.Cells(2+i,4).Value = nfrom
'xlWorksheet.Cells(2+i,5).Value = writer
'xlWorksheet.Cells(2+i,6).Value = ntime
'--------------------------------------------------
Set fs = CreateObject("Scripting.FileSystemObject")
tfile=Server.MapPath("test.xls")
if fs.FileExists(tfile) then
Set f = fs.GetFile(tfile)
f.delete true
Set f = nothing
end if
Set fs = nothing
xlWorksheet.SaveAs tfile '保存文件
xlApplication.Quit '释放对象
Set xlWorksheet = Nothing
Set xlApplication = Nothing
%>
- asp导出excel一
- Asp.net导出Excel(一)
- Asp.net导出Excel(一)
- asp.net framework4.0 使用NOPI(一)导出excel
- ASP.NE导出Excel
- ASP.NE导出Excel
- ASP.NE导出Excel
- ASP.NE导出Excel
- ASP导出EXCEL
- asp 导出Excel
- asp.net导出excel
- ASP.NE导出Excel
- asp.net导出Excel
- asp excel导出类
- asp(aspx)导出excel
- asp.net导出excel
- asp 导入导出EXCEL
- asp导出excel二
- 知名网游架构
- My first day here.
- 一位软件工程师的6年总结作者:成晓旭
- 问网络工程师考试
- 健康常识若干
- asp导出excel一
- pku1698 Alice's Chance
- [转]8句老人言,9句悄悄话,10句贴心话。
- how to solve it 杂感
- asp导出excel二
- Emacs学习路线图(一)----之编辑器之道
- 【Java】【JMF】在win7下面使用jmf测试摄像头 windows7 jmf 摄像头
- android 的bootloader
- ps命令