杭州电脑保姆
发消息 留言 加为好友
用户公告
各位网友好：
    特此申明：本站纯属个人爱好网站，无任何赢利目的，如有涉及侵权-请留言提醒，一定马上删除！
    本站最佳浏览分辨率= 1024 X 768 ！
搜索BLOG文章
网友IP追踪



最新评论
·OK656 PSID:230790540 ..
·ok208 PSID:237929202 ..
·PSID:206158181, 开机密..
·PSID:206158181,开机密..
·ok668 qq634700963 6347..
博客基本信息
用户名: lankong
等级: 大学生
在线时间: 4153 分钟
日志总数: 410
评论数量: 448
访问次数: 331265
建立时间: 2007-06-22
友情链接
博客浙江帮助
手机游戏下载
天气预报查询
列车时刻查询
车辆违法查询
各地车牌查询
手机号码查询
手机价格型号
网站排名查询
身份证号验证
免费在线翻译
货币汇率兑换
各种单位转换
阴阳转换功能
简体繁体转换
机票价格时间
五笔编码查询
论坛转贴工具
EMS邮政查询


XML RSS 2.0 WAP
ladyspark.cn
100jz.com
lovegirl.org.cn
digistalstreet.net.cn
我的日志
作者: lankong 复制 收藏
如何用asp生成excel文件2007-11-20

<!--＃i nclude FILE="../conn.inc" --> 
 
<% 
 
Set rs= Server.CreateObject("ADODB.Recordset") 
 
sql="select wpbh,wplb,wpmc,ggxh,jldw from wpjbxx" 
 
rs.open sql,conn,1,1 
 
'response.write sql 
 
'response.end 
 
%> 
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html> 
 
<head> 
 
<title>asp生成excel文件</title> 
 
</head> 
 
<body> 
 
<% 
 
 CreateXlsFile()        
 
%> 
 
</body> 
 
</html> 
 
<script LANGUAGE=vbscript RUNAT=Server> 
 
Function GenFileName() 
 
    dim fname 
 
    
 
    fname = "File" 
 
    systime=now() 
 
    fname= fname & cstr(year(systime)) & cstr(month(systime)) & cstr(day(systime)) 
 
    fname= fname  & cstr(hour(systime)) & cstr(minute(systime)) & cstr(second(systime)) 
 
    GenFileName = fname 
 
End Function

Function CreateXlsFile() 
 
    Dim xlWorkSheet                    ' Excel Worksheet object 
 
    Dim xlApplication 
 
    //如提示CreateObject("Excel.application")没有权限 
 
    //则运行(dcomcnfg)或在管理工具中运行组件服务--计算机--DCOM配置--Micorsoft Excel应用程序 
 
    ///右键属性--把安全选项中的启动和激活权限附给everyone 
 
    Set xlApplication = CreateObject("Excel.application") '调用excel对象 
 
    'xlApplication.Visible = false 
 
    xlApplication.DisplayAlerts = false //不显示警告 
 
    xlApplication.Application.Visible = false //不显示界面 
 
    xlApplication.Workbooks.Add 
 
    Set xlWorksheet = xlApplication.Worksheets(1) 
 
    xlWorksheet.Cells(1,1).Value = "物品基本信息"   
 
    iRow = 2 
 
    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 = "计量单位"        
 
    iRow = 3 
 
    If Not rs.EOF Then 
 
        Do Until rs.EOF 
 
        For i = 0 To rs.fields.Count-1 
 
            xlWorksheet.Cells(iRow,i + 1).Value = rs.fields(i) 
 
        //xlWorksheet.Cells(iRow,i + 1).HorizontalAlignment = xlCenter 
 
        //xlWorksheet.Cells(iRow,i + 1).VerticalAlignment = xlCenter 
 
        Next 
 
        iRow = iRow + 1 
 
        rs.MoveNext 
 
    Loop 
 
    End If 
 
    strFile = GenFileName() 
 
    xlWorksheet.SaveAs Server.MapPath(".") & "\" & strFile & ".xls" 
 
    xlApplication.Quit                                                ' Close the Workbook 
 
    Set xlWorksheet = Nothing 
 
    Set xlApplication = Nothing 
 
    Response.Write("Click <A HRef=" & strFile & ".xls>Here</A> to get XLS file")    
 
End Function 
 
</script> 
 
<script language="javascript"> 
 
function exportExcel(atblData) 
 
{ 
 
if(typeof(EXPORT_OBJECT)!="object") 
 
{ 
 
document.body.insertAdjacentHTML("afterBegin","<OBJECT style='display:none' classid=clsid:0002E510-0000-0000-C000-000000000046 id=EXPORT_OBJECT></Object>"); 
 
} 
 
with (EXPORT_OBJECT) 
 
{ 
 
DataType = "HTMLData"; 
 
HTMLData =atblData.outerHTML; 
 
try{ 
 
ActiveSheet.Export("C:\\owcToExcel.xls", 0); 
 
alert('汇出完毕'); 
 
} 
 
catch (e){ 
 
alert('汇出Excel表失败，请确定已安装Excel2000(或更高版本),并且没打开同名xls文件'); 
 
} 
 
} 
 
} 
 
</script>


原创文章如转载，请注明：转载自滨江区电脑维修_杭州电脑保姆 [ http://yzw.blog.zj.com/ ]
本文链接地址：http://yzw.blog.zj.com/blog/d-168717.html

TAG: asp生成excel
相关文章
文章评论 共0条回复
给文章评分
评分： -5 -3 -1 - +1 +3 +5
我来说两句
认证码* 看不清，就点我！ 输入四位字母或数字
(您还没有登录,登录发表)
粗体 斜体 下划线 插入url链接 飞行字 移动字