//create a new workbook var workbook = new GrapeCity.Documents.Excel.Workbook(); #region Init data DataTable teamInfo = new System.Data.DataTable(); teamInfo.Columns.Add(new DataColumn("ID", typeof(Int32))); teamInfo.Columns.Add(new DataColumn("Name", typeof(string))); teamInfo.Columns.Add(new DataColumn("Score", typeof(Int32))); teamInfo.Columns.Add(new DataColumn("Team", typeof(string))); teamInfo.Rows.Add(10, "Bob", 12, "Xi'An"); teamInfo.Rows.Add(11, "Tommy", 6, "Xi'An"); teamInfo.Rows.Add(12, "Jaguar", 15, "Xi'An"); teamInfo.Rows.Add(12, "Lusia", 9, "Xi'An"); #endregion IWorksheet worksheet = workbook.Worksheets[0]; // Set AutoGenerateColumns as false worksheet.AutoGenerateColumns = false; // Bind columns manually. worksheet.Range["A:A"].EntireColumn.BindingPath = "ID"; worksheet.Range["B:B"].EntireColumn.BindingPath = "Name"; worksheet.Range["C:C"].EntireColumn.BindingPath = "Score"; worksheet.Range["D:D"].EntireColumn.BindingPath = "Team"; // Set data source worksheet.DataSource = teamInfo; // Save to an excel file workbook.Save("BindDataTable.xlsx");
' Create a new Workbook Dim workbook As New Workbook #Region "Init data" Dim teamInfo As New DataTable With teamInfo.Columns .Add(New DataColumn("ID", GetType(Integer))) .Add(New DataColumn("Name", GetType(String))) .Add(New DataColumn("Score", GetType(Integer))) .Add(New DataColumn("Team", GetType(String))) End With With teamInfo.Rows .Add(10, "Bob", 12, "Xi'An") .Add(11, "Tommy", 6, "Xi'An") .Add(12, "Jaguar", 15, "Xi'An") .Add(12, "Lusia", 9, "Xi'An") End With #End Region Dim worksheet As IWorksheet = workbook.Worksheets(0) ' Set AutoGenerateColumns as false worksheet.AutoGenerateColumns = False ' Bind columns manually. worksheet.Range("A:A").EntireColumn.BindingPath = "ID" worksheet.Range("B:B").EntireColumn.BindingPath = "Name" worksheet.Range("C:C").EntireColumn.BindingPath = "Score" worksheet.Range("D:D").EntireColumn.BindingPath = "Team" ' Set data source worksheet.DataSource = teamInfo ' save to an excel file workbook.Save("BindDataTable.xlsx")