<%Class DataBaseToExcel'/***************************************************************************'/*               转移数据到Excel文件(备份数据库类  Excel篇）  V1.0'/*作者：死在水中的鱼(死鱼）'/*日期：2004年8月4日'/*Blog:http://blog.csdn.net/bpfish'/*'/*声明：使用此类必需服务器上装有Office（Excel）程序，否则使用时可能不能转移数据'/*      此版本的类暂时只支持一次转换一个数据表，即一个数据表只能对应一个Excel文件。'/*      如果转换一个数据表后不更换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的“字段列表”,“查询条件”格式相同'/*            "字段列表"为空则是所有字段，“查询条件”为空则获取所有数据'/***************************************************************************Private s_ConnPrivate objExcelApp,objExcelSheet,objExcelBookPrivate sChar,EndChar'/***************************************************************************'/*             全局变量'/*外部直接使用：[Obj].SourceFile=源文件名   [Obj].TargetFile=目标文件名'/***************************************************************************Public SourceFile,TargetFile