Important Update
These sample source codes on this page below are demonstrating how to view spreadsheet in VB.NET. ByteScout Spreadsheet SDK is the library (SDK) that is capable of writing, reading, modifying and calculating Excel and CSV spreadsheets. Most popular formulas can be calculated and reculculated with Excel installed. You may import or export data to and from CSV, XML, JSON as well as to and from databases, arrays. It can view spreadsheet in VB.NET.
You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout Spreadsheet SDK for view spreadsheet below and use it in your application. Follow the instructions from the scratch to work and copy the VB.NET code. Code testing will allow the function to be tested and work properly with your data.
Free trial version of ByteScout Spreadsheet SDK is available for download from our website. Get it to try other source code samples for VB.NET.
On-demand (REST Web API) version:
Web API (on-demand version)
On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)
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()
Dim resources As New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.lblStub = New System.Windows.Forms.Label()
Me.menuStrip1 = New System.Windows.Forms.MenuStrip()
Me.filesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiOpen = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiPrint = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiPrintPreview = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiExit = New System.Windows.Forms.ToolStripMenuItem()
Me.helpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiVisitWebsite = New System.Windows.Forms.ToolStripMenuItem()
Me.tsmiAbout = New System.Windows.Forms.ToolStripMenuItem()
Me.toolStrip = New System.Windows.Forms.ToolStrip()
Me.tsbOpen = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbPromo = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbVisitWebsite = New System.Windows.Forms.ToolStripButton()
Me.openFileDialog = New System.Windows.Forms.OpenFileDialog()
Me.menuStrip1.SuspendLayout()
Me.toolStrip.SuspendLayout()
Me.SuspendLayout()
'
' lblStub
'
Me.lblStub.BackColor = System.Drawing.SystemColors.Window
Me.lblStub.Dock = System.Windows.Forms.DockStyle.Fill
Me.lblStub.Font = New System.Drawing.Font("Arial", 17.25F, System.Drawing.FontStyle.Italic)
Me.lblStub.ForeColor = System.Drawing.SystemColors.AppWorkspace
Me.lblStub.Location = New System.Drawing.Point(0, 49)
Me.lblStub.Name = "lblStub"
Me.lblStub.Size = New System.Drawing.Size(837, 508)
Me.lblStub.TabIndex = 5
Me.lblStub.Text = "Click here to open spreadsheet files: " & vbCr & vbLf & vbCr & vbLf & "Excel 2003/2007 (*.xls, *.xlsx) " & vbCr & vbLf & "Open " & "Office Calc (*.ods)" & vbCr & vbLf & "CSV Comma Separated Values (*.csv)" & vbCr & vbLf & "TXT tab-delimited value" & "s (*.txt)"
Me.lblStub.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
AddHandler Me.lblStub.Click, New System.EventHandler(AddressOf Me.tsmiOpen_Click)
'
' menuStrip1
'
Me.menuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.filesToolStripMenuItem, Me.helpToolStripMenuItem})
Me.menuStrip1.Location = New System.Drawing.Point(0, 0)
Me.menuStrip1.Name = "menuStrip1"
Me.menuStrip1.Padding = New System.Windows.Forms.Padding(4, 2, 0, 2)
Me.menuStrip1.Size = New System.Drawing.Size(837, 24)
Me.menuStrip1.TabIndex = 6
Me.menuStrip1.Text = "menuStrip1"
'
' filesToolStripMenuItem
'
Me.filesToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiOpen, Me.tsmiPrint, Me.tsmiPrintPreview, Me.tsmiExit})
Me.filesToolStripMenuItem.Name = "filesToolStripMenuItem"
Me.filesToolStripMenuItem.Size = New System.Drawing.Size(42, 20)
Me.filesToolStripMenuItem.Text = "Files"
'
' tsmiOpen
'
Me.tsmiOpen.Name = "tsmiOpen"
Me.tsmiOpen.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys)
Me.tsmiOpen.Size = New System.Drawing.Size(166, 22)
Me.tsmiOpen.Text = "Open"
AddHandler Me.tsmiOpen.Click, New System.EventHandler(AddressOf Me.tsmiOpen_Click)
'
' tsmiPrint
'
Me.tsmiPrint.Enabled = False
Me.tsmiPrint.Name = "tsmiPrint"
Me.tsmiPrint.Size = New System.Drawing.Size(166, 22)
Me.tsmiPrint.Text = "Print..."
Me.tsmiPrint.Visible = False
'
' tsmiPrintPreview
'
Me.tsmiPrintPreview.Enabled = False
Me.tsmiPrintPreview.Name = "tsmiPrintPreview"
Me.tsmiPrintPreview.Size = New System.Drawing.Size(166, 22)
Me.tsmiPrintPreview.Text = "Print Preview..."
Me.tsmiPrintPreview.Visible = False
'
' tsmiExit
'
Me.tsmiExit.Name = "tsmiExit"
Me.tsmiExit.Size = New System.Drawing.Size(166, 22)
Me.tsmiExit.Text = "Exit"
AddHandler Me.tsmiExit.Click, New System.EventHandler(AddressOf Me.tsmiExit_Click)
'
' helpToolStripMenuItem
'
Me.helpToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsmiVisitWebsite, Me.tsmiAbout})
Me.helpToolStripMenuItem.Name = "helpToolStripMenuItem"
Me.helpToolStripMenuItem.Size = New System.Drawing.Size(44, 20)
Me.helpToolStripMenuItem.Text = "Help"
'
' tsmiVisitWebsite
'
Me.tsmiVisitWebsite.Name = "tsmiVisitWebsite"
Me.tsmiVisitWebsite.Size = New System.Drawing.Size(152, 22)
Me.tsmiVisitWebsite.Text = "Visit Website"
AddHandler Me.tsmiVisitWebsite.Click, New System.EventHandler(AddressOf Me.tsmiVisitWebsite_Click)
'
' tsmiAbout
'
Me.tsmiAbout.Name = "tsmiAbout"
Me.tsmiAbout.Size = New System.Drawing.Size(152, 22)
Me.tsmiAbout.Text = "About"
AddHandler Me.tsmiAbout.Click, New System.EventHandler(AddressOf Me.tsmiAbout_Click)
'
' toolStrip
'
Me.toolStrip.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbOpen, Me.toolStripSeparator1, Me.tsbPromo, Me.toolStripSeparator2, Me.tsbVisitWebsite})
Me.toolStrip.Location = New System.Drawing.Point(0, 24)
Me.toolStrip.Name = "toolStrip"
Me.toolStrip.Size = New System.Drawing.Size(837, 25)
Me.toolStrip.TabIndex = 7
Me.toolStrip.Text = "toolStrip1"
'
' tsbOpen
'
Me.tsbOpen.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold)
Me.tsbOpen.ImageTransparentColor = System.Drawing.Color.Black
Me.tsbOpen.Name = "tsbOpen"
Me.tsbOpen.Size = New System.Drawing.Size(71, 22)
Me.tsbOpen.Text = "Open File..."
AddHandler Me.tsbOpen.Click, New System.EventHandler(AddressOf Me.tsmiOpen_Click)
'
' toolStripSeparator1
'
Me.toolStripSeparator1.Name = "toolStripSeparator1"
Me.toolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
' tsbPromo
'
Me.tsbPromo.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.tsbPromo.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold)
Me.tsbPromo.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbPromo.Name = "tsbPromo"
Me.tsbPromo.Size = New System.Drawing.Size(320, 22)
Me.tsbPromo.Text = "Developers: Check Bytescout Spreadsheet SDK for .NET"
AddHandler Me.tsbPromo.Click, New System.EventHandler(AddressOf Me.tsbPromo_Click)
'
' toolStripSeparator2
'
Me.toolStripSeparator2.Name = "toolStripSeparator2"
Me.toolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
' tsbVisitWebsite
'
Me.tsbVisitWebsite.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.tsbVisitWebsite.Font = New System.Drawing.Font("Tahoma", 8.25F, System.Drawing.FontStyle.Bold)
Me.tsbVisitWebsite.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbVisitWebsite.Name = "tsbVisitWebsite"
Me.tsbVisitWebsite.Size = New System.Drawing.Size(84, 22)
Me.tsbVisitWebsite.Text = "Visit Website"
AddHandler Me.tsbVisitWebsite.Click, New System.EventHandler(AddressOf Me.tsmiVisitWebsite_Click)
'
' openFileDialog
'
Me.openFileDialog.Filter = resources.GetString("openFileDialog.Filter")
Me.openFileDialog.SupportMultiDottedExtensions = True
'
' Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6F, 13F)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(837, 557)
Me.Controls.Add(Me.lblStub)
Me.Controls.Add(Me.toolStrip)
Me.Controls.Add(Me.menuStrip1)
Me.Name = "Form1"
Me.Text = "Spreadsheet Viewer"
Me.menuStrip1.ResumeLayout(False)
Me.menuStrip1.PerformLayout()
Me.toolStrip.ResumeLayout(False)
Me.toolStrip.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Private lblStub As System.Windows.Forms.Label
Private menuStrip1 As System.Windows.Forms.MenuStrip
Private filesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Private tsmiOpen As System.Windows.Forms.ToolStripMenuItem
Private tsmiPrint As System.Windows.Forms.ToolStripMenuItem
Private tsmiPrintPreview As System.Windows.Forms.ToolStripMenuItem
Private tsmiExit As System.Windows.Forms.ToolStripMenuItem
Private helpToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
Private tsmiVisitWebsite As System.Windows.Forms.ToolStripMenuItem
Private tsmiAbout As System.Windows.Forms.ToolStripMenuItem
Private toolStrip As System.Windows.Forms.ToolStrip
Private tsbOpen As System.Windows.Forms.ToolStripButton
Private toolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Private tsbPromo As System.Windows.Forms.ToolStripButton
Private toolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
Private tsbVisitWebsite As System.Windows.Forms.ToolStripButton
Private openFileDialog As System.Windows.Forms.OpenFileDialog
End Class
60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page
Explore ByteScout Spreadsheet SDK Documentation
Explore Samples
Sign Up for ByteScout Spreadsheet SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
Imports System.IO
Imports System.Text
Imports System.Windows.Forms
Imports Bytescout.Spreadsheet
Public Partial Class Form1
Inherits Form
Private _spreadsheetControl As SpreadsheetControl = Nothing
Private _fileName As String = Nothing
Public Sub New(args As String())
If args.Length > 0 AndAlso File.Exists(args(0)) Then
_fileName = args(0)
End If
If _fileName IsNot Nothing Then
OpenFile(_fileName)
End If
InitializeComponent()
End Sub
Private Sub OpenFile(fileName As String)
Text = "Spreadsheet Viewer - " & fileName
Dim xls As New Spreadsheet()
xls.RegistrationName = "demo"
xls.RegistrationKey = "demo"
Try
xls.LoadFromFile(fileName)
Catch generatedExceptionName As SpreadsheetProtectionPasswordRequired
Dim passwordDialog As New PasswordDialog()
If passwordDialog.ShowDialog(Me) = DialogResult.OK Then
xls.LoadFromFile(fileName, CacheType.Memory, ",", Encoding.[Default], passwordDialog.Password)
Else
Return
End If
End Try
lblStub.Visible = False
If _spreadsheetControl Is Nothing Then
_spreadsheetControl = New SpreadsheetControl()
_spreadsheetControl.Dock = DockStyle.Fill
Controls.Add(_spreadsheetControl)
_spreadsheetControl.BringToFront()
_spreadsheetControl.Focus()
End If
Cursor = Cursors.WaitCursor
Try
_spreadsheetControl.Spreadsheet = xls
Catch e As Exception
MessageBox.Show(e.ToString())
Finally
Cursor = Cursors.[Default]
End Try
End Sub
Private Sub tsmiOpen_Click(sender As Object, e As EventArgs)
If openFileDialog.ShowDialog() = DialogResult.OK Then
OpenFile(openFileDialog.FileName)
End If
End Sub
Private Sub tsmiAbout_Click(sender As Object, e As EventArgs)
MessageBox.Show("Spreadsheet Viewer" & vbLf & vbLf & "www.bytescout.com" & vbLf & vbLf & "Copyright (c) Bytescout Software 2012", "About...")
End Sub
Private Sub tsmiExit_Click(sender As Object, e As EventArgs)
Close()
End Sub
Private Sub tsmiVisitWebsite_Click(sender As Object, e As EventArgs)
System.Diagnostics.Process.Start("https://www.bytescout.com")
End Sub
Private Sub tsbPromo_Click(sender As Object, e As EventArgs)
System.Diagnostics.Process.Start("https://bytescout.com/products/developer/spreadsheetsdk/bytescoutspreadsheetsdk.html")
End Sub
End Class
60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page
Explore ByteScout Spreadsheet SDK Documentation
Explore Samples
Sign Up for ByteScout Spreadsheet SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
Partial Class PasswordDialog
''' <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.textBoxPassword = New System.Windows.Forms.TextBox()
Me.label2 = New System.Windows.Forms.Label()
Me.checkBoxHide = New System.Windows.Forms.CheckBox()
Me.btnOk = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
' textBoxPassword
'
Me.textBoxPassword.Location = New System.Drawing.Point(79, 39)
Me.textBoxPassword.Name = "textBoxPassword"
Me.textBoxPassword.Size = New System.Drawing.Size(168, 22)
Me.textBoxPassword.TabIndex = 1
'
' label2
'
Me.label2.AutoSize = True
Me.label2.Location = New System.Drawing.Point(4, 42)
Me.label2.Name = "label2"
Me.label2.Size = New System.Drawing.Size(73, 17)
Me.label2.TabIndex = 2
Me.label2.Text = "Password:"
'
' checkBoxHide
'
Me.checkBoxHide.AutoSize = True
Me.checkBoxHide.Location = New System.Drawing.Point(7, 12)
Me.checkBoxHide.Name = "checkBoxHide"
Me.checkBoxHide.Size = New System.Drawing.Size(123, 21)
Me.checkBoxHide.TabIndex = 3
Me.checkBoxHide.Text = "Hide password"
Me.checkBoxHide.UseVisualStyleBackColor = True
AddHandler Me.checkBoxHide.CheckedChanged, New System.EventHandler(AddressOf Me.checkBoxHide_CheckedChanged)
'
' btnOk
'
Me.btnOk.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOk.Location = New System.Drawing.Point(91, 67)
Me.btnOk.Name = "btnOk"
Me.btnOk.Size = New System.Drawing.Size(75, 23)
Me.btnOk.TabIndex = 4
Me.btnOk.Text = "Ok"
Me.btnOk.UseVisualStyleBackColor = True
AddHandler Me.btnOk.Click, New System.EventHandler(AddressOf Me.btnOk_Click)
'
' btnCancel
'
Me.btnCancel.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.btnCancel.Location = New System.Drawing.Point(172, 67)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(75, 23)
Me.btnCancel.TabIndex = 5
Me.btnCancel.Text = "Cancel"
Me.btnCancel.UseVisualStyleBackColor = True
AddHandler Me.btnCancel.Click, New System.EventHandler(AddressOf Me.btnCancel_Click)
'
' PasswordDialog
'
Me.AcceptButton = Me.btnOk
Me.AutoScaleDimensions = New System.Drawing.SizeF(8F, 16F)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.btnCancel
Me.ClientSize = New System.Drawing.Size(255, 98)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOk)
Me.Controls.Add(Me.checkBoxHide)
Me.Controls.Add(Me.label2)
Me.Controls.Add(Me.textBoxPassword)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "PasswordDialog"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Please enter a password"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
Private textBoxPassword As System.Windows.Forms.TextBox
Private label2 As System.Windows.Forms.Label
Private checkBoxHide As System.Windows.Forms.CheckBox
Private btnOk As System.Windows.Forms.Button
Private btnCancel As System.Windows.Forms.Button
End Class
60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page
Explore ByteScout Spreadsheet SDK Documentation
Explore Samples
Sign Up for ByteScout Spreadsheet SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
Imports System.Windows.Forms
Public Partial Class PasswordDialog
Inherits Form
Public Sub New()
InitializeComponent()
End Sub
Public ReadOnly Property Password() As String
Get
Return textBoxPassword.Text
End Get
End Property
Private Sub btnOk_Click(sender As Object, e As EventArgs)
'DialogResult = DialogResult.OK;
'Close();
End Sub
Private Sub btnCancel_Click(sender As Object, e As EventArgs)
End Sub
Private Sub checkBoxHide_CheckedChanged(sender As Object, e As EventArgs)
If checkBoxHide.Checked Then
textBoxPassword.PasswordChar = "*"C
Else
textBoxPassword.PasswordChar = ControlChars.NullChar
End If
End Sub
End Class
60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page
Explore ByteScout Spreadsheet SDK Documentation
Explore Samples
Sign Up for ByteScout Spreadsheet SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
Imports System.Windows.Forms
NotInheritable Class Program
Private Sub New()
End Sub
''' <summary>
''' The main entry point for the application.
''' </summary>
<STAThread> _
Friend Shared Sub Main(args As String())
Application.EnableVisualStyles()
Application.SetCompatibleTextRenderingDefault(False)
Application.Run(New Form1(args))
End Sub
End Class
60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page
Explore ByteScout Spreadsheet SDK Documentation
Explore Samples
Sign Up for ByteScout Spreadsheet SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples
60 Day Free Trial or Visit ByteScout Spreadsheet SDK Home Page
Explore ByteScout Spreadsheet SDK Documentation
Explore Samples
Sign Up for ByteScout Spreadsheet SDK Online Training
Get Your API Key
Explore Web API Docs
Explore Web API Samples