XlsxPreserveSamplesVB

Imports System
 
Imports GemBox.Spreadsheet
 
Module XlsxPreserveSamplesVB
 
    Sub Main(ByVal args As String())
        ' TODO: If using GemBox.Spreadsheet Professional, put your serial key below.
        ' Otherwise, if you are using GemBox.Spreadsheet Free, comment out the 
        ' following line (Free version doesn't have SetLicense method). 
        'SpreadsheetInfo.SetLicense("YOUR-SERIAL-KEY-HERE")
 
        Dim excelFile As New ExcelFile
        Dim inputFileName As String = "..\..\PreserveSamplesIN.xlsm"
        Dim outputFileName As String = "..\..\PreserveSamplesOUT.xlsm"
 
        excelFile.LoadXlsx(inputFileName, XlsxOptions.PreserveKeepOpen)
 
        ' Preservation is fully functional only in xlsx.
        excelFile.SaveXlsx(outputFileName)
 
        TryToDisplayGeneratedFile(outputFileName)
    End Sub
 
    Sub TryToDisplayGeneratedFile(ByVal fileName As String)
        Try
            Process.Start(fileName)
        Catch exception1 As Exception
            Console.WriteLine((fileName & " created in application folder."))
        End Try
    End Sub
 
End Module