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")
另外,测试几个语法着色器,暂时都没用成功