Free Trial
Web API version
Licensing
Request A Quote
HAVE QUESTIONS OR NEED HELP? SUBMIT THE SUPPORT REQUEST FORM or write email to SUPPORT@BYTESCOUT.COM
Import From 2D Array | VB.NET
Module1.vb:
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