Excel Test for Empty Cell

[canix1]

Hi there!

I´m trying to put data into a Excel Workbook. I whant to know how to start filling the rows where I ended, so I update the Workbook with the new information.
How do i do this test for empty cells wiht VBScript of course.

Thanx, Canix

 

[canix1]

I found it my self. Heres an example:

Dim intIndex, iRow
iRow=0
Do While objXL.ActiveCell.Offset(iRow,0).Value<>&quot;&quot;
iRow = iRow+1
Loop
intIndex = iRow

Sub Show(strDate, strServer, strVolName, strAvDisk, strTotUsable, strPercentFree)
objXL.Cells(intIndex, 1).Value = strDate
objXL.Cells(intIndex, 2).Value = strServer
objXL.Cells(intIndex, 3).Value = strVolName
objXL.Cells(intIndex, 4).Value = strAvDisk
objXL.Cells(intIndex, 5).Value = strTotUsable
objXL.Cells(intIndex, 6).Value = strPercentFree
intIndex = intIndex + 1
objXL.Cells(intIndex, 1).Select
End Sub

Regards Canix1