[英]F# insert row into Excel dynamically
我需要在Excel中动态插入行。 我正在生成一张发票,该发票可以具有不同数量的交易,并且每次交易都需要一行。
我想从一行开始(第17行)开始复制n次事务。
谁能在F#中做到这一点?
我不一定会推荐这种方法,但是如果您可以通过F#的dynamic运算符 ( 可以在此处找到其实现)来 动态解释,那么您可以在不参考任何特定库的情况下进行Interop。
let xlApp = System.Runtime.InteropServices.Marshal.GetActiveObject "Excel.Application"
let rng : obj = xlApp?ActiveWorkbook?ActiveSheet?Rows(17)
rng?Copy()
rng?Insert()
即,将一行复制到剪贴板,然后将其插入到同一位置。
编辑
事实证明,许多基于反射的动态运算符定义都不适合互操作,包括上面的链接。 提供我自己的:
let (?) (o: obj) name : 'R =
let bindingFlags = System.Reflection.BindingFlags.GetProperty
let invocation args =
o.GetType().InvokeMember(name, bindingFlags, null, o, args)
let implementation args =
let argType, resType = FSharpType.GetFunctionElements typeof<'R>
if argType = typeof<unit> then [| |]
elif FSharpType.IsTuple argType then FSharpValue.GetTupleFields args
else [| args |]
|> invocation
|> fun res -> if resType = typeof<unit> then null else res
if FSharpType.IsFunction typeof<'R> then
FSharpValue.MakeFunction(typeof<'R>, implementation)
else invocation null
|> unbox<'R>
现在,我们可以定义一个函数,以插入可变数量的复制行。
let copyAndInsertRow17 n =
if n > 0 then
let xlApp =
System.Runtime.InteropServices.Marshal.GetActiveObject "Excel.Application"
let sheet = xlApp?ActiveWorkbook?ActiveSheet
sheet?Rows(17)?Copy()
sheet?Range(sheet?Rows(17 + 1), sheet?Rows(17 + n))?Insert()
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.