Import data from dynamic collection to Excel worksheet in C#, VB.NET

using Syncfusion.XlsIO;
using System.Collections.Generic;
using System.Dynamic;
using System.IO;

Imports Syncfusion.XlsIO
Imports System.Dynamic
Imports System.IO
Imports System.Runtime.InteropServices

public override bool TryGetMember(GetMemberBinder binder, out object result)
 {
      result = default(object);
 
       if (properties.ContainsKey(binder.Name))
       {
            result = properties[binder.Name];
            return true;
        }
        return false;
  }

Public Overrides Function TryGetMember(ByVal binder As GetMemberBinder, <Out> ByRef result As Object) As Boolean
    result = Nothing
    If properties.ContainsKey(binder.Name) Then
        result = properties(binder.Name)
        Return True
    End If
 
    Return False
End Function

public override bool TrySetMember(SetMemberBinder binder, object value)
 {
    properties[binder.Name] = value;
    return true;
 }

Public Overrides Function TrySetMember(ByVal binder As SetMemberBinder, ByVal value As Object) As Boolean
    properties(binder.Name) = value
    Return True
End Function

public override IEnumerable<string> GetDynamicMemberNames()
 {
            return properties.Keys;
  }

Public Overrides Function GetDynamicMemberNames() As IEnumerable(Of String)
    Return properties.Keys
End Function

//Instantiate the spreadsheet creation engine
using (ExcelEngine excelEngine = new ExcelEngine())
{
    //Instantiate the excel application object.
    IApplication application = excelEngine.Excel;
 
    //The workbook is created
    IWorkbook workbook = application.Workbooks.Create(1);
 
    //The first worksheet object in the worksheets collection is accessed
    IWorksheet worksheet = workbook.Worksheets[0];
 
    // The dynamic collection is imported
    worksheet.ImportData(GetMembersReport(), 1, 1, true);
 
    //Saving and closing the workbook
    Stream stream = File.Create("Output.xlsx");
    worksheet.UsedRange.AutofitColumns();
    workbook.SaveAs(stream);
}

'Instantiate the spreadsheet creation engine
Using excelEngine As ExcelEngine = New ExcelEngine()
 
    'Instantiate the Excel application object
    Dim application As IApplication = excelEngine.Excel
 
    'The workbook is created
    Dim workbook As IWorkbook = application.Workbooks.Create(1)
 
    'The first worksheet object in the worksheets collection is accessed
    Dim worksheet As IWorksheet = workbook.Worksheets(0)
 
    ' The dynamic collection is imported
    worksheet.ImportData(GetMembersReport(), 1, 1, True)
 
    'Saving and closing the workbook
    Dim stream As Stream = File.Create("Output.xlsx")
    worksheet.UsedRange.AutofitColumns()
    workbook.SaveAs(stream)
End Using

public static List<CustomDynamicObject> GetMembersReport()
{
    List<CustomDynamicObject> reports = new List<CustomDynamicObject>();
    dynamic dynamicObject = new CustomDynamicObject();
    dynamicObject.Id = 01;
    dynamicObject.Name = "Andy Bernard";
    dynamicObject.Age = 21;         
    reports.Add(dynamicObject);
 
    dynamicObject = new CustomDynamicObject();
    dynamicObject.Id = 02;
    dynamicObject.Name = "Jim Halpert";
    dynamicObject.Age = 23;
    reports.Add(dynamicObject);
 
    dynamicObject = new CustomDynamicObject();
    dynamicObject.Id = 03;
    dynamicObject.Name = "Karen Fillippe";
    dynamicObject.Age = 20;
    reports.Add(dynamicObject);
 
    return reports;
}

Public Function GetMembersReport() As List(Of CustomDynamicObject)
 
    Dim reports As List(Of CustomDynamicObject) = New List(Of CustomDynamicObject)()
    Dim dynamicObject As Object = New CustomDynamicObject()
    dynamicObject.Id = 1
    dynamicObject.Name = "Andy Bernard"
    dynamicObject.Age = 21
    reports.Add(dynamicObject)
 
    dynamicObject = New CustomDynamicObject()
    dynamicObject.Id = 2
    dynamicObject.Name = "Jim Halpert"
    dynamicObject.Age = 23
    reports.Add(dynamicObject)
 
    dynamicObject = New CustomDynamicObject()
    dynamicObject.Id = 3
    dynamicObject.Name = "Karen Fillippe"
    dynamicObject.Age = 20
    reports.Add(dynamicObject)
 
    Return reports
End Function