Dim FileName As StringPublic OutputDoc As SpreadsheetDocumentDim AltChunkCount As Long = 0Dim MainPart As WorkbookPartDim MainPartSheets As SheetsDim MainPartSheetData As SheetDataPublic Sheets As New ArrayListFileName = OpenFileNameOutputDoc = SpreadsheetDocument.Open(FileName, True)MainPart = OutputDoc.WorkbookPartMainPartSheets = MainPart.Workbook.GetFirstChild(Of Sheets)()AltChunkCount = 1Dim ExcelWorkbook As Workbook = ExcelDocument.OutputDoc.WorkbookPart.WorkbookOutputDoc.WorkbookPart.Workbook.CalculationProperties.ForceFullCalculation = TrueOutputDoc.WorkbookPart.Workbook.CalculationProperties.FullCalculationOnLoad = TrueDim CurrentCell As Cell = GetCell("sheet1", 1, "B")    If CurrentCell IsNot Nothing Then        CurrentCell.CellValue = New CellValue(Value)        CurrentCell.DataType = CellValues.Number    End IfMainPart.Workbook.Save()OutputDoc.Close()