Dim ir = Sheet1.Rows.Insert(a+6)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.ForeColor = Color.black '设置样式的字体颜色
ir.Height = 21 '设置行高
Book.DefaultFont = New Font("黑体",10,FontStyle.Bold) '设置默认字体
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
For c1 As Integer = 1 To 7
Sheet1(a+5,c1).Style = Style
Next
[此贴子已经被作者于2015/3/30 17:02:23编辑过]