1、在第一行录入标题，数据从第2行开始填充For c As Integer = 0 To dt.Cols.Count -1 '添加列标题
Sheet(1, c).Value = dt.Cols(c).Name
Next
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
For c As Integer = 0 To dt.Cols.Count-1
Sheet(r +2, c).Value = dt.rows(r)(c)
……
2、列名单元格也加上样式
3、事件列单独添加样式，原因：
| Style | 设置行的样式。行、列、单元格都可以设置样式，优先顺序是：单元格>行>列 |
Dim St2 As XLS.Style = Book.NewStyle
St2.Format = "yyyy-MM-dd"
St2.BorderTop = XLS.LineStyleEnum.Thin
St2.BorderBottom = XLS.LineStyleEnum.Thin
St2.BorderLeft = XLS.LineStyleEnum.Thin
St2.BorderRight = XLS.LineStyleEnum.Thin
St2.BorderColorTop = Color.Black
St2.BorderColorBottom = Color.Black
St2.BorderColorLeft = Color.Black
St2.BorderColorRight = Color.Black
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
For c As Integer = 0 To dt.Cols.Count-1
Sheet(r +1, c).Value = dt.rows(r)(c)
if dt.Cols(c).IsDate
Sheet(r+1,c).Style = St2
else
Sheet(r+1,c).Style = Style
end if
Next
Next
4、比如函数名称是第一个列，只给第一个列赋值
dim cnt as integer = Sheet.rows.count
For r As Integer = 0 To dt.Rows.Count - 1 '填入数据
Sheet(cnt +r, 0).Value = dt.rows(r)(c)
Sheet(cnt+r,0).Style = Style
Next
加好友 
发短信
Post By：2021/5/14 16:10:00 [显示全部帖子]
