Comments by Member 13727051 (Top 3 by date)

thank you Bryian Tan ! It worked perfectly fine in my Sytem. only a little bit change I has was :


If selectedRowCount > 0 Then

For j = 0 To DataGridView1.ColumnCount - 1


For k As Integer = 1 To DataGridView1.Columns.Count
xlWorkSheet.Cells(1, k) = DataGridView1.Columns(k - 1).HeaderText
xlWorkSheet.Cells.RowHeight = 20
xlWorkSheet.Cells.ColumnWidth = 20


For i = 0 To selectedRowCount - 1

xlWorkSheet.Cells(i + 2, j + 1) = DataGridView1(j, DataGridView1.SelectedRows(i).Index).Value.ToString()
Next i

For i = 0 To DataGridView1.RowCount - 1


Select Case DataGridView1.Rows(i).Height = 20

End Select
Next
Next
Next