ColdFusion中导出Excel文件

+---------------------------------------------------------+
+ 以下内容为本人原创,共享以赏读者,转帖时请保留该信息 +
+ yeyanbo ye.yanbo@gmail.com +
+---------------------------------------------------------+

要想将页面的内容导出到Excel文件,用于保存备份或者是排版打印.在ColdFusion中可以通过2种方式来解决.

1. 简单方式
此种方式适合于简单页面,不能在Excel中形成多Sheet格式, 无排版.
我们先举个例子,以例子来说明这个方式的几个重点.
<cfprocessingdirective suppresswhitespace="yes">
<cfquery name="PRSList" datasource="PRS">
SELECT * FROM PRS;
</cfquery>
<cfsetting enablecfoutputonly="yes">
<cfset tabchar="Chr(9)">
<cfset newline="Chr(13)&Chr(10)">
<cfsavecontent variable="theFileContent">
<cfloop query="PRSList">
<cfoutput>
#PRSList.PRID##TabChar#
#PRSList.Title##TabChar#
#PRSList.Name##TabChar#
#DateFormat(PRSList.ModifyTime,"yyyy-mm-dd")##NewLine#
</cfoutput>
</cfloop>
</cfsavecontent>
<cfheader name="Content-Disposition" value="attachment;filename=prs.xls">
<cfcontent type="application/vnd.ms-excel; charset=gb2312" variable="#ToBinary(ToBase64(theFileContent," reset="no">
</cfprocessingdirective>

我已经用不同的颜色来区分出来几个设计时候的重点了:
A> 这个是必须的, 它可以去除多余的空白字符.
<cfprocessingdirective suppresswhitespace="yes">

B 这个设置内容可以输出,并定义了2个特殊字符:TAB符号和换行符号.
<cfsetting enablecfoutputonly="yes">
<cfset tabchar="Chr(9)">
<cfset newline="Chr(13)&Chr(10)">

C 绿色的区域指定了要输出到Excel文件中的内容,并以变量variable="theFileContent"来保存.

D 红色部分是固定格式内容, 我们可以在这里设置缺省的存储文件名filename=prs.xls.

2. 复杂方式
如果你要求的格式比较复杂,又排版需求,那么就只能采用这种方式了.
我们必须要通过Excel.Application组件来进行设计.下面我来介绍一下如何在ColdFusion中操作Excel组件.
<cfscrīpt>
//创建组件实例
objExcel = CreateObject("COM", "Excel.Application");

//获取WorkBook, 也就是我们理解中的Excel文件.
objWorkBook = objExcel.WorkBooks.Add();

//获取WorkSheet,可以由2种方式.
objWorkSheet = objWorkBook.WorkSheets.add();
objWorkSheet = objWorkBook.WorkSheets.item("sheet1");

//设置列宽,行高,对齐方式
objWorkSheet.Columns.AutoFit();
objWorkSheet.Columns.item("A:I").HorizontalAlignment = 3;
objWorkSheet.Columns.item("A:I").VerticalAlignment = 2;
objWorkSheet.Columns.item("A:I").ColumnWidth = 10;
objWorkSheet.Rows.item("1:10").RowHeight = 100;

//在第10行之前插入分页符, 删除时参数值为0
objWorkSheet.Rows.item("10").PageBreak = 1;

//获取单元格.
objRange = objWorkSheet.Range("A1:A1");

//设置单元格的宽度
objRange.ColumnWidth = 4.00;

//设置单元格的字体
objF = objRange.Font;
objF.Name = "黑体";
objF.Size = 16;
objF.Bold = True;

//设置单元格的对齐格式
objRange.HorizontalAlignment = 1;
objRange.VerticalAlignment = 1;

//设置单元格的回行
objRange.WrapText = True;

//设置单元格的收缩
objRange.ShrinkToFit = True;

//设置单元格的格式,@=文本显示,日期的可以是"yyyy-mm-dd"
objRange.NumberFormatLocal = "@";

//设置单元格的值
//objRange.value = "TEST";

//设置单元格的颜色
objI = objRange.Interior;
objI.ColorIndex = 6;

//设置单元格的边框, 不带item属性代表所有的边框
objLine = objRange.Borders;

//Borders参数: 1-左, 2-右, 3-顶, 4-底, 5-斜\, 6-斜/
objLine = objRange.Borders.item("5");

//LineStyle参数: 1 7-实线, 2-虚线, 4-点虚线, 9-双细实线
objLine.LineStyle = 2;

//合并单元格
objRange = objWorkSheet.Range("A2:C2");
objRange.MergeCells = true;

//可以对合并之后的单元格进行操作
objLine = objRange.Borders;
objLine.LineStyle = 9;

//定义打印时候的页头, 其中&30表示字体的大小,可更改
//CenterHeader可以替换为LeftHeader, RightHeader
objWorkSheet.PageSetup.CenterHeader = "打印的表头";
objWorkSheet.PageSetup.CenterHeader = "&30打印的表头";

//定义打印时候的页脚, 其中&20表示字体的大小,可更改
//CenterFooter可以替换为LeftFooter, RightFooter
objWorkSheet.PageSetup.CenterFooter = "第&P页";
objWorkSheet.PageSetup.CenterFooter = "&20第&P页";

