public static CellValue FromObject(
    object value
)

Public Shared Function FromObject(
    value As Object
) As CellValue

// Add data of different types to cells of the range.
CellRange sourceRange = worksheet["B1:B3"];
sourceRange[0].Value = "Text";
sourceRange[1].Formula = "=PI()";
sourceRange[2].Value = DateTime.Now;
sourceRange[2].NumberFormat = "d-mmm-yy";

// Get the number of cells in the range.
int cellCount = sourceRange.RowCount * sourceRange.ColumnCount;

// Declare an array to store elements of different types.
object[] array = new object[cellCount];

// Convert cell values to objects and add them to the array.
for (int i = 0; i < cellCount; i++) {
    array[i] = sourceRange[i].Value.ToObject();
}

// Convert array elements to cell values and assign them to cells in the fifth row. 
for (int i = 0; i < array.Length; i++) {
    worksheet.Rows["5"][i + 1].SetValue(array[i]);
    // An alternative way to do this is to use the CellValue.FromObject method.
    // worksheet.Rows["5"][i+1].Value = CellValue.FromObject(array[i]);
}

' Add data of different types to cells of the range.
Dim sourceRange As CellRange = worksheet("B1:B3")
sourceRange(0).Value = "Text"
sourceRange(1).Formula = "=PI()"
sourceRange(2).Value = Date.Now
sourceRange(2).NumberFormat = "d-mmm-yy"

' Get the number of cells in the range.
Dim cellCount As Integer = sourceRange.RowCount * sourceRange.ColumnCount

' Declare an array to store elements of different types.
Dim array(cellCount - 1) As Object

' Convert cell values to objects and add them to the array.
For i As Integer = 0 To cellCount - 1
    array(i) = sourceRange(i).Value.ToObject()
Next i

' Convert array elements to cell values and assign them to cells in the fifth row. 
For i As Integer = 0 To array.Length - 1
    worksheet.Rows("5")(i + 1).SetValue(array(i))
    ' An alternative way to do this is to use the CellValue.FromObject method.
    ' worksheet.Rows["5"][i+1].Value = CellValue.FromObject(array[i]);
Next i

if (cellBindings.TryGetValue(propertyDescriptor.Name, out reference))
        SetCellValue(reference, CellValue.FromObject(propertyDescriptor.GetValue(currentItem)));
}

if (cellBindings.TryGetValue(propertyDescriptor.Name, out reference))
        SetCellValue(reference, CellValue.FromObject(propertyDescriptor.GetValue(currentItem)));
}

else
    result = CellValue.FromObject(value);
return true;

If cellBindings.TryGetValue(propertyDescriptor.Name, reference) Then
    SetCellValue(reference, CellValue.FromObject(propertyDescriptor.GetValue(currentItem)))
End If

If cellBindings.TryGetValue(propertyDescriptor.Name, reference) Then
    SetCellValue(reference, CellValue.FromObject(propertyDescriptor.GetValue(currentItem)))
End If

End If
    Return CellValue.FromObject(value)
End Function

Else
    result = CellValue.FromObject(value)
End If