Cell tha that are empty
Posted on 2011-09-09
What I would like to do is if a cell in excel is empty I would like to code to skip and move to the next one.. here is my code so far:
iRow = 2
Do While oSheet.Cells(iRow, 1).Value <> ""
colA = oSheet.Cells(iRow, 1).Value
colB = oSheet.Cells(iRow, 2).Value
colC = oSheet.Cells(iRow, 3).Value
But when I add this to it Do While Not IsEmpty (oSheet.Cells(iRow, 1).Value) <> "" ... It stops working. I want it to read the cell and if it is empty just skip it and move on to the next one.
I am reading the rows like this: and the output is in XML format
If UCase(Left(colA,2))= "XA" Then
oOut.WriteLine(" <EIACODXA>" & colB & "</EIACODXA>")