代碼如下：

<%
'*******************************************************************
'使用說明
'Dim a
'Set a=new CreateExcel
'a.SavePath="x" '保存路徑
'a.SheetName="工作簿名稱"       '多個工作表 a.SheetName=array("工作簿名稱一","工作簿名稱二")
'a.SheetTitle="表名稱"         '可以為空  多個工作表 a.SheetName=array("表名稱一","表名稱二")
'a.Data =d '二維數組             '多個工作表 array(b,c) b與c為二維數組
'Dim rs
'Set rs=server.CreateObject("Adodb.RecordSet")
'rs.open "Select id, classid, className from [class] ",conn, 1, 1
'a.AddDBData rs, "字段名一，字段名二", "工作簿名稱", "表名稱",     true    'true自動獲取表字段名
'a.AddData c, true , "工作簿名稱", "表名稱"    'c二維數組          true  第一行是否為標題行
'a.AddtData e, "Sheet1"   '按模板生成  c=array(array("AA1", "內容"), array("AA2", "內容2"))
'a.Create()
'a.UsedTime        生成時間，毫秒數
'a.SavePath        保存路徑
'Set a=nothing
'設置COM組件的操作權限。在命令行鍵入“DCOMCNFG”，則進入COM組件配置界面，選擇MicrosoftExcel后點擊屬性按鈕，將三個單選項一律選擇自定義，編輯中將Everyone加入所有權限
'*******************************************************************
Class CreateExcel 
    Private CreateType_
    Private savePath_
    Private readPath_
    Private AuthorStr              Rem 設置作者
    Private VersionStr          Rem 設置版本
    Private SystemStr              Rem 設置系統名稱
    Private SheetName_             Rem 設置表名
    Private SheetTitle_         Rem 設置標題
    Private ExcelData             Rem 設置表數據
    Private ExcelApp             Rem Excel.Application
    Private ExcelBook