F # und Excel-Integration für .NET 4.0 (Visual Studio 2010 Beta 1)

Question

Kann jemand einen Weblink zu oder demonstrieren Sie hier, wie F # und Excel-Integration mit .NET 4.0 (Visual Studio 2010 Beta 1) zu tun?

Ich weiß, wie dies in der CTP-Version zu tun, aber soweit ich weiß, sollte es in .NET 4.0 (Visual Studio 2010 Beta 1) einfacher sein.

Answer 1

Es gibt keine "geheime Soße", die der neuesten F # CTP-Version (Visual Studio 2010 Beta1) hinzugefügt wurde, um die Office-Interoperabilität zu verbessern. Vielleicht haben Sie F # mit C#'s new support for Dynamic verwechselt.

Office-Interop in F # ist jedoch identisch mit C# - Sie können die systemeigenen COM-APIs oder die neueren verwalteten Visual Studio-Tools für Office (VSTO) -Bibliotheken verwenden. Leider verfügt F # nicht über die UI-Designer zum Erstellen von VSTO-Add-Ins wie C#. Daher ist die Verwendung der COM-APIs am einfachsten, um Office-Interoperabilität herzustellen.

Das folgende Snippet erstellt ein Excel-Arbeitsblatt mit Informationen über die Bilder in Ihrem Ordner Eigene Bilder:

#r "Microsoft.Office.Interop.Excel" 

open System 
open System.IO 
open System.Reflection 
open Microsoft.Office.Interop.Excel 


let app = ApplicationClass(Visible = true) 


let sheet = app.Workbooks 
       .Add() 
       .Worksheets.[1] :?> _Worksheet 


let setCellText (x : int) (y : int) (text : string) = 
    let range = sprintf "%c%d" (char (x + int 'A')) (y+1) 
    sheet.Range(range).Value(Missing.Value) <- text 


let printCsvToExcel rowIdx (csvText : string) = 
    csvText.Split([| ',' |]) 
    |> Array.iteri (fun partIdx partText -> setCellText partIdx rowIdx partText) 


let rec filesUnderFolder basePath = 
    seq { 
     yield! Directory.GetFiles(basePath) 
     for subFolder in Directory.GetDirectories(basePath) do 
      yield! filesUnderFolder subFolder 
    } 


// Print header 
printCsvToExcel 0 "Directory, Filename, Size, Creation Time" 


// Print rows 
filesUnderFolder (Environment.GetFolderPath(Environment.SpecialFolder.MyPictures)) 
|> Seq.map (fun filename -> new FileInfo(filename)) 
|> Seq.map (fun fileInfo -> sprintf "%s, %s, %d, %s" 
           fileInfo.DirectoryName 
           fileInfo.Name 
           fileInfo.Length 
           (fileInfo.CreationTime.ToShortDateString())) 
|> Seq.iteri (fun idx str -> printCsvToExcel (idx + 1) str) 

Answer 2

einfach eine leere VSTO Shell schreiben und dann F # Montage DLLs erstellen und verwenden. Ich benutze immer ausgezeichnete VS2010 Designer und verlinke sie dann mit F # DLLs und du bekommst das Beste aus beiden Welten ...