ByteScout Barcode Suite - VB.NET - Convert xml to xls with spreadsheet sdk - ByteScout

ByteScout Barcode Suite – VB.NET – Convert xml to xls with spreadsheet sdk

  • Home
  • /
  • Articles
  • /
  • ByteScout Barcode Suite – VB.NET – Convert xml to xls with spreadsheet sdk

How to convert xml to xls with spreadsheet sdk in VB.NET with ByteScout Barcode Suite

Learn to code in VB.NET to convert xml to xls with spreadsheet sdk with this step-by-step tutorial

Quickly learn how to convert xml to xls with spreadsheet sdk in VB.NET with this sample source code. Want to convert xml to xls with spreadsheet sdk in your VB.NET app? ByteScout Barcode Suite is designed for it. ByteScout Barcode Suite is the set that includes three different SDK products to generate barcodes, read barcodes and read and write spreadsheets: Barcode SDK, Barcode Reader SDK and Spreadsheet SDK.

The SDK samples given below describe how to quickly make your application do convert xml to xls with spreadsheet sdk in VB.NET with the help of ByteScout Barcode Suite. IF you want to implement the functionality, just copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Enjoy writing a code with ready-to-use sample codes in VB.NET.

If you want to try other source code samples then the free trial version of ByteScout Barcode Suite is available for download from our website. Just 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)

Module1.vb
      
Imports System.Drawing Imports System.Xml Imports Bytescout.Spreadsheet Imports Bytescout.Spreadsheet.Constants Module Module1 Sub Main() ' Load XML document Dim xmlDocument = New XmlDocument() xmlDocument.Load("sample.xml") ' Read columns information from XML data Dim columns = New List(Of String)() Dim columnNodeList = xmlDocument.SelectNodes("/Report/Columns/Column") For Each node As XmlNode In columnNodeList columns.Add(node.Attributes("Name").Value) Next ' Read row nodes from XML data Dim rowNodeList = xmlDocument.SelectNodes("/Report/ReportData") ' Create new spreadsheet Dim spreadsheet = New Spreadsheet() spreadsheet.RegistrationName = "demo" spreadsheet.RegistrationKey = "demo" ' Add worksheet Dim worksheet = spreadsheet.Worksheets.Add() ' Add column headers For c As Integer = 0 To columns.Count - 1 worksheet(0, c).Value = columns(c) worksheet(0, c).FillPattern = PatternStyle.Solid worksheet(0, c).FillPatternForeColor = Color.LightGray Next Dim rowIndex = 1 ' Add rows For Each rowNode As XmlNode In rowNodeList ' Get cell values from XML data For Each childNode As XmlNode In rowNode.ChildNodes ' Get cell info from XML data Dim columnIndex = columns.IndexOf(childNode.Name) Dim cellValue = childNode.InnerText Dim cell = worksheet(rowIndex, columnIndex) ' Set cell text Cell.Value = cellValue ' Set cell text alignment cell.AlignmentHorizontal = IIf(columnIndex = 0, AlignmentHorizontal.Left, AlignmentHorizontal.Right) Next ' Add the row to the table rowIndex = rowIndex + 1 Next ' Fit columns width to cell data For c As Integer = 0 To columns.Count - 1 worksheet.Columns(c).AutoFit() Next ' Save document to file spreadsheet.SaveAsXLS("result.xls") ' Cleanup spreadsheet.Dispose() ' Open document in Excel Process.Start("result.xls") End Sub End Module

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

VIDEO

ON-PREMISE OFFLINE SDK

60 Day Free Trial or Visit ByteScout Barcode Suite Home Page

Explore ByteScout Barcode Suite Documentation

Explore Samples

Sign Up for ByteScout Barcode Suite Online Training

ON-DEMAND REST WEB API

Get Your API Key

Explore Web API Docs

Explore Web API Samples

Tutorials:

prev
next