ByteScout Spreadsheet SDK - VB.NET - Export to WinForms DataGrid - ByteScout

ByteScout Spreadsheet SDK – VB.NET – Export to WinForms DataGrid

  • Home
  • /
  • Articles
  • /
  • ByteScout Spreadsheet SDK – VB.NET – Export to WinForms DataGrid

How to export to winforms datagrid in VB.NET and ByteScout Spreadsheet SDK

How to export to winforms datagrid in VB.NET

The code below will help you to implement an VB.NET app to export to winforms datagrid. ByteScout Spreadsheet SDK is the SDK that can write and read, modify and calculate Excel and CSV spreadsheets. Most popular formulas are supported. You may import or export data to and from CSV, XML, JSON as well as to and from databases, arrays. It can export to winforms datagrid in VB.NET.

VB.NET code samples for VB.NET developers help to speed up coding of your application when using ByteScout Spreadsheet SDK. In your VB.NET project or application you may simply copy & paste the code and then run your app! This basic programming language sample code for VB.NET will do the whole work for you to export to winforms datagrid.

ByteScout free trial version is available for download from our website. It includes all these programming tutorials along with source code samples.

Try ByteScout Spreadsheet SDK today: Get 60 Day Free Trial or sign up for Web API

Form1.Designer.vb
      
