Public Function LoadAndSaveFile(ByVal input As String) as DataSet
	Dim wb As var = New XLWorkbook(input)
	Dim ds As DataSet = New DataSet
	For Each sheet As var In wb.Worksheets
		Dim dt As DataTable = ds.Tables.Add(sheet.Name)
		For Each row As var In sheet.RowsUsed
			Dim i As Integer = 0
			Dim dr As DataRow = dt.NewRow
			For Each cell As var In row.CellsUsed
				If (i >= dt.Columns.Count) Then
					dt.Columns.Add(String.Format("Column{0}", i))
				End If
				dr(i) = cell.Value.ToString
				i = i + 1
			Next
			dt.Rows.Add(dr)
		Next
	Next
	return ds
End Sub