1、1 Foxtable 常用代码汇总 1 Col 打开列窗口 With Tables(“员工“) .Cols(“照片“).OpenWindow() .Cols(“备注“).CloseWindow() End With按钮或菜单 2 Col 关闭列窗口 With Tables(“员工“) .Cols(“照片“).OpenWindow() .Cols(“备注“).CloseWindow() End With按钮或菜单 3 Col 移动列到指定位置 With Tables(“订单“) .Cols(“日期“).Move(0) .Cols(“客户“).Move(1) .Cols(“产品“).Move(2)
2、 End With按钮或菜单 将日期、客户、产品移到前三列的位置 4 Col 冻结列 CurrentTable.Cols.Frozen = 2 按钮或菜单 冻结前两列 5 Col 取消冻结列 CurrentTable.Cols.Frozen = 0 按钮或菜单 6 Col 从 Table 中移除指定的列 If Tables(“订单“).Cols.Contains(“ 折扣“) Then Tables(“订单“).Cols.Remove(“折扣“) End If 按钮或菜单 在订单表中移除折扣列 7 Col 一次移除多列 Tables(“订单“).Cols.Remove(“折扣“,“金额“) 按
3、钮或菜单 8 DataCol 锁定某表某列 DataTables(“订单“).DataCols(“折扣“).AllowEdit = False 按钮或菜单 9 DataCol 取消锁定某表某列 DataTables(“订单“).DataCols(“折扣“).AllowEdit = True 按钮或 菜单 10 DataCol 动态地修改表达式列的计算公式 DataTables(“订单“).DataCols(“金额“).Expression = “数量 * 单价“ DataTables(“订单 “).DataCols(“金额“).Expression = “数量 * 单价 * (1 - 折扣)“
4、 按钮或菜单 Expression 属性只对表达式列有效 11 DataCol 返回列的名称 For Each dc As DataCol In DataTables(“订单“).DataCols Output.Show(dc.Name) Next按钮或菜单 列出订单表中所有列的名称 12 DataCol 增加临时列，并可给临时列设置表达式 DataTables(“订单“).DataCols.Add(“金额“, GetType(Double), “数量 * 单价 * (1 - 折扣)“) 按钮或菜单 通过代码增加的临时列，在重新打开项 目文件后，将不复存在 13 DataCol 删除临时列 I
5、f DataTables(“订单“).DataCols.Contains(“金额“) Then DataTables(“订单“).DataCols.Delete(“金额“) End If 按钮或菜单 通过 Add 方法增加的临时列，可以用 Delete 方法删除 14 DataCol 一列设公式，另列得结果 If e.DataCol.Name = “第一列“ Then If e.DataRow.IsNull(“第一列“) Then e.DataRow(“第二列“) = Nothing Else e.DataRow(“第二列“) = Eval(e.DataRow(“第一列“),e.DataRow
6、) End If End If 2 DataColChanged 事件 假定希望根据第一列输入的计算公式，在第二列得出计算结果 15 DataRow删除行 DataTables(“订单“).DataRows(0).Delete() 按钮或菜单 删除订单表中的第一 行 Delete 会返回逻辑值，如果删除成功，则返回 True，否则返回 False 16 DataRow重新加载行 DataTables(“订单“).DataRows(1).Load() 按钮或菜单 重新加载订单表的第 二行 17 DataRow撤销修改 DataTables(“订单“).DataRows(1).Load(False
7、) 按钮或菜单 撤销对订单表第 二行的修改 18 DataRowDataTable 中增加一行 With DataTables(“订单 “).DataRows .AddNew() 增加一行 End With 按钮或菜单 19 DataRow删除指定位置的行 With DataTables(“订单 “).DataRows .Delete(0) 删除第一行 End With 按钮或菜单 20 DataRow清除所有行 With DataTables(“单“).DataRows .Delete(0) 删除第一行 End With 按钮或菜单 21 DataRow按日期列求月份 Dim dr As D
8、ataRow =e.DataRow if e.DataCol.Name =“开始时间“ Then if dr.IsNull(“开始时间“) = false Then dr(“月“) = dr(“开始时间“).Month Else dr(“月“) = Nothing End If End If 表 DataColChanged 事件 22 DataRow新增行编号自动加 e.DataRow(“编号“) = e.DataTable.Compute(“Max(编号)“) + 1 DataRowAdding 事件 假定表中有一个编号列，希望新增行的时候，编号列能够自动加 这个例子其实没有什么意义的，对
9、于外部表使用自动增量主键列，对于内部表使用表达式列引用内部编 号列“_Identidy”,是更好的选择。 23 DataTable 获得指定名称的 DataTable Dim dt As DataTabledt = DataTables(“订单“) 按钮或菜单 24 DataTable 锁定表 DataTables(“订单“).AllowEdit = False 按钮或菜单 AllowEdit 属性 25 DataTable 取消锁定表 DataTables(“订单“).AllowEdit = True 按钮或菜单 AllowEdit 属性 26 DataTable 按回车键向下移动光标 Da
10、taTables(“订单“).EnterKeyActionDown = True 按钮或 菜单 EnterKeyActionDown 属性 27 DataTable 在 DataTable 中增加一行， Dim dr As DataRow 按钮或菜单 其实我们很少直 接向 DataTab 28 DataTable 保存数据 DataTables(“订单“).Save() 按钮或菜单 单保存数据 29 DataTable 同时保存数据和设置 DataTables(“订单“).Save(True) 按钮或菜单 保存设置比较耗 时，会影响保存速度。菜单中的保存命令是同时保存数据和设置的。 30 Da
11、taTable 自制保存按钮 For Each dt As DataTable In DataTables 按钮或菜单 这个按钮就能保 存所有表，但是不会保存设置；对于一个成熟的、已经交付使用的项目，有时是没有必要保存设置的。 31 DataTable 删除符合条件的行 DataTables(“订单 “).DeleteFor(“日期 0 AndAlso drs(n)(“总分“) = drs(n-1)(“ 总分“) Then 如果总分和上一行相同 drs(n)(“总分排名“) = drs(n-1)(“总分排名“) 则排名等于上一行 Else drs(n)(“总分排名“) = n + 1 设置排名
12、 End If Next Next 按钮或菜单 例子，可以参考 CaseStudy 目录下的文件：成绩排名.Table 36 DataTable 找出符合条件的行，并将指定列的内容替换为指定值 DataTables(“订单“). ReplaceFor(“折扣“, 0.15, “数量 600“) 按钮或菜单 将订单表中，订购数量大于 600 的订单的折扣设 为 0.15 37 DataTable 选定某一区域 CurrentTable.Select(1,2,7,6) 按钮或菜单 选定当前表第二行第三列 至第八行第 7 列之间的区域 38 DataTable 选定指定位置的单元格 CurrentT
13、able.Select(0,0)按钮或菜单 选定当前表的第 1 行 第 1 列 39 DataTable 选定整个某列 CurrentTable.Select(0, 1, CurrentTable.Rows.Count - 1, 1) 按钮或菜单 选定整个第二列 40 DataTable 保存并重新加载所有表 For Each dt As DataTable In DataTables dt.Load Next按钮或菜单 在多人同时编辑数据的时候，通过执行此方法，可以得到最新的数据 41 DataTable 设置加载条件重新加载 With DataTables(“订单“) .LoadFilte
14、r = “产品 = PD01“ .Load() End With按钮或菜单 加载产品为 PD01 的订单 42 DataTable 撤销对表 A 的修改 DataTables(“表 A“).RejectChanges() 按钮或菜单 撤销自打开 文件或最近一次保存以来，对该表做出的修改 43 DataTable 移除符合条件的行 DataTables(“订单 “).RemoveFor(“产品 = PD01“) 按钮或菜单 44 DataTable 根据条件统计表中数据 Dim Total As Integer Dim Amount As Double With DataTables(“订单“)
15、 4 Total = .Compute(“Sum(数量)“) Amount = .Compute(“Sum(金额)“) End With按钮或菜单 计算总的销售数量和金额 45 DataTable 根据条件统计表中数据 Dim Total As Long Total = DataTables(“订单“).Compute(“Sum( 数量)“, “产品 = PD01“) 按钮或菜单 计算产品 PD01 的销 售数量 46 DataTable 根据条件统计表中数据 Dim Customers As List(Of String) Dim Total As Integer Customers = D
16、ataTables(“订单“).GetUniqueValues(“, “客户 “) For Each Customer As String In Customers Total = DataTables(“订单“).Compute(“Sum(数量)“, “客户 = “ & Customer & “) Output.Show(Customer & “:“ & Total) Next 按钮或菜单 计算每个客户的订购数量 47 DataTable 删除表 DataTables.Delete(“统计表 1“) 按钮或菜单 删除通过代码增加的临时表。 48 DataTables 按条件填充并求和 Dim
17、 d As Date = Date.Today Dim m As Integer = d.Month dim f As New Filler f.SourceTable = DataTables(“人员表“) 指定数据来源 f.SourceCols = “姓名,性别“ 指定数据来源列 f.DataTable = DataTables(“发放记录“) 指定数据接收表 f.DataCols = “姓名,性别“ 指定数据接收列 f.Fill() 填充数据 For Each dr As DataRow In DataTables(“发放记录“).DataRows dr(“工资“) = DataTabl
18、es(“人员表“).Compute(“Sum(工资)“, “姓名= “ & dr(“姓名“) & “And 月= “ & m & “) if dr.IsNull(“发放日期“) = True Then dr(“发放日期“) = d End If Next 按钮或菜单 49 DataTables 按条件重新加载数据 DataTables(“订单 “).LoadFilter = “日期 = #“ & Date.Today & “#“ DataTables(“订单 “).Load() 50 DELETE 语句 删除指定条件的行 DELETE FROM 订单 WHERE Year(日期) = 1998
19、 按 钮或菜单 表示删除 1998 年的订单 51 EXCEL 报表 Table 保存为 Excel 文件中的一个工作表 CurrentTable.SaveExcel(“C:datatest.xls“,“订 单“,False) 按钮或菜单 SaveExcel(FileName, SheetName, SelectedRowsOnly)FileName： 目标 Excel 文件名，含路径。SheetName: 工作表名。SelectedRowsOnly：逻辑型，设为 True，只保 存选定行，否则包括所有行。 52 EXCEL 报表 打印模板 Dim Book As New XLS.Book(P
20、rojectPath & “Attachments出库单.xls“) Book.Build() 生成细节区 Book.Save(“c:reportstest.xls“) 保存工作簿 Dim Proc As New Process 打开工作簿 Proc.File = “c:reportstest.xls“ Proc.Start() 按钮或菜单 如果 Book 来自于一个模板文件，必须先调用方法，才能生成细节区。 53 EXCEL 报表 将 DataList 的内容保存为 Excel 文件中的一个工作表。 Dim dst As WinForm.DataList = e.Form.Controls(
21、“DataList1“)dst.SaveExcel(“C:datatest.xls“,“订单“,False) 按 5 钮或菜单 SaveExcel(FileName, SheetName, SelectedRowsOnly)FileName： 目标 Excel 文件名， 含路径。SheetName: 工作表名。SelectedRowsOnly：逻辑型，设为 True，只保存选定行，否则 包括所有行。 54 EXCEL 报表 报表中插入一行 Dim Book As New XLS.Book(“c:reportstest.xls“) 定义一个 Excel 工 作簿 Dim Sheet As XLS
22、.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 Sheet.Rows.Insert(0) 在最前面插入 一行 Book.Save(“c:reportstest.xls“) Dim Proc As New Process Proc.File = “c:reportstest.xls“ Proc.Start() 按钮或菜单 55 EXCEL 报表 报表中插入一列 Dim Book As New XLS.Book(“c:reportstest.xls“) 定义一个 Excel 工 作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作
23、簿的第一个工作表 Sheet.Cols.Insert(0) 在最前面插入 一列 Book.Save(“c:reportstest.xls“) Dim Proc As New Process Proc.File =“c:reportstest.xls“ Proc.Start() 按钮或菜单 56 EXCEL 报表 代码生成报表（导出报表） Dim dt As Table = Tables(“订单“) Dim Book As New XLS.Book 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 Dim St
24、yle As Xls.Style = Book.NewStyle 新建一个样式 Style.BackColor = Color.Red 样式的背景颜色设为红色 For c As Integer = 0 To dt.Cols.Count -1 添加列标题 Sheet(0, 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 +1, c).Value = dt.rows(r)(c) Next If
25、 dt.rows(r)(“折扣“) = 0.15 Then 如果折扣大于等于 0.15 Sheet(r + 1,dt.Cols(“折扣“).Index).Style = Style 设置折扣单元格的样式 End If Next Dim St2 As XLS.Style = Book.NewStyle St2.Format = “yyyy-MM-dd“ Sheet.Cols(dt.Cols(“日期“).Index).Style = st2 打开工作簿 Book.Save(“c:reportstest.xls“) Dim Proc As New Process Proc.File = “c:rep
26、ortstest.xls“ Proc.Start() 按钮或菜单 带样式导出 57 EXCEL 报表 设置行高、样式及强制换页 Dim Book As New XLS.Book(“c:reportstest.xls“) 定义 一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 Dim Style As XLS.Style = 6 Book.NewStyle() 定义新样式 Style.ForeColor = Color.Red 设置样式的字体颜色 Sheet.Rows(0).Height = 40 设置第 1 行的
27、行高 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.xls“ Proc.Start() 按钮或菜单 58 EXCEL 报表 设置列宽、样式及分页 Dim Book As New XLS.Book(“c:reportstest.xls“) 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet =
28、 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 列的样式 Sheet.Cols(4).PageBreak = True 在第 5 列处强制分页 Book.Save(“c:reportstest.xls“) Dim Proc As New Process Proc.File =
29、“c:reportstest.xls“ Proc.Start() 按钮或菜单 59 EXCEL 报表 单元格样式、超链接 Dim Book As New XLS.Book() 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 Dim Style As XLS.Style = Book.NewStyle() 定义新样式 Style.ForeColor = Color.Red 设置样式的字体颜色 Sheet(0,0).Style = StyleSheet(0,0).Value = “邮件“ Sheet(0,0).
30、Hyperlink = “Mailto:zjtdr “ Book.Save(“c:reportstest.xls“) Dim Proc As New Process Proc.File = “c:reportstest.xls“ Proc.Start() 按钮或菜单 60 EXCEL 报表 缩放打印 Dim Book As New XLS.Book 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 With Sheet.PrintSetting .AutoScale = True 自动缩放 .FitPages
31、Down = 1 垂直方向缩为 1 页 End With For i As Integer = 0 To 50 向工作表的单元格中设置值 Sheet(i, 0).Value = (i + 1) * 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000 NextBook.Save(“c:reportstest.xls“) 保存工作簿 Dim Proc As New Process 打开工作簿 Proc.File = “c:reportstest.xls“ Proc.Start() 按钮或菜单 61 EXCE
32、L 报表 页面设置 Dim Book As New XLS.Book Dim Sheet As XLS.Sheet = Book.Sheets(0) With Sheet.PrintSetting .PaperKind = 9 设为 A4 纸 7 .LandScape = True 横向打印 .MarginLeft = 20 左右边距设为 20 毫米 .MarginRight = 20 .MarginTop = 15 上下边距设为 15 毫米 .MarginBottom = 15 End With按钮或菜单 62 EXCEL 报表 页眉页脚 Dim Book As New XLS.Book 定
33、义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 With Sheet.PrintSetting 页眉左边为日期,中间为时间,右边为表名 .Header = “&L&D &C&T &R&A“ 在页脚右边打印页号和总页数 .Footer = “&R 第&P 页,总&N 页“ End With For i As Integer = 0 To 100 向工作表的单元格中设置值 Sheet(i, 0).Value = (i + 1) * 10 Sheet(i, 1).Value = (i + 1) * 100 Shee
34、t(i, 2).Value = (i + 1) * 1000 Next Book.Save(“c:reportstest.xls“) 保存工作簿 Dim Proc As New Process 打开工作簿 Proc.File = “c:reportstest.xls“ Proc.Start() 按钮或菜单 63 EXCEL 报表 打印模式、页面居中、网络线、标题等 Dim Book As New XLS.Book 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 With Sheet.PrintSetting
35、 .BlackAndWhite = True 用黑白模式打印，即使你安装的是彩色打印 .CenterHorizontal = True 表格水平方向页面居中 .CenterVertical = True 表格垂直方向页面居中 .PrintGridlines = True 打印网格线 .PrintHeaders = True 打印列标题 End With For i As Integer = 0 To 100 向工作表的单元格中设置值 Sheet(i, 0).Value = (i + 1) * 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i, 2).Va
36、lue = (i + 1) * 1000 Next Book.Save(“c:reportstest.xls“) 保存工作簿 Dim Proc As New Process 打开工作簿 Proc.File = “c:reportstest.xls“ Proc.Start() 按钮或菜单 64 EXCEL 报表 单元格对齐数据 Dim Book As New XLS.Book() 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 Dim Style As XLS.Style = Book.NewStyle()
37、定义新样式 Style.ForeColor = Color.Red 设置样式的字体颜色 Style.AlignHorz = XLS.AlignHorzEnum.Center Style.AlignVert = XLS.AlignVertEnum.Center 8 Sheet.Rows(0).Height = 50 Sheet.Cols(0).Width = 120 Sheet(0,0).Value = “邮件“ Sheet(0,0).Style = Style Book.Save(“c:reportstest.xls“) Dim Proc As New Process Proc.File =
38、“c:reportstest.xls“ Proc.Start() 按钮或菜单 下面两个属性用于对齐数据。AlignHorz 设置水平对齐方式， XLS.AlignHorzEnum 型枚举，主要可选值有：Center ： 居中 General：默认 Left： 靠左 Right： 靠 右 AlignVert 设置垂直对齐方式，XLS.AlignVertEnum，主要可选值有：Bottom： 靠底 Center： 居 中 Top： 靠上 Undefined：默认 65 EXCEL 报表 单元格背景颜色和字体颜色 Dim dt As Table = Tables(“订单“) Dim Book As
39、New XLS.Book 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 Dim Style As Xls.Style = Book.NewStyle 新建一个样式 Style.BackColor = Color.Red 样式的背景颜色设为红色 Dim Style1 As Xls.Style = Book.NewStyle 新建一个样式 Style1.ForeColor = Color.Blue 样式的字体颜色设为蓝色 按钮或菜单 66 EXCEL 报表 单元格边框设置 Dim Book As New XL
40、S.Book() 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 Dim Style As XLS.Style = Book.NewStyle() 定义新样式 Style.BorderTop = XLS.LineStyleEnum.Thin Style.BorderBottom = XLS.LineStyleEnum.Thin Style.BorderLeft = XLS.LineStyleEnum.Thin Style.BorderRight = XLS.LineStyleEnum.Thin Style.
41、BorderColorTop = Color.Red Style.BorderColorBottom = Color.Red Style.BorderColorLeft = Color.Red Style.BorderColorRight = Color.Red For r As Integer = 1 to 5 For c As Integer =1 To 5 Sheet(r,c).Style = Style Next Next Book.Save(“c:reportstest.xls“) Dim Proc As New Process Proc.File = “c:reportstest.
42、xls“ Proc.Start() 按钮或菜单 属性 说明 备注 BorderTop 返回或设置上边框的类型。 XLS.LineStyleEnum 型枚举，主要可选值有：Dashed: 虚线 Dotted：点线 Double：双实线 Hair：头发丝 一样的细线(一个像素)Medium：中等实线 MediumDashDotDotted：中等的(短线+点+点) MediumDashDotted: 中等的( 短线+点)MediumDashed: 中等虚线 None：无 Thick:粗线 Thin：细线 ThinDashDotDotted：细(短线+点+点)ThinDashDotted：细(短线+点
43、) BorderBottom 返回或设置下边框的 类型。 BorderLeft 返回或设置左边框类型。 BorderRight 返回或设置右边框类型。 BorderColorTop 返 回或设置上边框颜色 BorderColorBottom 返回或设置下边框颜色 BorderColorLeft 返回或设置左边框 颜色 BorderColorRight 返回或设置上边框颜色 67 EXCEL 报表 单元格斜线设置 Dim Book As New XLS.Book() Dim Sheet As XLS.Sheet = Book.Sheets(0) 9 Dim Style As XLS.Style
44、= Book.NewStyle() Style.DiagonalStyle= XLS.LineStyleEnum.Thin Style.DiagonalColor =Color.Red Style.Diagonal = XLS.DiagonalEnum.Backward For r As Integer = 1 to 2 For c As Integer =1 To 2 Sheet(r,c).Style = Style Next Next Book.Save(“c:reportstest.xls“) Dim Proc As New Process Proc.File = “c:reportst
45、est.xls“ Proc.Start() 按钮或菜单 和斜线设置有关的属性：Diagonal 返回或设置斜线的方向，XLS.DiagonalEnum 型枚 举，可选值有：Backward ：反斜线 Forward：斜线 None：无 DiagonalColor 返回或设置斜线颜色 DiagonalStyle 返回或设置斜线的类型，XLS.LineStyleEnum 型枚举，主要可选值有：Dashed: 虚线 Dotted：点线 Double：双实线 Hair：头发丝一样的细线(一个像素)Medium：中等实线 MediumDashDotDotted：中等的(短线+点+点)MediumDash
46、Dotted: 中等的(短线+点)MediumDashed: 中等 虚线 None：无 Thick:粗线 Thin：细线 ThinDashDotDotted：细( 短线+ 点+点)ThinDashDotted：细(短线+点) 68 EXCEL 报表 单元格内容自动换行 Dim dt As Table = Tables(“订单“) Dim Book As New XLS.Book 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 Dim Style As Xls.Style = Book.NewStyle 新建
47、一个样式 Style.WordWrap = True 单元格内容自动换行 按钮或菜单 69 EXCEL 报表 在 Excel 报表模板中插入一个标记 Dim Book As New XLS.Book(“c:book5.xls“) Book.Marks.Add(“用户名“,User.Name) Book.Build() Book.Save(“c:reportstest.xls“) Dim Proc As New Process Proc.File = “c:reportstest.xls“ Proc.Start() 按钮或菜单 利用 Marks 集合，我们可以在报表模板中插入标记，然后在生成报表
48、的时候，将标记 替换为真正的值。 在 Excel 报表模板中插入一个标记的格式为： 示例 假定报表中某个位置需要打印出当前登录用户的名称，我们可以在设计报表的时候，在该处插入标记： 标记的名称可以根据需要取。 然后在生成报表之前，利用 Marks 集合，将标记替换为真正的用户： 70 EXCEL 报表 插入图片 Dim Book As New XLS.Book 定义一个 Excel 工作簿 Dim Sheet As XLS.Sheet = Book.Sheets(0) 引用工作簿的第一个工作表 For i As Integer = 0 To 9 向工作表的单元格中设置值 Sheet(i, 0).Value = (i + 1) * 10 10 Sheet(i, 1).Value = (i + 1) * 100 Sheet(i, 2).Value = (i + 1) * 1000 Next Sheet(10,2).Value = New XLS.Picture(GetImage(“c:Foxtable.Ico“) Book.Save(“c:reportstest.xls“) 保存工作簿 Dim Proc As New Process 打开工作簿 Proc.File = “c:reportstest.xls“ Proc.
