I am writing a code in VB.NET and writing to it through a dataset.
But for every 25 seconds it writes only 100 rows to the excel.
Can any1 please comment on this.
Here is a piece of the code
For Each drXML As DataRowView In ViewToSort
rowCnt += 1
totCnt += 1
If rowCnt = 1 Then
objExcelWS = objExcelWB.Worksheets(sheetCnt)
For colCnt = 1 To xlsDS.Tables(0).Columns.Count
objExcelWS.Cells(rowCnt, colCnt) = xlsDS.Tables(0).Columns(colCnt - 1).ColumnName
Next
End If
For colCnt = 1 To xlsDS.Tables(0).Columns.Count
'objExcelWS.Cells(rowCnt + 1, colCnt) = "'" & Format(drXML(colCnt - 1).ToString())
objExcelWS.Cells(rowCnt + 1, colCnt) = drXML(colCnt - 1).ToString()
Next
'if row count reaches 65K and not end of dataset, close this worksheet
If rowCnt = 65000 And totCnt <> xlsDS.Tables(0).Rows.Count Then
rowCnt = 0
sheetCnt += 1
End If
Next
Bookmarks