Dim k As Integer = 7 + i
Dim Style1 As XLS.Style = Book.NewStyle() '单元格边框
Style1.BorderTop = XLS.LineStyleEnum.Thin
Style1.BorderBottom = XLS.LineStyleEnum.Thin
Style1.BorderLeft = XLS.LineStyleEnum.Thin
Style1.BorderRight = XLS.LineStyleEnum.Thin
Style1.AlignHorz = XLS.AlignHorzEnum.Center
Style1.WordWrap = true
F or r As Integer = 7 To k
F or c As Integer =0 To 27
Sheet(r,c).Style = Style1
N ext
Sheet.Rows(R).Height = AUTO
N ext
自动换行虽然生效,但是行高不会变化,所以还是只是显示一行。
后面想加一句自动行高,但是报错无法保存。