13.5.1 写数据到 Excel

13.5.1 写数据到 Excel

Excel 的互操作程序集都是标准的 .NET 程序集，我们可以在 F# Interactive 中使用 #r 指令进行引用。引用程序集之后，就能使用类了，既可以把Excel 作为独立（可见或不可见）的应用程序运行，也可以写脚本。清单 13.18 演示了如何启动 Excel，创建有一个工作表的新工作簿，以及把数据写入工作表。

清单13.18 启动 Excel 创建工作表 (F#)

#r "office.dll" 
#r "Microsoft.Office.Interop.Excel.dll" 
open System 
open Microsoft.Office.Interop.Excel

let app = new ApplicationClass(Visible = true)     [1]
let workbook = app.Workbooks.Add(XlWBATemplate.xlWBATWorksheet)     [2]
let worksheet = (workbook.Worksheets.[1] :?> _Worksheet)    [3]

worksheet.Range("C2").Value2 <- "1990"                        | [4]
worksheet.Range("C2", "E2").Value2 <- [| "1990"; "2000"; "2005" |]  |

在清单 13.18 中，我们创建了 ApplicationClass 类的新实例[1]，这个类型来自 Excel 命名空间，表示 Excel 这个应用程序。运行这行代码之后，应该显示一个新的 Excel 窗口。下一行[2]创建工作簿，因此，运行以后，应该看到通常的 Excel 表格。再下一行，我们获取表示工作簿中的第一个工作表（工作表显示在应用程序左下角）的对象。可以看到，我们需要把这个对象强制转换为 Worksheet 类[3]，因为 Excel 编程接口（API）在很多地方是弱类型的。我们得到了这个工作表之后，就可以开始将数据写入网格，这可以使用 Range 索引器和 Value2 属性[4]实现。这个属性的类型是object，所以，可以用各种方式来使用。第一个示例将一个字符串值写到一列，第二个示例用 .NET 数组值填充范围 （一行三列）。在图 13.1 中可以看到，运行代码后创建的 Excel 工作表。

图 13.1 从 F# Interactive 中启动Excel 应用程序，以编程方式输入数据。

到目前为止，我们已经创建了想要显示的表头，下一步是填充所有剩余的信息，且最重要的，表格包含了不同年份的森林面积。清单 13.19 将数据转换成二维数组，这也是Value2 属性的有效数据源。

清单13.19 把数据导出到 Excel 工作表 (F#)

let statsArray = stats |> Array.ofSeq 
let names = Array2D.init statsArray.Length 1 (fun index _ –>   [1]
  let name, _ = statsArray.[index]   | 得到二维数组中的地区名
  name )                      |

let dataArray = Array2D.init statsArray.Length 3 (fun index year –> 
  let _, values = statsArray.[index] 
  let yearValue = values.[year] 
  yearValue / 1000000.0 )  <-- 显示为百万平方公里

let endColumn = string(statsArray.Length + 2)

worksheet.Range("B3", "B" + endColumn).Value2 <- namesVert  | 把数据写到工作表
worksheet.Range("C3", "E" + endColumn).Value2 <- tableArr    |

把数据写入到 Excel 工作表，我们可以使用基本值，比如数组或二维数组。一维数组可用于写数据行，像在第一个示例中看到的，但如果我们想要用数据填充矩阵或列，必须使用二维数组。在清单 13.19 中，我们首先创建一个二维数组，纵向保存地区名。为此，创建一个简单的数组，包含名称，然后，使用 Array2D.init 函数，将其转换为二维数组[1]。init 函数的前两个参数为数组的宽和高，再加一个函数，用于为每个坐标生成值。生成的数组仅包含一列，所以，在初始化过程中，可以忽略第二个坐标。
下一步是用地区数据生成二维数组。我们把输入序列转换成数组，还使用 Array2D.init 函数生成二维数组，以便可以使用索引。lambda 函数，每个数组单元格都执行，在函数中，首先获得地区信息，然后，找到指定年份的值，除以 100 万，使输出更方便阅读。最后，我们计算 Excel 工作表中的右边范围（取决于地区的数量），并设置数据，方法同前面的示例。
运行代码，数据应该出现在 Excel 中。因为我们运行的是 F# 脚本，因此，可以同时处理工作表，调整刚生成的表设计，结果类似于图 13.2。

图 13.2 由 F# 脚本生成的 Excel 表格，显示在过去 20 年里，世界各地森林覆盖面积的变化。

现在，有了 Excel，更容易理解数据了；还可以再进一步，用数据创建图表。这既可以手工完成，但是，用 F# 生成完整的 Excel 文件，包括图表，更容易。