现在这样写,但循环不下去了
For k = 0 To dgv.RowCount - 2
For j = 0 To dgv.ColumnCount - 1
If dgv(j, k).Value.GetType() Is GetType(String) Then
excel.Cells(k + 2, j + 1) = "" + dgv(k, j).Value.ToString()
Else
excel.Cells(k + 2, j + 1) = dgv(j, k).Value.ToString()
End If
Next j
Next k