For Each Loop

[ripon]

Hi Anyone:

Why this is wrong and what is the alternate way to do it.

xrange=CType(xlSheet.Range("A10:A15,B10:B15"), Excel.Range)

For Each c In xrange

If(c.Text ="0") Then
c.Text="-"
End If
Next

---Thanks in advance

 

[jmcilhinney]

Presumably you are getting some sort of error message. What does that say? That should be your first clue, and ours. You haven't declared the type of 'c'. What is it and does it have a Text property? Can an Excel.Range be enumerated in that fashion?

 

[ripon]

Thanks a lot. All cells in this range have numbers. But as they are in Excel, I thought I can get them as String. C is anything as we do in VBA in FOREACH loop. I dont know how can I change all the cell values in this range to a string "-" if the cell value is 0.

 

[WellsCarrie]

Please go here...
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/odc_vsto2003_ta/html/excelobj.asp

There is a whole section in the library with code examples on working with ranges in Excel. After you have tried some of these please repost with more code (and the error message you recieve, please) so that we may help.

 

[ripon]

Hi Wells: Thanks a lot. I did it a diff way. Thanks for your input.