ASP实例代码 asp操作Excel类

ASP实例代码asp操作Excel类

asp操作Excel类：

<%

'*******************************************************************

'使用说明

'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()

'edTime 生成时间，毫秒数

'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

Private ExcelSheets

Private UsedTime_ Rem 使用的时间

Public TitleFirstLine Rem 首行是否标题

Private Sub Class_Initialize()

Server.ScriptTimeOut = 99999

UsedTime_ = Timer

SystemStr = "Lc00_CreateExcelServer"

AuthorStr = "Surnfu surnfu@ 31333716"

VersionStr = "1.0"

if not IsObjInstalled("Excel.Application") then

InErr("服务器未安装Excel.Application控件")

end if

set ExcelApp = createObject("Excel.Application")

ExcelApp.DisplayAlerts = false

ExcelApp.Application.Visible = false

CreateType_ = 1

readPath_ = null

End Sub

Private Sub Class_Terminate()

ExcelApp.Quit

If Isobject(ExcelSheets) Then Set ExcelSheets = Nothing

If Isobject(ExcelBook) Then Set ExcelBook = Nothing If Isobject(ExcelApp) Then Set ExcelApp = Nothing End Sub

Public Property Let ReadPath(ByVal Val)

If Instr(Val, ":\")<>0 Then

readPath_ = Trim(Val)

else

readPath_=Server.MapPath(Trim(Val))

end if

End Property

Public Property Let SavePath(ByVal Val)

If Instr(Val, ":\")<>0 Then

savePath_ = Trim(Val)

else

savePath_=Server.MapPath(Trim(Val))

end if

End Property

Public Property Let CreateType(ByVal Val)

if Val <> 1 and V al <> 2 then