我正在使用ExcelLibrary dll。
我想冻结标题行..任何人都可以建议我如何做到这一点吗?
我尝试过以下代码..
Imports System.Data.SqlClient
Imports ExcelLibrary
Imports ExcelLibrary.SpreadSheet
Partial Class DownloadExcel
Inherits System.Web.UI.Page
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
Try
Dim wb As New Workbook()
Dim sheetrowcounter As Integer
sheetrowcounter = 0
Dim sheet As New ExcelLibrary.SpreadSheet.Worksheet("ExcelSheet")
sheet.Cells(sheetrowcounter, 0) = New Cell("DELIVERY MONITORING SUMMARY(PROJECT GRANDE) ")
sheet.Cells(sheetrowcounter, 2) = New Cell("")
sheet.Cells(sheetrowcounter, 3) = New Cell("Report Date: '" & DateTime.Now.ToString("yyyy/MM/dd H:mm:ss tt") & " ")
sheetrowcounter += 1
sheetrowcounter += 1
sheet.Cells(sheetrowcounter, 0) = New Cell("Sl No")
sheet.Cells.ColumnWidth(0) = 10000
sheet.Cells(sheetrowcounter, 1) = New Cell("Name")
sheet.Cells.ColumnWidth(1) = 6000
sheetrowcounter += 1
Dim t As DataTable = Session("exceltable")
For i As Integer = 1 To t.Rows.Count - 1
Try
sheet.Cells(sheetrowcounter, 0) = New Cell(t.DefaultView.Item(i)(0))
sheet.Cells(sheetrowcounter, 1) = New Cell(t.DefaultView.Item(i)(1))
sheetrowcounter += 1
Catch ex As Exception
End Try
Next
sheet.Cells(0, 0).Format.FormatString = "freeze"
wb.Worksheets.Add(sheet)
Response.Clear()
Response.ContentType = "application/vnd.ms-excel"
Response.AddHeader("content-disposition", "attachment;filename=DeliveryMonitoringSummaryDaily.xls")
Dim m As System.IO.MemoryStream = New System.IO.MemoryStream()
wb.SaveToStream(m)
m.WriteTo(Response.OutputStream)
Catch ex As Exception
End Try
End Sub
End Class
我在Session(“exceltable”)对象中存储了一个包含2列和一些行的数据表..
答案 0 :(得分:2)
我没有使用您指定的Excel库的经验,但我可以建议迁移到http://epplus.codeplex.com/站点上免费且可用的EPPlus库。这是一个非常易于使用的具有清晰API的库,旨在在服务器上创建高级Excel 2007/2010电子表格。我们在几个生产项目上成功使用了它。使用它,您可以使用ExcelSheet.View.FreezePanes方法实现所需。我知道我的答案没有回答你的问题,但它可以作为你问题的替代解决方案(我真的不知道你是否可以用你指定的Excel库来实现你所需要的)。
答案 1 :(得分:0)
试试这个:
Dim e As Worksheet
...
e.Application.ActiveWindow.SplitRow = 1
e.Application.ActiveWindow.FreezePanes = True