Dim Book As New XLS.Book(fl)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Style.WordWrap = True
Style.BorderTop = XLS.LineStyleEnum.Thin
Style.BorderBottom = XLS.LineStyleEnum.Thin
Style.BorderLeft = XLS.LineStyleEnum.Thin
Style.BorderRight = XLS.LineStyleEnum.Thin
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
Dim Style2 As XLS.Style = Book.NewStyle() '定义新样式
Style2.WordWrap = True
Style2.BorderTop = XLS.LineStyleEnum.Thin
Style2.BorderBottom = XLS.LineStyleEnum.Thin
Style2.BorderLeft = XLS.LineStyleEnum.Thin
Style2.BorderRight = XLS.LineStyleEnum.Thin
Style2.AlignHorz = XLS.AlignHorzEnum.Center
Style2.AlignVert = XLS.AlignVertEnum.Center
Style2.Format="yyyy年MM月dd日"
For i As Integer = 0 To sheet.Cols.Count - 1
For j As Integer = 0 To sheet.Rows.count - 1
if i=1 then
sheet(j,i).Style = style2
else
sheet(j,i).Style = style
end if
Sheet.Rows(j).Height = 28
Next
Next
Book.Save(fl)
加好友 
发短信
Post By：2022/7/6 9:27:00 [显示全部帖子]
