首先建立一个Excel模板。在本示例是在同一目录下新建一个excel文件。
Excel模板如下图:
以下是ASP利用Excel模板生成Excel报表源代码：
<%
'测试时把这一句注释掉才可以看到出错信息
On Error Resume Next
Dim Fso,TempFile,TargetFile,TargetFileName
'报表的文件名
TargetFileName = Year(Now)&Month(Now)&Day(Now)&Hour(Now)&Minute(Now)&Second(Now)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
'模板的路径
TempFile = Server.MapPath("template.xls")
'目标文件的路径
TargetFile = Server.MapPath(TargetFileName&".xls")
'检测模板文件
If Fso.FileExists(TempFile) Then
'模板存在
'按模板创建新报表并修改新报表
Fso.CopyFile TempFile,TargetFile,True
CreateExcel()
Else
'模板不存在
Response.Write("模版文件不存在!")
End If
Set Fso = Nothing
'====================================================
'Title:报表的表头
'strDate:日期
'strTo:目标
'From:来源
'Attn:
'Name:
'Fax1:传真1
'Fax2:传真2
'其他变量自己添加
'====================================================
Function CreateExcel()
Dim Title,strDate,strTo,From,Attn,Name,Fax1,Fax2
Dim xlsApp
Dim workBooks,xlsWorkSheet
if IsObjInstalled("Excel.Application") = False then
response.Write("<script>alert('创建Excel.Application失败！');history.back()</script>")
response.End()
end if
'创建Excel对象
Set xlsApp = Server.CreateObject("Excel.Application")
Set workBooks = xlsApp.workbooks.Open(TargetFile)
workBooks.windows.Application.DisplayAlerts = False
workBooks.windows.Application.Visible = False
workBooks.Activate
Set xlsWorkSheet = workBooks.workSheets(1)
'设置变量,可以从数据库里读出
Title = "Title"
strDate = Now()
strTo = "ToWho"
From = "FromWho"
Attn = "Attn"
Name = "Name"
Fax1 = "Fax1"
Fax2 = "Fax2"
'----------------------------------------------
'开始修改模板
'----------------------------------------------
xlsWorkSheet.Range("A1").Value = Title
xlsWorkSheet.Range("E2").Value = strDate
xlsWorkSheet.Range("B3").Value = strTo
xlsWorkSheet.Range("E3").Value = From
xlsWorkSheet.Range("B4").Value = Attn
xlsWorkSheet.Range("E4").Value = Name
xlsWorkSheet.Range("B5").Value = Fax1
xlsWorkSheet.Range("E5").Value = Fax2
xlsApp.Save
'-----------------------------------------------
'修改完成并保存
'-----------------------------------------------
'释放对象
workBooks.Application.Quit
xlsApp.Quit
Set xlsWorkSheet = Nothing
Set workBooks = Nothing
Set xlsApp = Nothing
Response.Write("<a href='"&TargetFileName&".xls'>报表已经生成，点击查看</a>")
End Function
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
%>
这时当运行该代码时可能出现如下的错误信息：
错误类型：
Server 对象, ASP 0178 (0x80070005)
检查权限时，对 Server.CreateObject 的调用失败。拒绝对此对象的访问。
这是因为IIS没有权限调用Excel的缘故。
解决办法：
开始-运行dcomcnfg.exe，组件服务-> 计算机-> 我的电脑-> dcom配置，找到Microsoft Excel 应用程序项，配置Excel的“安全性”-> 默认访问权限、默认启动权限、默认配置权限都设置为“自定义”，并在可访问用户中添加上IUSR_的帐号就OK啦