一聚教程网:一个值得你收藏的教程网站

热门教程

怎样把数据汇到Excel中的心得经验

时间:2022-06-30 09:58:52 编辑:袖梨 来源:一聚教程网

经常看到有些人问怎么把Table的资料转到Excel里面去,很多人在碰到这个问题都先考虑用execl.appliction,我用过感觉很不好,首先必需要掌握它的一些内部用法,其次它在客户端使用时涉及安全性,使用不太好,以下给大家介绍三众方法:
方法一:用单纯的文本格式实现
该方法相当简单,以下给出代码,各位就容易明白
<% set fso=server.createobject("scripting.filesystemobject")
strExcelFile=server.MapPath("txtToExcel.xls")
if fso.fileExists(strExcelFile) then fso.deletefile strExcelFile
Set xslFile = fso.CreateTextFile(strExcelFile , True)
xslFile.WriteLine("df" & vbTab & "345" & vbLf & "fe" & vbTab & "mon" &vbLf)
xslFile.Close
set fso=nothing
response.write "OK"
%>
原理:
相信大家都知道,Excel是可以打开文本文件的(什么?你不知道,先回去做两个月的文员再来编程,太不懂打破规则了),而对于里面的文本内容Excel则会这样处理:如果遇到[制表符]Tab键则跳下一列,如果遇到[换行符]则换下一行,所以根据这个规则我们整理一下就可以产生单一表格式Excel文件了,
优点:
掌握简单,纯粹的文字整理而已(哈!原来不就是文字游戏而已,哼!提到游戏就精神了吧)
缺点:
效率较低,把一个较多内容的table转成Excel档要则执行较长的循环(),而文档格式只能是规则的行列格式,对表格不能做更多的设置
方法二:用OWC实现:
此方法也简单(OWC!不又要学新东西了?放心,非常简单,只要你具备男国足的头脑就OK,什么?还不够,拖出去海扁九九八十二下,不好意思,打上瘾,多了一下),只是少为人知而已(在网上我没看到其他人用过),同样先给出代码: