我无法编译以下代码,这些代码是从C#转换而来的。
编译器产生了以下错误:错误FS0010:在实现文件中或此之前的结构化构造不完整。在这一点或其他标记之前或之前预期的不完整结构化构造。
// Assemblies
open System
open System.Linq
open System.Data
open System.Windows
open DocumentFormat.OpenXml // Also install DocumentFormat.OpenXml from nuget
open DocumentFormat.OpenXml.Packaging
open DocumentFormat.OpenXml.Spreadsheet
open Microsoft.Office.Interop.Excel
//Read the value of a single cell by string coordinates (Open XML SDK)
let read_value_openxml file_path_and_name column row =
let stream = new System.IO.FileStream(file_path_and_name, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite)
// Open the spreadsheet document for read-only access.
let document = SpreadsheetDocument.Open(stream, false)
// Retrieve a reference to the workbook part.
let wbPart = document.WorkbookPart
// Find the sheet with the supplied name, and then use that sheet object to retrieve a reference to the first worksheet.
let firstSheet:Sheet = wbPart.Workbook.Descendants<Sheet>().First()
let theSheet:Worksheet = ((WorksheetPart.wbPart.GetPartById(firstSheet.Id)).Worksheet
// Retrieve a reference to the worksheet part.
let wsPart = wbPart.GetPartById(firstSheet.Id)
// Use its Worksheet property to get a reference to the cell whose address matches the address you supplied.
let theCell = wsPart.Worksheet.Descendants<Cell>().Where(fun c -> c.CellReference = column + row).FirstOrDefault()
// Return a value
theCell.InnerText
我认为问题在于缩进。在F#中,如果代码缩进了相同数量的空格,则该代码适合一个块。
您应该以与ead_value_openxml函数的其余代码相同的缩进级别返回值。功能似乎已经缩进了。尝试这种方式:
//Read the value of a single cell by string coordinates (Open XML SDK)
let read_value_openxml file_path_and_name column row =
let stream = new System.IO.FileStream(file_path_and_name, System.IO.FileMode.Open, System.IO.FileAccess.Read, System.IO.FileShare.ReadWrite)
// Open the spreadsheet document for read-only access.
let document = SpreadsheetDocument.Open(stream, false)
// Retrieve a reference to the workbook part.
let wbPart = document.WorkbookPart
// Find the sheet with the supplied name, and then use that sheet object to retrieve a reference to the first worksheet.
let firstSheet:Sheet = wbPart.Workbook.Descendants<Sheet>().First()
let theSheet:Worksheet = ((WorksheetPart.wbPart.GetPartById(firstSheet.Id)).Worksheet
// Retrieve a reference to the worksheet part.
let wsPart = wbPart.GetPartById(firstSheet.Id)
// Use its Worksheet property to get a reference to the cell whose address matches the address you supplied.
let theCell = wsPart.Worksheet.Descendants<Cell>().Where(fun c -> c.CellReference = column + row).FirstOrDefault()
// Return a value
theCell.InnerText
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句