关于使用EXCEL做报表的一点想法

最近一个朋友问起有没有使用EXCEL做过报表，如实说在很久之前一个对日项目中使用过ASP.NET调用EXCEL生成报表。不知道为什么日本人那么喜欢使用EXCEL做东西！

在这里我先说一下大概的思路，首先需要做EXCEL模板，将基本的报表框架画出来，设置控制信息页。然后程序从数据库取出需要显示在报表上的数据，将其按一定的格式写入模板中的隐藏页，利用ASP.net启动模板，利用宏启动报表的信息填充，报表格式的绘画，显示报表等工作。这就当时所做的基本思路。

说实话报表启动的非常缓慢，并且在VBA的调试时非常麻烦，并且客户端必须要装EXCEL，否则是看不到报表的，还有就是不适合普遍应用。好处是在开发的过程中不需要额外的报表软件，也不需要掌握高深的技巧，打印方面只要把模板画好就算OK了。我建议朋友的方案是使用EXCEL做前端的报表显示，将不需要变化的部分先画到报表上，然后将表格控制方法（单元格合并，计算列等）以VBA函数的形式写到EXCEL中。ASP.NET中提供数据源，将Excel.dll引入工程中调用相应的方法对报表文件进行赋值。

注：机器上需要安装Office;

为了在VS2005中，对Excel文件进行操作，需要用到Excel.dll，方法是将Office目录下的Excel.exe文件拷出来，把 Excel.exe文件考到C:"Program Files"Microsoft Visual Studio 8"SDK"v2.0"Bin里

然后运行VS2005命令提示输入TlbImp EXCEL.EXE Excel.dll

以下是部分代码：

//提供VBA方法的调用，数组下标0是VBA方法名称，以后是所需要参数

object[] paraObjects = new object[] { "test" ,"6"};

string filename = Server.MapPath("doc");

filename = filename + "\\test.xls";

object Nothing = System.Reflection.Missing.Value;

Excel.ApplicationClass myExcel = new Excel.ApplicationClass();

Excel.Workbooks books = myExcel.Workbooks;

Excel._Workbook oBook = null;

oBook = books.Open(filename, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing, Nothing);

//随便写一些数据到EXCEl中

myExcel.Cells["6", "C"] = "A";

myExcel.Cells["6", "F"] = "cca";

myExcel.Cells["6", "I"] = "'123";

myExcel.Cells["7", "C"] = "B";

myExcel.Cells["7", "I"] = "'111";

//使用RunMacro方法对VBA方法进行调用

object ret = this.RunMacro(myExcel,paraObjects);

paraObjects = new object[] { "CellMerge", "E6","G7" };

ret = this.RunMacro(myExcel, paraObjects);

//保存在EXCEl的修改，否则不会起作用

oBook.Save();

//释放对象

oBook.Close(false, Nothing, Nothing);

System.Runtime.InteropServices.Marshal.ReleaseComObject(oBook);

oBook = null;

System.Runtime.InteropServices.Marshal.ReleaseComObject(books);

books = null;

myExcel.Quit();

System.Runtime.InteropServices.Marshal.ReleaseComObject(myExcel);

myExcel = null;

GC.Collect();

int intStart = 0;

//以下是将报表文件写到输出流，将做好的报表提供给客户端下载

string saveFileName = filename.Substring(intStart, filename.Length - intStart);

System.IO.FileInfo fi = new System.IO.FileInfo(filename);

string fileextname = fi.Extension;

Response.Clear();

Response.Charset = "utf-8";

Response.Buffer = true;

this.EnableViewState = false;

Response.ContentEncoding = System.Text.Encoding.UTF8;

Response.AppendHeader("Content-Disposition", "attachment;filename=" + saveFileName);

Response.ContentType = fileextname;

Response.WriteFile(filename);

Response.Flush();

Response.Close();

Response.End();

}

//调用VBA方法

private object RunMacro(object oApp, object[] oRunArgs)

{

try

{

object objRtn;

objRtn = oApp.GetType().InvokeMember(

"Run",

System.Reflection.BindingFlags.Default |

System.Reflection.BindingFlags.InvokeMethod,

null,

oApp,

oRunArgs

);

return objRtn;

}

catch (Exception ex)

{

if(ex.InnerException.Message.ToString().Length > 0)

{

throw ex.InnerException;

}

else

{

throw ex;

}

}

}