22、ols.Count -1 添加列标题Sheet(0, c).Value = https://www.renrendoc.com/paper/dt.Cols(c).NameNextFor r As Integer = 0 To dt.Rows.Count - 1 填入数据For c As Integer = 0 To dt.Cols.Count -1Sheet(r +1, c).Value = dt.rows(r)(c)NextIf dt.rows(r)(折扣) = 0.15 Then 如果折扣大于等于0.15Sheet(r + 1,dt.Cols(折扣).Index).Style = Style 设置折扣单元格的样式End IfNextDim St2 As 。

23、 XLS.Style = Book.NewStyleSt2.Format = yyyy-MM-ddSheet.Cols(dt.Cols(日期).Index).Style = st2打开工作簿Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start()按钮或菜单带样式导出57EXCEL报表设置行高、样式及强制换页Dim Book As New XLS.Book(c:reportstest.xls) 定义一个Excel工作簿Dim Sheet As XLS.Sheet =。

24、Book.Sheets(0) 引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle() 定义新样式Style.ForeColor = Color.Red 设置样式的字体颜色Sheet.Rows(0).Height = 40 设置第1行的行高Sheet.Rows(0).Style = Style 设置第1行的样式Sheet.Rows(20).PageBreak = True 在第21行处强制换页Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File =c:reportstest.x 。

25、lsProc.Start()按钮或菜单58EXCEL报表设置列宽、样式及分页Dim Book As New XLS.Book(c:reportstest.xls) 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle() 定义新样式Style.ForeColor = Color.Red 设置样式的字体颜色Sheet.Cols(0).Width = 120 设置第1列的宽度Sheet.Cols(0).Style = Style 设置第1列的样式S 。

26、heet.Cols(4).PageBreak = True 在第5列处强制分页Book.Save(c:reportstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start()按钮或菜单59EXCEL报表单元格样式、超链接Dim Book As New XLS.Book() 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle() 定义新样式Style.Fo 。

27、reColor = Color.Red 设置样式的字体颜色Sheet(0,0).Style = StyleSheet(0,0).Value = 邮件Sheet(0,0).Hyperlink = Mailto:zjtdr21cn.netBook.Save(c:reportstest.xls)Dim Proc As New Process Proc.File = c:reportstest.xlsProc.Start()按钮或菜单60EXCEL报表缩放打印Dim Book As New XLS.Book 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheet 。

28、s(0) 引用工作簿的第一个工作表With Sheet.PrintSetting .AutoScale = True 自动缩放 .FitPagesDown = 1 垂直方向缩为1页 End WithFor i As Integer = 0 To 50 向工作表的单元格中设置值 Sheet(i, 0).Value = https://www.renrendoc.com/paper/(i + 1) * 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Proces 。

29、s 打开工作簿Proc.File = c:reportstest.xlsProc.Start()按钮或菜单61EXCEL报表页面设置Dim Book As New XLS.Book Dim Sheet As XLS.Sheet = Book.Sheets(0)With Sheet.PrintSetting .PaperKind = 9 设为A4纸 .LandScape = True 横向打印 .MarginLeft = 20 左右边距设为20毫米 .MarginRight = 20 .MarginTop = 15 上下边距设为15毫米 .MarginBottom = 15End With按钮或 。

30、菜单62EXCEL报表页眉页脚Dim Book As New XLS.Book 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表With Sheet.PrintSetting 页眉左边为日期,中间为时间,右边为表名 .Header = &L&D &C&T &R&A 在页脚右边打印页号和总页数 .Footer = &R第&P页,总&N页End WithFor i As Integer = 0 To 100 向工作表的单元格中设置值 Sheet(i, 0).Value = https://www.renrendoc.com/paper/(i + 1) * 10 Sheet(i, 1 。

31、).Value = https://www.renrendoc.com/paper/(i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000NextBook.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = c:reportstest.xlsProc.Start()按钮或菜单63EXCEL报表打印模式、页面居中、网络线、标题等Dim Book As New XLS.Book 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表With Sheet.Pri 。

32、ntSetting .BlackAndWhite = True 用黑白模式打印 ， 即使你安装的是彩色打印 .CenterHorizontal = True 表格水平方向页面居中 .CenterVertical = True 表格垂直方向页面居中 .PrintGridlines = True 打印网格线 .PrintHeaders = True 打印列标题End WithFor i As Integer = 0 To 100 向工作表的单元格中设置值 Sheet(i, 0).Value = https://www.renrendoc.com/paper/(i + 1) * 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i 。

33、, 2).Value = https://www.renrendoc.com/paper/(i + 1) * 1000NextBook.Save(c:reportstest.xls) 保存工作簿Dim Proc As New Process 打开工作簿Proc.File = c:reportstest.xlsProc.Start()按钮或菜单64EXCEL报表单元格对齐数据Dim Book As New XLS.Book() 定义一个Excel工作簿Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表Dim Style As XLS.Style = Book.NewStyle() 定义新样式Style.F 。

来源：(未知)

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

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