ByteScout Data Extraction Suite – VB.NET – Export to winforms datagrid with spreadsheet sdk

Home
/
Articles
/
ByteScout Data Extraction Suite – VB.NET – Export to winforms datagrid with spreadsheet sdk

printable version:
ByteScout-Data-Extraction-Suite-VB-NET-Export-to-winforms-datagrid-with-spreadsheet-sdk.pdf

How to export to winforms datagrid with spreadsheet sdk in VB.NET with ByteScout Data Extraction Suite

Continuous learning is a crucial part of computer science and this tutorial shows how to export to winforms datagrid with spreadsheet sdk in VB.NET

An easy to understand guide on how to export to winforms datagrid with spreadsheet sdk in VB.NET with this source code sample. ByteScout Data Extraction Suite is the set that includes 3 SDK products for data extraction from PDF, scans, images and from spreadsheets: PDF Extractor SDK, Data Extraction SDK, Barcode Reader SDK. It can be applied to export to winforms datagrid with spreadsheet sdk using VB.NET.

This prolific sample source code in VB.NET for ByteScout Data Extraction Suite contains various functions and other necessary options you should do calling the API to export to winforms datagrid with spreadsheet sdk. Follow the instructions from scratch to work and copy the VB.NET code. Use of ByteScout Data Extraction Suite in VB.NET is also described in the documentation included along with the product.

The trial version of ByteScout Data Extraction Suite can be downloaded for free from our website. It also includes source code samples for VB.NET and other programming languages.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

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

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Data Extraction Suite Home Page

Explore ByteScout Data Extraction Suite Documentation

Explore Samples

Sign Up for ByteScout Data Extraction Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

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

ON-PREMISE OFFLINE SDK

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

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

ON-PREMISE OFFLINE SDK

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

printable version:
ByteScout-Data-Extraction-Suite-VB-NET-Export-to-winforms-datagrid-with-spreadsheet-sdk.pdf

ByteScout Data Extraction Suite – VB.NET – Export to winforms datagrid with spreadsheet sdk

How to export to winforms datagrid with spreadsheet sdk in VB.NET with ByteScout Data Extraction Suite

Continuous learning is a crucial part of computer science and this tutorial shows how to export to winforms datagrid with spreadsheet sdk in VB.NET

Form1.Designer.vb

ON-PREMISE OFFLINE SDK

ON-DEMAND REST WEB API

Form1.vb

ON-PREMISE OFFLINE SDK

ON-DEMAND REST WEB API

Program.vb

ON-PREMISE OFFLINE SDK

ON-DEMAND REST WEB API

VIDEO

ON-PREMISE OFFLINE SDK

ON-DEMAND REST WEB API

Tutorials: