前一段时间用asp.net调用excel做报表，有一些小心得。
1.创建：我先自己创建了一份模版，然后用excel读取模版，再把数据写进去。这样做的好处，就是可以把数据层和表现层分开，以后需要改变颜色，字体等等的时候，只要format这个模版就行了。
读取模版文件(templateName为文件名)：
Dim objExcel As Excel.Application
Dim objSheet As Excel.Worksheet
Try
objExcel = New Excel.Application()
'If encounter same name file,then overwrite
objExcel.Application.DisplayAlerts = False
objExcel.Visible = False
objExcel.SheetsInNewWorkbook = 1
objExcel.Workbooks.Add(Server.MapPath(templateName))
End Try
objSheet = objExcel.Workbooks(1).Worksheets(1)
2.数据：然后就往里面写数据啦。如果是单个的数据当然好写，像这样：
objSheet.Cells(3, 5) = startDate.ToString("dd-MMM-yy")
但如果是一个dataset呢？试验多次后发现，最方便快捷的方法是把dataset转成array在写进去，因为可以直接将一个range赋值为一个array。而且这种方法效率也应该是最高的：
Dim dataArray As Object(,) = DataSetToArray(dsTrainerPerformance, _
"SNO,FullName,Organization,Department,Feedback")
objSheet.Range("A8").Resize(dataCount, 13).Value = dataArray
这里的DataSetToArray是自己写的一个function，把dataset转换成一个2d array。
3.格式:上面不是说了在模版里面format嘛，为什么又要再讲？别忘了，再模版里面东西是死的，第几行就是第几行，可是你写了一堆数据进去后，行数就全变了阿。这时候有两种办法：1，写code来format。我是对每种格式都定义了一下，比如表头是一种格式，数据栏是一种格式，统计栏是一种格式。然后定义每种格式，比如边框，有边框/无边框，对齐，下划线，字体，折叠，number format等等。
这个function是用来format一个制定的range的。
Private Sub FormatRange()Sub FormatRange(ByRef range As Excel.Range, _
ByVal formatIndex As Integer = 0)
With range
Select Case formatIndex
Case 1
'lines: top and bottom, left align
With .Borders(Excel.XlBordersIndex.xlEdgeTop)
.Color = 0
.Weight = 2
.LineStyle = Excel.XlLineStyle.xlContinuous
End With
&nb
