一般来说，在一些大型OA中最常用，而且也比较难的部分莫过于一些报表生成，压缩，下载等操作了，下面我就将一些示例代码总结一下：
通过Excel模板生成Excel报表代码：
首先进行如下操作，以确保网络用户拥有创建报表的权限：Microsoft Excel 应用程序－》右键属性－》安全－》全部改为自定义加入.NET用户权限。
Dim mClsExcel As New Reportforms.DataAccess.clsExcel
Dim mFromPathFile As String
Dim mToPathFile As String
mFromPathFile = Server.MapPath("1.xls")
mToPathFile = "2.xls"
If File.Exists(mToPathFile) = True Then
File.Delete(mToPathFile)
End If
File.Copy(mFromPathFile, mToPathFile)
File.SetAttributes(mToPathFile, FileAttributes.Archive)
Dim ds As DataSet = New DataSet
mClsExcel.OpenFile(mToPathFile )
Try
ds = GetDate()
mClsExcel.SelectSheet(1)
mClsExcel.SetExcelCellValue("A", "1", "单位数量")
mClsExcel.SetExcelCellValue("A", "2", "资料年份：" & SBDate)
mClsExcel.SetExcelCellValue("A", "3", "填报单位：" & UnitName & "(" & UnitCode & ")")
If mClsExcel.Addcenter(ds, "10", "C", 1) = True Then
End If
ds.Dispose()
ds = Nothing
Catch ex As Exception
End Try
mClsExcel.CloseFile()
压缩报表代码：
Shell(Server.MapPath("rar.exe") & " a -ep " & "1.rar" & " " & "", AppWinStyle.Hide, True)
报表下载代码：
System.Web.HttpContext.Current.Response.Redirect("1.rar")
