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
Override Culture and Date Format Settings | VB.NET
Module1.vb:
VB
Imports Bytescout.Spreadsheet Imports System.Globalization Imports System.IO Imports System.Threading Module Module1 Sub Main() ' Create new Spreadsheet Dim document As New Spreadsheet() document.LoadFromFile("sampleDates.xlsx") ' Get worksheet Dim worksheet As Worksheet = document.Workbook.Worksheets.ByName("Sheet1") ' List of cell-addresses Dim valuesToRead As New List(Of KeyValuePair(Of Int32, Int32)) valuesToRead.Add(New KeyValuePair(Of Integer, Integer)(1, 0)) valuesToRead.Add(New KeyValuePair(Of Integer, Integer)(2, 0)) valuesToRead.Add(New KeyValuePair(Of Integer, Integer)(3, 0)) ' Set culture as en-us Thread.CurrentThread.CurrentCulture = CultureInfo.GetCultureInfo("en-US") ' Iterate through list of cell addresses For Each itmAddress As KeyValuePair(Of Int32, Int32) In valuesToRead Dim itmValue = worksheet.Cell(itmAddress.Key, itmAddress.Value).ValueAsDateTime ' Read cell value Console.WriteLine($"Cell ({itmAddress.Key},{itmAddress.Value}) value: {itmValue.ToShortDateString()}") Next ' Write message Console.Write("Press any key to continue...") ' Wait user input Console.ReadKey() End Sub End Module