Link Search Menu Expand Document

Import From 2D Array - VB.NET

Spreadsheet SDK sample in VB.NET demonstrating ‘Import From 2D Array’

Module1.vb
Imports System.IO
Imports System.Diagnostics
Imports Bytescout.Spreadsheet

Module Module1

    Sub Main()

        Const fileName As String = "VBNetImportFrom2DArray.xls"

        'Create a new spreadsheet
        Dim spreadsheet As Bytescout.Spreadsheet.Spreadsheet = New Bytescout.Spreadsheet.Spreadsheet
        
        'Get the data from the 2D array that we want to import
        Dim stockPrices(,) As String = Get2DArray()

        'Import data into spreadheet
        spreadsheet.ImportFrom2DArray(stockPrices)

        '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)

    End Sub

    ''' <summary>
    ''' Creates a 2D array of stock prices
    ''' </summary>
    ''' <returns>A 2D array of stock prices</returns>
    Function Get2DArray() As String(,)

        Dim stockPrices(10, 2) As String

        stockPrices(0, 0) = "AAPL"
        stockPrices(0, 1) = "24,89"

        stockPrices(1, 0) = "AMZN"
        stockPrices(1, 1) = "27,95"

        stockPrices(2, 0) = "DELL"
        stockPrices(2, 1) = "12,68"

        stockPrices(3, 0) = "EBAY"
        stockPrices(3, 1) = "57,27"

        stockPrices(4, 0) = "GOOG"
        stockPrices(4, 1) = "28,98"

        stockPrices(5, 0) = "IBM "
        stockPrices(5, 1) = "24,00"
        stockPrices(6, 0) = "INTC"
        stockPrices(6, 1) = "12,24"
        stockPrices(7, 0) = "MSFT"
        stockPrices(7, 1) = "37,85"
        stockPrices(8, 0) = "SNE "
        stockPrices(8, 1) = "39,91"
        stockPrices(9, 0) = "YHOO"
        stockPrices(9, 1) = "78,72"

        Return stockPrices
    End Function


End Module

Resources.Designer.vb
��'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:4.0.30319.225

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------



Option Strict On

Option Explicit On



Imports System



Namespace My.Resources

    

    'This class was auto-generated by the StronglyTypedResourceBuilder

    'class via a tool like ResGen or Visual Studio.

    'To add or remove a member, edit your .ResX file then rerun ResGen

    'with the /str option, or rebuild your VS project.

    '''<summary>

    '''  A strongly-typed resource class, for looking up localized strings, etc.

    '''</summary>

    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _

     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _

     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _

    Friend Module Resources

        

        Private resourceMan As Global.System.Resources.ResourceManager

        

        Private resourceCulture As Global.System.Globalization.CultureInfo

        

        '''<summary>

        '''  Returns the cached ResourceManager instance used by this class.

        '''</summary>

        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager

            Get

                If Object.ReferenceEquals(resourceMan, Nothing) Then

                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Bytescout.Spreadsheet.Demo.VBNet.ImportFrom2DArray.Resources", GetType(Resources).Assembly)

                    resourceMan = temp

                End If

                Return resourceMan

            End Get

        End Property

        

        '''<summary>

        '''  Overrides the current thread's CurrentUICulture property for all

        '''  resource lookups using this strongly typed resource class.

        '''</summary>

        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

        Friend Property Culture() As Global.System.Globalization.CultureInfo

            Get

                Return resourceCulture

            End Get

            Set

                resourceCulture = value

            End Set

        End Property

    End Module

End Namespace


Settings.Designer.vb
��'------------------------------------------------------------------------------

' <auto-generated>

'     This code was generated by a tool.

'     Runtime Version:4.0.30319.225

'

'     Changes to this file may cause incorrect behavior and will be lost if

'     the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------



Option Strict On

Option Explicit On





Namespace My

    

    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _

     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"),  _

     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _

    Partial Friend NotInheritable Class MySettings

        Inherits Global.System.Configuration.ApplicationSettingsBase

        

        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)

        

#Region "My.Settings Auto-Save Functionality"

#If _MyType = "WindowsForms" Then

    Private Shared addedHandler As Boolean



    Private Shared addedHandlerLockObject As New Object



    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _

    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)

        If My.Application.SaveMySettingsOnExit Then

            My.Settings.Save()

        End If

    End Sub

#End If

#End Region

        

        Public Shared ReadOnly Property [Default]() As MySettings

            Get

                

#If _MyType = "WindowsForms" Then

               If Not addedHandler Then

                    SyncLock addedHandlerLockObject

                        If Not addedHandler Then

                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings

                            addedHandler = True

                        End If

                    End SyncLock

                End If

#End If

                Return defaultInstance

            End Get

        End Property

    End Class

End Namespace



Namespace My

    

    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _

     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _

     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _

    Friend Module MySettingsProperty

        

        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _

        Friend ReadOnly Property Settings() As Global.Bytescout.Spreadsheet.Demo.VBNet.ImportFrom2DArray.My.MySettings

            Get

                Return Global.Bytescout.Spreadsheet.Demo.VBNet.ImportFrom2DArray.My.MySettings.Default

            End Get

        End Property

    End Module

End Namespace


Download Source Code (.zip)

Return to the previous page Explore Spreadsheet SDK


Copyright © 2016 - 2021 ByteScout