//设置边距, 分子表示xx厘米
objWorkSheet.PageSetup.HeaderMargin = 2/0.035;
objWorkSheet.PageSetup.FooterMargin = 3/0.035;
objWorkSheet.PageSetup.TopMargin = 2/0.035;
objWorkSheet.PageSetup.BottomMargin = 4/0.035;
objWorkSheet.PageSetup.LeftMargin = 2/0.035;
objWorkSheet.PageSetup.RightMargin = 2/0.035;

//保存
objWorkSheet.SaveAs("c:\error_log.xls");

//关闭
objWorkBook.Close();

//释放
objExcel.Quit();
objExcel = "Nothing";


参考资料:
VFP全面控制EXCEL - 十豆三 的专栏

评论

发表评论

此博客中的热门博文

如何解决在Delphi2009中添加pas组件的问题

过去Delphi7的时代，我们写了很多.pas的单元式组件，用Install Component的方式就可以安装了。但是，在Delphi2009中这个功能被取消了。 如何解决这个问题呢？ 你可以在Delphi2009中New一个Package，然后将你的*.pas文件和相关文件（*.dcu， *.dcr，*.res) 添加到Package中，然后再Build该项目，会产生*.hpp, *.obj, *.bpi, *.lib, *.bpl 等文件。 然后，你就可以在Delphi2009中使用Install package方式安装了。 如果你的.pas文件中没有Register方法，你需要补充它： procedure Register; begin RegisterComponents('MyComponentName', [MyTypeName]); end;
阅读全文

在Delphi中操作Sap对象造成内存增长的原因

曾经在我的一个Delphi开发项目中，我遇到过这样一个问题，困扰了我相当一段时间。 我将SAP对象封装成了类，并在一个线程中调用。也就是说，SAP对象的创建释放全部是通过代码来操作的，不同于直接将SAP控件拖放到窗体上。 线程每执行一次SAP读写操作，内存就增长24K-32K。 关键代码 下面是SAP类的部分关键代码，含有SAP对象的创建和释放。 procedure TSapSvr.Open(FunctionName: string); begin if fConnect.LogOn(0, True) then begin fFunctionName := FunctionName; fFunction := fSapFunctions.Add(FunctionName); end; end; procedure TSapSvr.Close; begin fFunction := Unassigned; fSapFunctions.ReMoveAll(); fConnect.LogOff; end; 我就是在线程中不断的调用Open和Close函数，你能看出问题出在哪里吗？你肯定想不到的。 解决方案 我也是在无意中发现的，不过我现在还不知道原因，告诉你解决的方法吧！那就是将 fSapFunctions.ReMoveAll(); 删除！！！ 结束语 你能告诉我原因吗？ 附件中我提供了我封装的SAP类，分享给大家，如果发现问题，请转送一份文件给我！
阅读全文

杀死团队的七种武器（转）

不管你是一个团队的成员还是带头人，如果你对它已经厌倦了，恨不得大家早点儿散伙，不妨赶紧捡起来下面这七种武器。好吧，也许你是一片好心， 希望改变团队目前垂垂危矣的状况，病急乱投医，随便捡起一把枪，却没搞懂枪口冲着哪个方向，再加上擦枪走火，自行了断，也不是不可能。有的武器介绍之后，还有使用它的进阶技巧。让其成为项目管理、共同协作、职场发展必备之最佳利器。 　　如果当初猪八戒扔掉钉耙，而是拿起来这些的话，也许他早就回高老庄，跟高翠兰一起，从此过上快乐、幸福的生活了。 武器一：贸然加入陌生人 　　团队来了新人，不要介绍他给大家认识，不要让大家知道他的技能和长处。人们会根据他的一些细微行为做出自己的判断，而不是先去深入了解他。 要是新人的兴趣癖好跟大家完全相反，那就再好不过了。 进阶技巧： 　　把两个死对头加入到一个团队中，而且告诉大家他们的技能对于团队来说很重要。这样一来，他们之间的摩擦就会成为加速团队分裂的催化剂。 武器二：限制沟通 　　别让大家谈天，这样会增进他们的感情。不断提醒他们“你们还有活要干！”要是能在办公室里面贴上一个“静”，就再好不过。实际上，如果团队分布在不同的地方， 甚至彼此之间的文化背景都不同，效果就更好了。不到迫不得已，绝不要把一个团队的人安排在一起。不要公布通讯录。让人们的惰性发挥效果，如果想找一个人很麻烦，他就不会找了。 进阶技巧： 　　告诉团队时间紧迫，发邮件也是浪费时间。这样人们就不会发送不必要的信息了。 武器三：分清长幼尊卑 　　最佳的装备给最棒的人。最快的电脑、最好的办公室、额外的假期等等等等，只给这些精英人物。当人们看到有人可以享受特权时，嫉妒暗自滋生。基督教的七宗罪，“嫉妒”跻身其中。更美妙的是，一旦这种致命武器在团队中出现，不用人浇灌，敌意就会不断蔓延。 武器四：打人要打脸 　　每个人都有自己的弱点，找到它！把人们的弱点公开出来，并且使其个人化。要指名道姓！在表达方式上也要无所不用其极：羞辱，责怪等等，不一而足。传播方式，可以通过备忘录、邮件、会议上的发言。用红色的大字体可以加强效果。更棒的是，你还可以散布流言。要想让人信服，不妨在流言中加入一些真相，这就更有效啦。。。 进阶技巧 　　曾经有一个公司的总裁，向全公司发送了一个备忘录，其中责备了软件团队新产品的种种不足。这种做法太牛掰了！这个总裁也就成了公司的杀手，不久之后，公司成功散...
阅读全文