最新消息:重新回归WordPress,我要比较认真的开始更新我的博客了。

ASP生成EXCEL的例子

程序问题 hanlei 695浏览

很多天没有更新了!

<% 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(1).font.bold=true 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(2,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(3,1).Value = "省 " xlWorksheet.Cells(3,2).Value = "城市 " xlWorksheet.Cells(3,3).Value = "姓名 " xlWorksheet.Cells(3,4).Value = "性别 " xlWorksheet.Cells(3,5).Value = "出生日期 " xlWorksheet.Cells(3,6).Value = "手机 " xlWorksheet.Range( "A2:F2 ").Borders.LineStyle=1 Call openconn() Dim sql sql= "select top 100 * from kehuziliao " Set rs=conn.execute(sql) Dim i i=1 Do While Not rs.eof '--------------------------------------------------自己可做循环i=i+1(数据库数据) xlWorksheet.Cells(2+i,1).Value = rs( "quyu ") xlWorksheet.Cells(2+i,2).Value = rs( "chengshi ") xlWorksheet.Cells(2+i,3).Value = rs( "xingming ") xlWorksheet.Cells(2+i,4).Value =rs( "xingbie ") xlWorksheet.Cells(2+i,5).Value =rs( "chushengriqi ") xlWorksheet.Cells(2+i,6).Value = rs( "shouji ") '-------------------------------------------------- response.write rs( "xingming ")& "

‘response.wirte “ss “&len(rs)& “ss ”
ResultSetMetaData rsmd = rs.getMetaData();
int numberOfColumns = rsmd.getColumnCount();
response.write numberOfColumns;
response.write numberOfColumns& ”
“;
boolean b = rsmd.isSearchable(1);
response.write b
i=i+1
rs.movenext
Loop
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
%>

转载请注明:HANLEI'BLOG » ASP生成EXCEL的例子