officeba > 单独文章
方法一：用单纯的文本格式实现
该方法相当简单，以下给出代码，各位就容易明白
<% 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，什么？还不够，拖出去海扁九九八十二下，不好意思，打上瘾，多了一下），只是少为人知而已（在网上我没看到其他人用过），同样先给出代码：
<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>
<table id= "tblData ">
<tr> <td> gdsssa </td> <td> 445 </td> </tr>
<tr> <td> gdsssa </td> <td> 445 </td> </tr>
</table>
<input type= "button " value= "export " onclick= "exportExcel(tblData) ">
原理：
大家应该看出这是前端脚本html实现，其实这是利用OWC的功能来转出Excel档，我们只需整理出一个Table档（我还不会做这个Table档呢！哐啷，晕了），基本上我们整理出的Table在网页上是什么样子，在Excel上就是什么样子，但要注意: <style> 在Excel里不起作用
优点：
掌握也很简单，而且可以在前台实现，并且不会设计权限问题，为前台产生Excel档存到客户端而伤透脑筋的兄弟姐妹们，这个方法，走过路过，千万别错过了
缺点：
客户端必需安装Excel2000或更高版本（不过这个一般都不成问题的了），而且样式表的内容不能输出。
方法三：利用XML来产生
这个嘛，先不给代码，首先讲讲道理，咳咳咳，注意啦，这可是非常这节课的重点和难点，而且每年必考，所以（所你个头啊，也不看看别人都睡着了，还不讲点有用的），啊！不好意思，拿错讲稿了。至于这个原理嘛，大家先自己随便编一个Excel档，然后把它另存为*.htm文件，再打开，是不是根我们一般的网页内容非常相似（唉！什么还是老样子，用文本编辑器打开啊！讲漏一点都不行），那么我们是不是只需要整理出这些文字出来就可以了，哈哈！又是文字游戏（盯那么大的眼睛干嘛，一提到游戏就精神），关键是怎样整理出这份文本文字档案呢
（用第一个方法不就行了吗？哦！怎么我没想到，对，是太麻烦了）?我们分析一下这些文字，第一部分是 <style> 样式表的定义，第二部分是Excel特有的定义内容，第三部分是则是最熟悉的Table数据了，那么对于这三部分，前两部分基本是固定了，我整理一下基本只需要这些：
<html xmlns:s= "uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882 " xmlns:dt= "uuid:C2F41010-65B3-11d1-A29F-00AA00C14882 " xmlns:rs= "urn:schemas-microsoft-com:rowset " xmlns:z= "#RowsetSchema " xmlns:o= "urn:schemas-microsoft-com:office:office " xmlns:x= "urn:schemas-microsoft-com:office:excel " xmlns= "https://www.w3.org/TR/REC-html40 ">
<head>
<meta http-equiv= "Content-Type " content= "text/html; "/>
<style>
.xl24{mso-style-parent:style0;mso-number-format: "\@ ";text-align:right;}
</style>
<xml>
<x:ExcelWorkbook>
<x:ExcelWorksheets>
<x:ExcelWorksheet>
<x:Name> Sheet1 </x:Name>
<x:WorksheetOptions>
<x:ProtectContents> False </x:ProtectContents>
<x:ProtectObjects> False </x:ProtectObjects>
<x:ProtectScenarios> False </x:ProtectScenarios>
</x:WorksheetOptions>
</x:ExcelWorksheet>
</x:ExcelWorksheets>
</x:ExcelWorkbook>
</xml>
</head>
（哇！压缩了这么多，难怪MS的软件都这么大），当然可能我也把一些有用的删掉了，各位发现有枉杀的帮我平反一下（不要以为学习这么容易，当然要做点事啦）
然后是第三部分，这一部分如果还是通过循环来读出然后再整理成Table的html脚本，那就太不思进取了，众所周知，我们可以通过recordset来读取数据的指定内容，而且可以通过save来直接把那些内容生成一个xml文件，所以我们只需要根据这个xml文件写一个xsl文件来转换就...哈，取得西经了，那么这个方法是我认为最好的，因为我们可以任意设定Table的样式，同时不必诸多循环，有效解决Excel一些自做聪明的小动作（那些小动作？你在Excel输入3423423423424这串数字看看，还有日期时间格式之类的），
思路就说完了，怎么实现就靠各人自己动手了。
这种方法的优点是你可以定制很好的格式的Excel文件，只要你xsl会写，包括统计都可以做出来，所以懂xsl的人估计来到这里比较明白了，而且效率很高，不用再慢慢循环了
缺点嘛:就是技术要求高了一点，至于算有多高，各人不同了。
最后附上我的代码，希望大家不要停留于抄代码，能有所改进，当然有更好的方法别忘记通知一下我哦!
===========xmlToExcel.asp=============
<% Set Conn=Server.CreateObject( "ADODB.Connection ")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath( "comp_apply.mdb ")
'strSelect= "select dept_no,dept_name,dept_check from dept_data "
strSelect= "select * from user_data " '改变该SQL语句则可改变excel的内容
Set rs=server.createobject( "adodb.recordset ")
rs.open strSelect,conn,1,1
set fso=server.createobject( "scripting.filesystemobject ")
strXmlFile=server.MapPath( "xmlToExcelTmp.xml ")
strXslFile=server.MapPath( "xmlToExcel.xsl ")
strExcelFile=server.MapPath( "xmlToExcel.xls ")
if fso.fileExists(strXmlFile) then fso.deletefile strXmlFile
rs.save strXmlFile,1
rs.close
Conn.close
set Conn=nothing
set xmlDoc=server.createobject( "microsoft.xmldom ")
set xslDoc=server.createobject( "microsoft.xmldom ")
xslDoc.load(strXslFile)
xmlDoc.load(strXmlFile)
xmlDoc.loadXml(xmlDoc.transformNode(xslDoc))
if fso.fileExists(strExcelFile) then fso.deletefile strExcelFile
Set xslFile = fso.CreateTextFile(strExcelFile , True)
xslFile.WriteLine(xmlDoc.xml)
xslFile.Close
fso.deletefile strXmlFile
set fso=nothing
response.redirect "xmlToExcel.xls "
%>
==============xmlToExcel.xsl=============
<xsl:stylesheet version= "1.0 " xmlns:xsl= "https://www.w3.org/1999/XSL/Transform "
xmlns:s= 'uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882 '
xmlns:dt= 'uuid:C2F41010-65B3-11d1-A29F-00AA00C14882 '
xmlns:rs= 'urn:schemas-microsoft-com:rowset '
xmlns:z= '#RowsetSchema '>
<xsl:output method= "html " indent= "yes " />
<xsl:template match= "xml/rs:data ">
<html xmlns:o= "urn:schemas-microsoft-com:office:office " xmlns:x= "urn:schemas-microsoft-com:office:excel " xmlns= "https://www.w3.org/TR/REC-html40 ">
<head>
<meta http-equiv= "Content-Type " content= "text/html;charset=gb2312 " />
<style>
.xl24{mso-style-parent:style0;mso-number-format: "\@ ";text-align:right;}
</style>
<xml>
<x:ExcelWorkbook>
<x:ExcelWorksheets>
<x:ExcelWorksheet>
<x:Name> Sheet1 </x:Name>
<x:WorksheetOptions>
<x:ProtectContents> False </x:ProtectContents>
<x:ProtectObjects> False </x:ProtectObjects>
<x:ProtectScenarios> False </x:ProtectScenarios>
</x:WorksheetOptions>
</x:ExcelWorksheet>
</x:ExcelWorksheets>
</x:ExcelWorkbook>
</xml>
</head>
<body>
<table border= "1 " cellpadding= "0 " cellspacing= "0 ">
<tr> <xsl:for-each select= "/xml/s:Schema/s:ElementType/s:AttributeType ">
<th> <xsl:value-of select= "@name " /> </th>
</xsl:for-each>
</tr>
<xsl:apply-templates select= "z:row " />
</table>
</body>
</html>
</xsl:template>
<xsl:template match= "z:row ">
<xsl:variable name= "position "> <xsl:value-of select= "position() " /> </xsl:variable>
<tr> <xsl:for-each select= "/xml/s:Schema/s:ElementType/s:AttributeType "> <!-- 读取定义好的数据列名 -->
<xsl:variable name= "strColumn "> <xsl:value-of select= "@name " /> </xsl:variable>
<xsl:variable name= "strValue "> <xsl:value-of select= "/xml/rs:data/z:row[position()=$position]/@*[name() = $strColumn] " /> </xsl:variable>
<td class= "xl24 ">
<xsl:value-of select= "$strValue " />
</td>
</xsl:for-each>
</tr>
</xsl:template>
</xsl:stylesheet>
补充一下：对于第三种方法因为Recordset 用 Save方法后有时对于那些null的字段在row中不会有它的字段名，所以我现在通过去ElementType那里读取字段名，以保证不造成到时的Excel的纵列方位出错，但这个问题在.net里的DataSet确很好解决，因为DataSet中如果碰到这种null的数据它也会有 <columnName /> 这样的空节点出现
纠正：方法二中 "但要注意: <style> 在Excel里不起作用 "
==>
网页里的 <style> 不会汇出到Excel中，所以网页里的样式表不会在Excel中看到
介绍一点把数据汇到Excel中的办法
经常看到有些人问怎么把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，什么？还不够，拖出去海扁九九八十二下，不好意思，打上瘾，多了一下），只是少为人知而已（在网上我没看到其他人用过），同样先给出代码：
<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>
<table id= "tblData ">
<tr> <td> gdsssa </td> <td> 445 </td> </tr>
<tr> <td> gdsssa </td> <td> 445 </td> </tr>
</table>
<input type= "button " value= "export " onclick= "exportExcel(tblData) ">
原理：
大家应该看出这是前端脚本html实现，其实这是利用OWC的功能来转出Excel档，我们只需整理出一个Table档（我还不会做这个Table档呢！哐啷，晕了），基本上我们整理出的Table在网页上是什么样子，在Excel上就是什么样子，但要注意: <style> 在Excel里不起作用
优点：
掌握也很简单，而且可以在前台实现，并且不会设计权限问题，为前台产生Excel档存到客户端而伤透脑筋的兄弟姐妹们，这个方法，走过路过，千万别错过了
缺点：
客户端必需安装Excel2000或更高版本（不过这个一般都不成问题的了），而且样式表的内容不能输出。
方法三：利用XML来产生
这个嘛，先不给代码，首先讲讲道理，咳咳咳，注意啦，这可是非常这节课的重点和难点，而且每年必考，所以（所你个头啊，也不看看别人都睡着了，还不讲点有用的），啊！不好意思，拿错讲稿了。至于这个原理嘛，大家先自己随便编一个Excel档，然后把它另存为*.htm文件，再打开，是不是根我们一般的网页内容非常相似（唉！什么还是老样子，用文本编辑器打开啊！讲漏一点都不行），那么我们是不是只需要整理出这些文字出来就可以了，哈哈！又是文字游戏（盯那么大的眼睛干嘛，一提到游戏就精神），关键是怎样整理出这份文本文字档案呢
（用第一个方法不就行了吗？哦！怎么我没想到，对，是太麻烦了）?我们分析一下这些文字，第一部分是 <style> 样式表的定义，第二部分是Excel特有的定义内容，第三部分是则是最熟悉的Table数据了，那么对于这三部分，前两部分基本是固定了，我整理一下基本只需要这些：
<html xmlns:s= "uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882 " xmlns:dt= "uuid:C2F41010-65B3-11d1-A29F-00AA00C14882 " xmlns:rs= "urn:schemas-microsoft-com:rowset " xmlns:z= "#RowsetSchema " xmlns:o= "urn:schemas-microsoft-com:office:office " xmlns:x= "urn:schemas-microsoft-com:office:excel " xmlns= "https://www.w3.org/TR/REC-html40 ">
<head>
<meta http-equiv= "Content-Type " content= "text/html; "/>
<style>
.xl24{mso-style-parent:style0;mso-number-format: "\@ ";text-align:right;}
</style>
<xml>
<x:ExcelWorkbook>
<x:ExcelWorksheets>
<x:ExcelWorksheet>
<x:Name> Sheet1 </x:Name>
<x:WorksheetOptions>
<x:ProtectContents> False </x:ProtectContents>
<x:ProtectObjects> False </x:ProtectObjects>
<x:ProtectScenarios> False </x:ProtectScenarios>
</x:WorksheetOptions>
</x:ExcelWorksheet>
</x:ExcelWorksheets>
</x:ExcelWorkbook>
</xml>
</head>
（哇！压缩了这么多，难怪MS的软件都这么大），当然可能我也把一些有用的删掉了，各位发现有枉杀的帮我平反一下（不要以为学习这么容易，当然要做点事啦）
然后是第三部分，这一部分如果还是通过循环来读出然后再整理成Table的html脚本，那就太不思进取了，众所周知，我们可以通过recordset来读取数据的指定内容，而且可以通过save来直接把那些内容生成一个xml文件，所以我们只需要根据这个xml文件写一个xsl文件来转换就...哈，取得西经了，那么这个方法是我认为最好的，因为我们可以任意设定Table的样式，同时不必诸多循环，有效解决Excel一些自做聪明的小动作（那些小动作？你在Excel输入3423423423424这串数字看看，还有日期时间格式之类的），
思路就说完了，怎么实现就靠各人自己动手了。
这种方法的优点是你可以定制很好的格式的Excel文件，只要你xsl会写，包括统计都可以做出来，所以懂xsl的人估计来到这里比较明白了，而且效率很高，不用再慢慢循环了
缺点嘛:就是技术要求高了一点，至于算有多高，各人不同了。
最后附上我的代码，希望大家不要停留于抄代码，能有所改进，当然有更好的方法别忘记通知一下我哦!
===========xmlToExcel.asp=============
<% Set Conn=Server.CreateObject( "ADODB.Connection ")
Conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& Server.MapPath( "comp_apply.mdb ")
'strSelect= "select dept_no,dept_name,dept_check from dept_data "
strSelect= "select * from user_data " '改变该SQL语句则可改变excel的内容
Set rs=server.createobject( "adodb.recordset ")
rs.open strSelect,conn,1,1
set fso=server.createobject( "scripting.filesystemobject ")
strXmlFile=server.MapPath( "xmlToExcelTmp.xml ")
strXslFile=server.MapPath( "xmlToExcel.xsl ")
strExcelFile=server.MapPath( "xmlToExcel.xls ")
if fso.fileExists(strXmlFile) then fso.deletefile strXmlFile
rs.save strXmlFile,1
rs.close
Conn.close
set Conn=nothing
set xmlDoc=server.createobject( "microsoft.xmldom ")
set xslDoc=server.createobject( "microsoft.xmldom ")
xslDoc.load(strXslFile)
xmlDoc.load(strXmlFile)
xmlDoc.loadXml(xmlDoc.transformNode(xslDoc))
if fso.fileExists(strExcelFile) then fso.deletefile strExcelFile
Set xslFile = fso.CreateTextFile(strExcelFile , True)
xslFile.WriteLine(xmlDoc.xml)
xslFile.Close
fso.deletefile strXmlFile
set fso=nothing
response.redirect "xmlToExcel.xls "
%>
==============xmlToExcel.xsl=============
<xsl:stylesheet version= "1.0 " xmlns:xsl= "https://www.w3.org/1999/XSL/Transform "
xmlns:s= 'uuid:BDC6E3F0-6DA3-11d1-A2A3-00AA00C14882 '
xmlns:dt= 'uuid:C2F41010-65B3-11d1-A29F-00AA00C14882 '
xmlns:rs= 'urn:schemas-microsoft-com:rowset '
xmlns:z= '#RowsetSchema '>
<xsl:output method= "html " indent= "yes " />
<xsl:template match= "xml/rs:data ">
<html xmlns:o= "urn:schemas-microsoft-com:office:office " xmlns:x= "urn:schemas-microsoft-com:office:excel " xmlns= "https://www.w3.org/TR/REC-html40 ">
<head>
<meta http-equiv= "Content-Type " content= "text/html;charset=gb2312 " />
<style>
.xl24{mso-style-parent:style0;mso-number-format: "\@ ";text-align:right;}
</style>
<xml>
<x:ExcelWorkbook>
<x:ExcelWorksheets>
<x:ExcelWorksheet>
<x:Name> Sheet1 </x:Name>
<x:WorksheetOptions>
<x:ProtectContents> False </x:ProtectContents>
<x:ProtectObjects> False </x:ProtectObjects>
<x:ProtectScenarios> False </x:ProtectScenarios>
</x:WorksheetOptions>
</x:ExcelWorksheet>
</x:ExcelWorksheets>
</x:ExcelWorkbook>
</xml>
</head>
<body>
<table border= "1 " cellpadding= "0 " cellspacing= "0 ">
<tr> <xsl:for-each select= "/xml/s:Schema/s:ElementType/s:AttributeType ">
<th> <xsl:value-of select= "@name " /> </th>
</xsl:for-each>
</tr>
<xsl:apply-templates select= "z:row " />
</table>
</body>
</html>
</xsl:template>
<xsl:template match= "z:row ">
<xsl:variable name= "position "> <xsl:value-of select= "position() " /> </xsl:variable>
<tr> <xsl:for-each select= "/xml/s:Schema/s:ElementType/s:AttributeType "> <!-- 读取定义好的数据列名 -->
<xsl:variable name= "strColumn "> <xsl:value-of select= "@name " /> </xsl:variable>
<xsl:variable name= "strValue "> <xsl:value-of select= "/xml/rs:data/z:row[position()=$position]/@*[name() = $strColumn] " /> </xsl:variable>
<td class= "xl24 ">
<xsl:value-of select= "$strValue " />
</td>
</xsl:for-each>
</tr>
</xsl:template>
</xsl:stylesheet>
补充一下：对于第三种方法因为Recordset 用 Save方法后有时对于那些null的字段在row中不会有它的字段名，所以我现在通过去ElementType那里读取字段名，以保证不造成到时的Excel的纵列方位出错，但这个问题在.net里的DataSet确很好解决，因为DataSet中如果碰到这种null的数据它也会有 <columnName /> 这样的空节点出现
纠正：方法二中 "但要注意: <style> 在Excel里不起作用 "
==>
网页里的 <style> 不会汇出到Excel中，所以网页里的样式表不会在Excel中看到
声明：欢迎各大网站转载本站文章，还请保留一条能直接指向本站的超级链接，谢谢！
时间:2010-07-25 17:39:06,点击:65824
【OfficeBa论坛】：阅读本文时遇到了什么问题，可以到论坛进行交流！Excel专家邮件：342327115@qq.com（大家在Excel使用中遇到什么问题，可以咨询此邮箱）。
【声明】:以上文章或资料除注明为Office自创或编辑整理外，均为各方收集或网友推荐所得。其中摘录的内容以共享、研究为目的，不存在任何商业考虑。如有任何异议，请与本站联系，本站确认后将立即撤下。谢谢您的支持与理解！
相关评论
我要评论
评论内容
相关文章
-
无相关信息
推荐文章