如下图,用saveexcel导出一个表格,字段显示正确,只是没有边框
为了美观,用代码设置了边框,但日期字段显示不正确了
此主题相关图片如下:snipaste_2022-07-06_09-09-53.png
设置边框的代码是抄帮助的:
Dim fl As String = "d:\表a.xls"
Tables("表a").SaveExcel(fl,"表a")
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
For i As Integer = 0 To sheet.Cols.Count - 1
For j As Integer = 0 To sheet.Rows.count - 1
sheet(j,i).Style = style
sheet(j,i).Style.AlignHorz = XLS.AlignHorzEnum.Center
sheet(j,i).Style.AlignVert = XLS.AlignVertEnum.Center
Sheet.Rows(j).Height = 28
Next
Next
Book.Save(fl)
Dim proc As new Process
proc.File = fl
proc.Start
[此贴子已经被作者于2022/7/6 9:43:16编辑过]