Web FarPoint控件的应用:

 
        '获取要显示的列
        Dim fpExcel As FarPoint.Web.Spread.FpSpread

        '填充Excel的一个Sheet
        fpExcel.Sheets(m).Protect = False
        fpExcel.Sheets(m).ColumnCount =ColumnCount
        fpExcel.Sheets(m).RowCount = RowCount
        fpExcel.Sheets(m).DefaultStyle.Font.Size = FontUnit.Parse("9px")
        fpExcel.Sheets(m).DefaultStyle.Border.BorderSize = 1
        fpExcel.Sheets(m).DefaultStyle.VerticalAlign = VerticalAlign.Middle
        fpExcel.Sheets(m).Rows(0).Font.Bold = True
        fpExcel.Sheets(m).Rows(0).BackColor = Color.FromArgb(212, 208, 200)
        fpExcel.Sheets(m).Rows(0).HorizontalAlign = HorizontalAlign.Center
        fpExcel.Sheets(m).Columns(0).HorizontalAlign = HorizontalAlign.Center

        Dim i, j As Integer
        For i = 0 To fpExcel.Sheets(m).ColumnCount - 1
            fpExcel.Sheets(m).Columns(i).CellType = New FarPoint.Web.Spread.TextCellType
        Next

        '序号列
        fpExcel.Sheets(m).Cells(0, 0).Text ="序号"
        fpExcel.Sheets(m).Cells(0, 0).Tag = 0

        '填充数据
        For i = 0 To dvTable.Count - 1
            fpExcel.Sheets(m).Cells(i + 1, 0).Text = i + 1

            For j = 1 To fpExcel.Sheets(m).ColumnCount - 1
                fpExcel.Sheets(m).Cells(i + 1, j).Text = dvTable(i)(j)
            Next
        Next