C1XLS写Excel文件

最新推荐文章于 2024-06-12 20:20:52 发布

原创最新推荐文章于 2024-06-12 20:20:52 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#excel #c #border #integer #测试 #file

本文介绍使用ComponentOne的Excel组件进行Excel2003格式文件的基本功能测试过程，包括单元格样式设置、字体颜色调整、边框绘制及单元格合并等操作，并尝试保存为指定文件。

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")