Excel前缀公式F＃

Question

我有一个简单的Excel电子表格，其中每个单元格都不包含任何内容，一个值或以下形式的简单2参数公式：

Function（Cell，Cell），（例如，单元格A3可能具有公式“ = A1 + A2”）

我希望能够使用F＃打开Excel文件，并获取任何单元格的内容：

1-空（因为该单元格没有值，也没有公式）

2-十进制或字符串（用于值）

3-（字符串，字符串字符串）的元组，其中第一个值是函数（例如“ +”，元组的第二和第三部分是单元格名称（例如“ A1”和“ A2”））

因此：Get（“ A1”）和Get（“ A2”）都将返回一个double，但是Get（“ A3”）将返回一个元组（“ +”，“ A1”，“ A2”）

我将如何在F＃中执行此操作？

Answer 1

一旦获得对工作表对象的引用（启动excel并使用数据打开文件之后），就可以使用Range成员来获取指定的单元格。 然后，您可以使用Value2属性获取一个值（例如，字符串/双精度），该值还返回公式的结果。 要获取公式，可以使用Formula成员。

我没有找到测试该值是否自动计算的好方法，但是您可以检查Formula值是否以=字符开头。 如果您确实只需要描述的简单公式（不带括号等），那么一个简单的正则表达式就可以解决问题：

let reg = new Regex("=([A-Z]+[0-9]+)([^A-Z0-9]+)([A-Z]+[0-9]+)")

let getInfo (cell:Range) =
  let formula = cell.Formula.ToString().Replace(" ", "")
  match formula.StartsWith("="), cell.Value2 with
  | true, _ -> 
      let g = reg.Match(formula).Groups
      Formula(g.Item(1),g.Item(2),g.Item(3))
  | :? float as n -> Float(n)
  | :? string as s -> String(s)
  | _ -> Empty

这将返回一个涵盖您所有情况的以下数据类型的值：

type CellInfo = 
  | Empty
  | Float of float
  | String of string
  | Formula of string * string * string

顺便说一句：要在F＃Interactive中加载excel，您需要以下内容：

#r "Microsoft.Office.Interop.Excel.dll"

// Run Excel as a visible application
let app = new ApplicationClass(Visible = true) 
// Create new file using the default template
let workbook = app.Workbooks.Add(XlWBATemplate.xlWBATWorksheet) 
// Get the first worksheet
let worksheet = (workbook.Worksheets.[1] :?> _Worksheet) 

Answer 2

这确实给了我一个主意，我尝试使用FsLex / FsYacc处理您的Excel单元格。 它可能与您想像的不完全一样，但可能很有用，而且范围也不大。 基本上，我编写的代码是这样运行的：

let teststrings = [ "1002";
                    "=SUM(B2:B12)";
                    "=A1+AVERAGE(B2:B4)";
                    "=B3+G7";
                    "=MIN(MEAN(A3:A20))";
                    "=A1+B4*C6"
                    ];

teststrings |> List.iter (fun s -> (convert s |> printfn "%A" s))

和输出看起来像

“ 1002”“（SUM，（RANGE，B2，B12））”“（（+，A1，（AVERAGE，（RANGE，B2，B4）））”“”（（+，B3，G7）“”（（最小，（RANGE，A3，A20）））“”（（+，A1，（*，B4，C6））“”

整个东西太大了，无法放入此盒子，但在这里看看。