Dim tbl As Table = Tables("统计汇总_Table4")
Dim hdr As Integer = tbl.HeaderRows '获得表头的层数
Dim szs() As Integer = {250, 120, 50}
Dim Book As New XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Dim Style As XLS.Style = Book.NewStyle() '定义新样式
Dim fnt As New Font("宋", 11)
Style.ForeColor = Color.black '设置样式的字体颜色
Style.AlignHorz = XLS.AlignHorzEnum.Center
Style.AlignVert = XLS.AlignVertEnum.Center
tbl.CreateSheetHeader(Sheet, 1, 0, False) '生成表头
Sheet.DefaultRowHeight = 35
Sheet.GridColor = Color.blue
For f As Integer = 0 To 2
Sheet.Cols(f).Width = szs(f) '指定列宽
Next
For s As Integer = 3 To tbl.Cols.Count - 1
Sheet.Cols(s).Width = 50 '指定列宽
Next
For c As Integer = 0 To tbl.Cols.Count - 1
For r As Integer = 0 To tbl.Rows.Count - 1
sheet(r + hdr + 1, c).value = tbl(r, c)
Sheet.MergeCell(0, 0, 1, c + 1)
Sheet(0, 0).Value = "接单送货汇总表"
Sheet(r, c).Style = Style
Sheet(r, c).Style.Font = fnt
Next
Next
Dim St2 As XLS.Style = Book.NewStyle
St2.Font = New Font("微软雅黑", 15, FontStyle.Bold)
St2.AlignHorz = XLS.AlignHorzEnum.Center
St2.AlignVert = XLS.AlignVertEnum.Center
Sheet.Rows(tbl.Rows("0").Index).Style = st2
Book.Save("d:\data\接单送货汇总表.xls")
Dim Proc As New Process
Proc.File = "d:\data\接单送货汇总表.xls"
Proc.Start()
加好友 
发短信
Post By：2025/1/2 11:36:00 [只看该作者]
此主题相关图片如下：零值.png