Partial Class Form1 ''' <summary> ''' Required designer variable. ''' </summary> Private components As System.ComponentModel.IContainer = Nothing ''' <summary> ''' Clean up any resources being used. ''' </summary> ''' <param name="disposing">true if managed resources should be disposed; otherwise, false.</param> Protected Overrides Sub Dispose(disposing As Boolean) If disposing AndAlso (components IsNot Nothing) Then components.Dispose() End If MyBase.Dispose(disposing) End Sub #Region "Windows Form Designer generated code" ''' <summary> ''' Required method for Designer support - do not modify ''' the contents of this method with the code editor. ''' </summary> Private Sub InitializeComponent() Me.dataGrid1 = New System.Windows.Forms.DataGrid() Me.dataGridTableStyle1 = New System.Windows.Forms.DataGridTableStyle() Me.dataGridTextBoxColumn1 = New System.Windows.Forms.DataGridTextBoxColumn() Me.btnImport = New System.Windows.Forms.Button() Me.btnExport = New System.Windows.Forms.Button() Me.openFileDialog1 = New System.Windows.Forms.OpenFileDialog() DirectCast(Me.dataGrid1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' ' dataGrid1 ' Me.dataGrid1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) Or System.Windows.Forms.AnchorStyles.Left) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.dataGrid1.DataMember = "" Me.dataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText Me.dataGrid1.Location = New System.Drawing.Point(12, 12) Me.dataGrid1.Name = "dataGrid1" Me.dataGrid1.Size = New System.Drawing.Size(438, 308) Me.dataGrid1.TabIndex = 0 Me.dataGrid1.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {Me.dataGridTableStyle1}) ' ' dataGridTableStyle1 ' Me.dataGridTableStyle1.DataGrid = Me.dataGrid1 Me.dataGridTableStyle1.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {Me.dataGridTextBoxColumn1}) Me.dataGridTableStyle1.HeaderForeColor = System.Drawing.SystemColors.ControlText ' ' dataGridTextBoxColumn1 ' Me.dataGridTextBoxColumn1.Format = "" Me.dataGridTextBoxColumn1.FormatInfo = Nothing Me.dataGridTextBoxColumn1.NullText = "" Me.dataGridTextBoxColumn1.Width = 75 ' ' btnImport ' Me.btnImport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnImport.Location = New System.Drawing.Point(238, 326) Me.btnImport.Name = "btnImport" Me.btnImport.Size = New System.Drawing.Size(212, 23) Me.btnImport.TabIndex = 1 Me.btnImport.Text = "Import from DataGrid to spreadsheet" Me.btnImport.UseVisualStyleBackColor = True AddHandler Me.btnImport.Click, New System.EventHandler(AddressOf Me.btnImport_Click) ' ' btnExport ' Me.btnExport.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnExport.Location = New System.Drawing.Point(238, 355) Me.btnExport.Name = "btnExport" Me.btnExport.Size = New System.Drawing.Size(212, 23) Me.btnExport.TabIndex = 2 Me.btnExport.Text = "Export from spreadsheet to DataGrid" Me.btnExport.UseVisualStyleBackColor = True AddHandler Me.btnExport.Click, New System.EventHandler(AddressOf Me.btnExport_Click) ' ' openFileDialog1 ' Me.openFileDialog1.FileName = "openFileDialog1" Me.openFileDialog1.Filter = "Excel files (*.xls;*.xlsx)|*.xls;*.xlsx|All files|*.*" ' ' Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6F, 13F) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(462, 390) Me.Controls.Add(Me.btnExport) Me.Controls.Add(Me.btnImport) Me.Controls.Add(Me.dataGrid1) Me.Name = "Form1" Me.Text = "ImportFromWinFormsDataGrid" DirectCast(Me.dataGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region Private dataGrid1 As System.Windows.Forms.DataGrid Private btnImport As System.Windows.Forms.Button Private btnExport As System.Windows.Forms.Button Private openFileDialog1 As System.Windows.Forms.OpenFileDialog Private dataGridTableStyle1 As System.Windows.Forms.DataGridTableStyle Private dataGridTextBoxColumn1 As System.Windows.Forms.DataGridTextBoxColumn End Class

Try ByteScout Spreadsheet SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

Form1.vb
      
Imports System.Data Imports System.Diagnostics Imports System.IO Imports System.Windows.Forms Imports Bytescout.Spreadsheet Public Partial Class Form1 Inherits Form Public Sub New() InitializeComponent() dataGrid1.DataSource = GetDemoDataTable() End Sub Private Sub btnImport_Click(sender As Object, e As EventArgs) Cursor = Cursors.WaitCursor Try Const fileName As String = "CSharpImportFromDataTable.xls" ' retrieve DataTable from DataGrid Dim dataTable As DataTable = DirectCast(dataGrid1.DataSource, DataTable) ' Create spreadsheet Dim spreadsheet As New Spreadsheet() ' Import data from DataTable into spreadheet spreadsheet.ImportFromDataTable(dataTable) ' Insert row with column captions Dim worksheet As Worksheet = spreadsheet.Worksheets(0) worksheet.Rows.Insert(0) For colIndex As Integer = 0 To dataTable.Columns.Count - 1 worksheet.Cell(0, colIndex).Value = dataTable.Columns(colIndex).Caption Next ' Save the spreadsheet If File.Exists(fileName) Then File.Delete(fileName) End If spreadsheet.SaveAs(fileName) ' Close spreadsheet spreadsheet.Close() ' Open the spreadsheet Process.Start(fileName) Finally Cursor = Cursors.[Default] End Try End Sub Private Sub btnExport_Click(sender As Object, e As EventArgs) If openFileDialog1.ShowDialog() = DialogResult.OK Then Cursor = Cursors.WaitCursor Try ' Create spreadsheet Dim spreadsheet As New Spreadsheet() ' Load spreadsheet from file spreadsheet.LoadFromFile(openFileDialog1.FileName) ' Export to DataGrid Dim dataTable As DataTable = spreadsheet.ExportToDataTable() dataGrid1.DataSource = dataTable Finally Cursor = Cursors.[Default] End Try End If End Sub ''' <summary> ''' Fills a data table of the periodic table of elements. ''' </summary> Private Function GetDemoDataTable() As DataTable Dim periodicTable As New DataTable("PeriodicTable") periodicTable.Columns.Add("Name", GetType(String)) periodicTable.Columns.Add("Symbol", GetType(String)) periodicTable.Columns.Add("AtomicNumber", GetType(Integer)) Dim dr As DataRow = periodicTable.Rows.Add() dr(0) = "Hydrogen" dr(1) = "H" dr(2) = "1" dr = periodicTable.Rows.Add() dr(0) = "Helium" dr(1) = "He" dr(2) = "2" dr = periodicTable.Rows.Add() dr(0) = "Lithium" dr(1) = "Li" dr(2) = "3" dr = periodicTable.Rows.Add() dr(0) = "Beryllium" dr(1) = "Be" dr(2) = "4" dr = periodicTable.Rows.Add() dr(0) = "Boron" dr(1) = "B" dr(2) = "5" dr = periodicTable.Rows.Add() dr(0) = "Carbon" dr(1) = "C" dr(2) = "6" Return periodicTable End Function End Class

Try ByteScout Spreadsheet SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

Program.vb
      
Imports System.Windows.Forms Class Program <STAThread> _ Friend Shared Sub Main(args As String()) Application.EnableVisualStyles() Application.SetCompatibleTextRenderingDefault(False) Application.Run(New Form1()) End Sub End Class

Try ByteScout Spreadsheet SDK today: 60 Day Free Trial (on-premise version) or sign up for Web API (on demand version)

VIDEO

ON-PREMISE VERSION

Get 60 Day Free Trial or Visit ByteScout Spreadsheet SDK page

Explore ByteScout Spreadsheet SDK documentation

WEB API

Sign Up for free Web API key

Explore Web API Documentation

Tutorials:

prev
next