CopyPaste Rows | VB.NETBytescout Spreadsheet SDK

CopyPaste Rows | VB.NET

Program.vb:

VB
Imports System.Collections.Generic
Imports System.Diagnostics
Imports System.IO
Imports System.Text
Imports Bytescout.Spreadsheet

Class Program
    Friend Shared Sub Main(args As String())
        ' Open spreadsheet from file
        Dim document As New Spreadsheet()
        document.LoadFromFile("example.xls")
        ' document.LoadFromFile(@"d:\2\1\Bytescout\Spreadsheet SDK\TestCase\Formats.xls");

        ' Get first worksheet
        Dim worksheet As Worksheet = document.Workbook.Worksheets(0)

        ' Copy first eight rows to the 10th row
        worksheet.Rows.CopyAndPaste(0, 7, 9)

        ' Delete output file if exists
        If File.Exists("changed.xls") Then
            File.Delete("changed.xls")
        End If

        ' Save document
        document.SaveAs("changed.xls")

        ' Close spreadsheet
        document.Close()

        ' Open generated XLS document in default program
        Process.Start("changed.xls")
    End Sub
End Class