将vb.net列表导出为ex​​cel

我在vb.net有一个列表，我需要知道如何将这个列表导出为ex​​cel，它只需要显示只有11列，行数在每个产品im改变，但它不工作。 这是我的代码

Dim objApp As Excel.Application Dim objBook As Excel.Workbook Dim objBooks As Excel.Workbooks Dim objSheets As Excel.Sheets Dim objSheet As Excel.Worksheet Dim Rng As Excel.Range Dim StartRow, StartCol objApp = New Excel.Application() objBooks = objApp.Workbooks objBook = objBooks.Add objSheets = objBook.Worksheets objSheet = objSheets(1) listaReporte = ProcesarKardex() 'this is my list selectedValues = listaReporte.OrderBy(Function(x)x.fechaOperacion).ToList()) StartRow = 1 StartCol = 1 'write array as a row With objSheet Rng = .Range(.Cells(StartRow, StartCol), .Cells(UBound(selectedValues.ToArray, 1) - LBound(selectedValues.ToArray, 1) + StartRow, UBound(selectedValues.ToArray, 2) - LBound(selectedValues.ToArray, 2) + StartCol)) End With Rng.Value = selectedValues ' Row 'Write Array as a Column StartRow = 3 StartCol = 1 With objSheet Rng = .Range(.Cells(StartRow, StartCol), .Cells(UBound(selectedValues.ToArray, 1) - LBound(selectedValues.ToArray, 1) + StartRow, UBound(selectedValues.ToArray, 2) - LBound(selectedValues.ToArray, 2) + StartCol)) End With Rng.Value = selectedValues.ToArray ' Column 

如果你能帮助我，这将是伟大的，在此先感谢！