34、oreColor = Color.Red 设置样式的字体颜色Style.AlignHorz = XLS.AlignHorzEnum.CenterStyle.AlignVert = XLS.AlignVertEnum.CenterSheet.Rows(0).Height = 50 Sheet.Cols(0).Width = 120Sheet(0,0).Value = https://www.renrendoc.com/paper/邮件Sheet(0,0).Style = StyleBook.Save(c:reportstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Star 。

35、t()按钮或菜单下面两个属性用于对齐数据 。
AlignHorz设置水平对齐方式 ， XLS.AlignHorzEnum型枚举 ， 主要可选值有：Center： 居中General：默认Left： 靠左Right： 靠右AlignVert设置垂直对齐方式 ， XLS.AlignVertEnum ， 主要可选值有：Bottom： 靠底Center： 居中Top： 靠上Undefined：默认65EXCEL报表单元格背景颜色和字体颜色Dim dt As Table = Tables(订单)Dim Book As New XLS.Book 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Boo 。

36、k.Sheets(0) 引用工作簿的第一个工作表Dim Style As Xls.Style = Book.NewStyle 新建一个样式Style.BackColor = Color.Red 样式的背景颜色设为红色Dim Style1 As Xls.Style = Book.NewStyle 新建一个样式Style1.ForeColor = Color.Blue 样式的字体颜色设为蓝色按钮或菜单66EXCEL报表单元格边框设置Dim Book As New XLS.Book() 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿 。

37、的第一个工作表Dim Style As XLS.Style = Book.NewStyle() 定义新样式Style.BorderTop = XLS.LineStyleEnum.ThinStyle.BorderBottom = XLS.LineStyleEnum.ThinStyle.BorderLeft = XLS.LineStyleEnum.ThinStyle.BorderRight = XLS.LineStyleEnum.ThinStyle.BorderColorTop = Color.RedStyle.BorderColorBottom = Color.RedStyle.BorderCo 。

38、lorLeft = Color.RedStyle.BorderColorRight = Color.RedFor r As Integer = 1 to 5For c As Integer =1 To 5Sheet(r,c).Style = StyleNextNextBook.Save(c:reportstest.xls) Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start()按钮或菜单属性 说明 备注 BorderTop 返回或设置上边框的类型 。
XLS.LineStyleEnum型枚举 ， 主要可选值有：Dashed: 。

39、 虚线Dotted：点线Double：双实线Hair：头发丝一样的细线(一个像素)Medium：中等实线MediumDashDotDotted：中等的(短线+点+点)MediumDashDotted: 中等的(短线+点)MediumDashed: 中等虚线None：无Thick:粗线Thin：细线ThinDashDotDotted：细(短线+点+点)ThinDashDotted：细(短线+点) BorderBottom 返回或设置下边框的类型 。
BorderLeft 返回或设置左边框类型 。
BorderRight 返回或设置右边框类型 。
BorderColorTop 返回或设置上边框颜色 Bo 。

40、rderColorBottom 返回或设置下边框颜色 BorderColorLeft 返回或设置左边框颜色 BorderColorRight 返回或设置上边框颜色 67EXCEL报表单元格斜线设置Dim Book As New XLS.Book()Dim Sheet As XLS.Sheet = Book.Sheets(0)Dim Style As XLS.Style = Book.NewStyle()Style.DiagonalStyle= XLS.LineStyleEnum.ThinStyle.DiagonalColor =Color.RedStyle.Diagonal = XLS.Dia 。

41、gonalEnum.BackwardFor r As Integer = 1 to 2For c As Integer =1 To 2Sheet(r,c).Style = StyleNextNextBook.Save(c:reportstest.xls) Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start()按钮或菜单和斜线设置有关的属性：Diagonal返回或设置斜线的方向 ， XLS.DiagonalEnum型枚举 ， 可选值有：Backward：反斜线Forward：斜线None：无 DiagonalColor 返回或设 。

42、置斜线颜色 DiagonalStyle返回或设置斜线的类型 ， XLS.LineStyleEnum型枚举 ， 主要可选值有：Dashed: 虚线Dotted：点线Double：双实线Hair：头发丝一样的细线(一个像素)Medium：中等实线MediumDashDotDotted：中等的(短线+点+点)MediumDashDotted: 中等的(短线+点)MediumDashed: 中等虚线None：无Thick:粗线Thin：细线ThinDashDotDotted：细(短线+点+点)ThinDashDotted：细(短线+点) 68EXCEL报表单元格内容自动换行Dim dt As Table =。

43、Tables(订单)Dim Book As New XLS.Book 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表Dim Style As Xls.Style = Book.NewStyle 新建一个样式Style.WordWrap = True 单元格内容自动换行按钮或菜单69EXCEL报表在Excel报表模板中插入一个标记Dim Book As New XLS.Book(c:book5.xls)Book.Marks.Add(用户名,User.Name)Book.Build()Book.Save(c:repo 。

44、rtstest.xls) Dim Proc As New ProcessProc.File = c:reportstest.xlsProc.Start()按钮或菜单利用Marks集合 ， 我们可以在报表模板中插入标记 ， 然后在生成报表的时候 ， 将标记替换为真正的值 。
在Excel报表模板中插入一个标记的格式为：示例假定报表中某个位置需要打印出当前登录用户的名称 ， 我们可以在设计报表的时候 ， 在该处插入标记：标记的名称可以根据需要取 。
然后在生成报表之前 ， 利用Marks集合 ， 将标记替换为真正的用户：70EXCEL报表插入图片Dim Book As New XLS.Book 定义一个Excel工作簿Dim She 。

来源：(未知)

【学习资料】网址：/a/2021/0413/0021924638.html

标题：Foxtable|Foxtable常用代码汇总( 四 )