主题：怎样精简excel报表中的样式定义代码？

Dim s(2) As XLS.Style

For i As Integer = 0 To 2

    S(i) = Book.NewStyle

    S(i).BorderTop = XLS.LineStyleEnum.Thin
    S(i).BorderBottom = XLS.LineStyleEnum.Thin
    S(i).BorderLeft = XLS.LineStyleEnum.Thin
    S(i).BorderRight = XLS.LineStyleEnum.Thin
    S(i).BorderColorTop = Color.Gray
    S(i).BorderColorBottom = Color.Gray
    S(i).BorderColorLeft = Color.Gray
    S(i).BorderColorRight = Color.Gray
Next

S(0).Format = Format("0.00")
S(1).Format = Format("0.00%")
S(2).Format = Format("yyyy-MM-dd")