manejos de documentos xls y dataset

 

primero se crea un exelfile y un dataset

Dim ef As New ExcelFile
Dim dataSet As New DataSet
' se carga el xls
ef.LoadXls("FileName.xls")
’a ahora se exportan las hojas del xls
For Each ws In ef.Worksheets
Dim dataTable As DataTable
' dependiendo de el tipo de datos tienes que cambiar el tipo de datos
    dataTable.Columns.Add("FirstName", GetType(String))
    dataTable.Columns.Add("LastName", GetType(String))
' enviar los datos a un objeto datatable
    ws.ExtractToDataTable(dataTable, 10, ExtractDataOptions.StopAtFirstEmptyRow, ws.Rows(0), ws.Columns(0))
    dataTable.TableName = ws.Name
' Add DataTable to DataSet.
    [dataSet].Tables.Add(dataTable)
Next
' creando un nuevo xls
Dim ef2 As New ExcelFile
' exportar todas las tablas del dataset a un xls
For Each table In [dataSet].Tables
' Add new worksheet to the file.
Dim ws As ExcelWorksheet = ef2.Worksheets.Add(table.TableName)
' Change the value of the first cell in the DataTable.
    table.Rows(0)(0) = "This is new file!"

‘insertando los datos del datatable a la hoja partiendo de la celda a1

    ws.InsertDataTable(table, "A1", True)
Next
salvando a xls
ef2.SaveXls("DataSet.xls")