欢迎访问:常州市武进区嘉泽中心小学网站 !今天是:
栏目列表
您现在的位置是:首页>>教师>>计算机技术>>网站制作技术>>文章内容
[原创]将TDC进行到底:将数据保存到Excel里
发布时间:2008-11-20   点击:   来源:本站原创   录入者:佚名
 



提供的TDC的例子中增加下面这个函数可以将数据保存到Excel里。
<script language="JavaScript">
function SavetoExcel(){
    var rst=tdcComposers.recordset;
    var xlApp= new ActiveXObject("Excel.Application");
    var xlWb = xlApp.Workbooks.Add();
    var xlWs = xlWb.Worksheets("Sheet1");
    
    //显示Excel
    xlApp.Visible ="1";
    xlApp.UserControl="1";
    
    //给Excel添加列
    var fldCount = rst.Fields.Count;
    for (var iCol=1;iCol<=fldCount;iCol++){
    xlWs.Cells(1, iCol).Value = rst.Fields(iCol - 1).Name;
    }

//EXCEL 2000 or 2002: Use CopyFromRecordset
xlWs.Cells(2, 1).CopyFromRecordset(rst);

    xlApp.Selection.CurrentRegion.Columns.AutoFit();
    xlApp.Selection.CurrentRegion.Rows.AutoFit();
    
    xlWs = null;
xlWb = null;
xlApp = null;     
}
</script>

附件:
    关闭窗口
    打印文档
    账号登录
    保持登录 忘记密码?
    账号与武进教师培训平台同步