C1XLS写Excel文件

Component One的excel组件，使用2进制方式读写excel 2003格式

测试基本功能满足

'测试c1xls-merge cell ok,back color ok, font ok,border ok
Dim C1XLBook1 As New C1XLBook()
Dim sheet As XLSheet = C1XLBook1.Sheets(0)
Dim i As Integer
For i = 0 To 99
    sheet(i, 0).Value = i + 1
    Dim cs As New XLStyle(C1XLBook1)
[背景颜色]
    'cs.BackColor = Color.Blue
[字体]
    cs.Font = New Font("Tahoma", 9, FontStyle.Bold)
    cs.ForeColor = Color.Red
    'cs.BackPattern = XLPatternEnum.HorizontalStripe
[边界]
    cs.BorderBottom = XLLineStyleEnum.Thin
    cs.BorderLeft = XLLineStyleEnum.Thin
    cs.BorderRight = XLLineStyleEnum.Thin
    cs.BorderTop = XLLineStyleEnum.Thin
    sheet(i, 0).Style = cs
Next i
For i = 0 To 99 Step 2
    Dim cr As XLCellRange
    cr = New XLCellRange(i, i, 0, 1)
[合并单元格]
    sheet.MergedCells.Add(cr)
    Dim cs As New XLStyle(C1XLBook1)
    cs.SetBorderStyle(XLLineStyleEnum.Thin)
    'for normal style
    sheet(i, 0).Style = cs
    'for border
    sheet(i, 1).Style = cs
Next
' step 3: save the file
C1XLBook1.Save(Application.StartupPath & "/hello.xls")

 

另外，测试几个语法着色器，暂时都没用成功