While FoglioExcel.Cells(I, 1).value.tostring <> "" NumRigheFoglio = NumRigheFoglio + 1 I = I + 1 End While
While Not FoglioExcel.Cells(I, 1).Value Is Nothing
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)