用于.NET 4.0的F＃和Excel集成（Visual Studio 2010 Beta 1）

Question

任何人都可以提供一个Web链接或演示如何使用.NET 4.0（Visual Studio 2010 Beta 1）进行F＃和Excel集成？

我知道如何在CTP版本中做到这一点，但据我所知，它应该在.NET 4.0（Visual Studio 2010 Beta 1）中更简单。

Answer 1

为了提高Office互操作性，最新的F＃CTP版本（Visual Studio 2010 Beta1）没有添加“秘密酱油”。也许你有F＃与C#'s new support for Dynamic混淆。

但是，F＃中的Office interop与C＃相同 - 您可以使用本机COM API或更新的托管的Visual Studio Tools for Office（VSTO）库。不幸的是，F＃没有用于创建像C＃这样的VSTO加载项的UI设计器，因此执行Office interop最简单的方法就是使用COM API。

下面的代码片段创建一个Excel工作表有关您的图片收藏文件夹图片信息：

#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

只需写写空VSTO壳，然后创建F＃集DLL并使用它。我总是使用优秀的VS2010设计师，然后将其链接到F＃DLL，你将得到最好的两个世界....