此版本比1.0版本功能增强了许多，并且也和ACCESS那类一样，可以多表存为一个文件，并也可每一表存一文件，使用方法都是相同的了。在此版本中还增加了一个方法：[Obj].Close，此方法是为了不想注销类，但又想结束类使用的Excel进程时所增加的。<%Class DataBaseToExcel'/***************************************************************************'/*               转移数据到Excel文件(备份数据库类  Excel篇）  V2.0'/*作者：死在水中的鱼(死鱼）'/*日期：2004年8月4日'/*Blog:http://blog.csdn.com/bpfish'/*'/*声明：使用此类必需服务器上装有Office（Excel）程序，否则使用时可能不能转移数据'/*      此版本的类支持一Excel文件存放多数据表，也可将每一个数据表存放为一个文件，'/*      使用方法是在Transfer表之前更换TargetFile参数值即可'/*用法：'/*方法一：（Access数据库文件 TO Excel数据库文件）'/*1、先设置源数据库文件SourceFile（可选）和目标数据库文件TargetFile（必选）'/*2、再使用Transfer("源表名","目标表名","字段列表","转移条件")方法转移数据'/*例子：'/*   Dim sFile,tFile,ObjClass,sResult'/*   sFile=Server.MapPath("data/data.mdb")'/*   tFile=Server.Mappath(".")&"/back.xls"'/*   Set ObjClass=New DataBaseToExcel'/*   ObjClass.SourceFile=sFile'/*   ObjClass.TargetFile=tFile'/*   sResult=ObjClass.Transfer("table1","表一","","")'/*   If sResult Then'/*      Response.Write "转移数据成功！"'/*   Else'/*      Response.Write "转移数据失败！"'/*   End If'/*   Set ObjClass=Nothing'/*'/*方法二：（其它数据库文件 To Excel数据库文件)'/*1、设置目标数据库文件TargetFile'/*2、设置Adodb.Connection对象'/*3、再使用Transfer("源表名","目标表名","字段列表","转移条件")方法转移数据'/*例子：(在此使用Access的数据源做例子，你可以使用其它数据源）'/*   Dim Conn,ConnStr,tFile,ObjClass,sResult'/*   tFile=Server.Mappath(".")&"/back.xls"'/*   Set Conn=Server.CreateObject("ADODB.Connection")'/*   ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("data/data.mdb")'/*   Conn.Open ConnStr'/*   Set ObjClass=New DataBaseToExcel'/*   Set ObjClass.Conn=Conn        '此处关键'/*   ObjClass.TargetFile=tFile'/*   sResult=ObjClass.Transfer("table1","表一","","")'/*   If sResult Then'/*      Response.Write "转移数据成功！"'/*   Else'/*      Response.Write "转移数据失败！"'/*   End If'/*   Set ObjClass=Nothing'/*   Conn.Close'/*   Set Conn=Nothing '/*   '/*说明：TargetFile属性一定要设置！（备份文件地址，绝对地址！） '/*      如果不设置SourceFile则一定要设置Conn，这两个属性必选之一，但优先权是Conn'/*      方法：Transfer("源数据表名","目标数据表名","字段列表","转移条件")'/*           “字段列表；转移条件”格式与SQL的“字段列表”,“查询条件”格式相同'/*            "字段列表"为空则是所有字段，“查询条件”为空则获取所有数据'/*      此版本增加了一个方法Close，此方法是为了不想注销类但又想把数据保存到文件并结束Excel进程时使用'/***************************************************************************Private s_ConnPrivate objExcelApp,objExcelSheet,objExcelBookPrivate sChar,EndChar,iSheet'/***************************************************************************'/*             全局变量'/*外部直接使用：[Obj].SourceFile=源文件名'/***************************************************************************Public SourceFilePrivate s_TargetFile