Accessing Cells in an Excel Range

[krinpit]

I'm trying to do the following

 

Dim xlRange As Excel.Range
Dim xlCell As Object

xlRange = xlbook.Sheets(sSheetname).Range(sRange)

For Each xlCell In xlRange.Cells
 'Do Something
Next xlCell

 

but I get a System.Runtime.InteropServices.COMException saying "Member not found" on Line For Each xlCell In xlRange.Cells

 

Any Ideas?

[dynamic_sysop]

try the UsedRange method , here's a quick example ...

       Dim exl As New ApplicationClass()
       Dim book As WorkbookClass = exl.Workbooks.Open("C:\Book1.XLS")
       Dim sh As Worksheet = book.Worksheets("Sheet1")
       Dim rng As Range = sh.UsedRange()
       Dim x As Integer, i As Integer
       For x = 1 To rng.Rows.Count
           For i = 1 To rng.Cells.Count
               MessageBox.Show(rng.Cells.Item(x, i).GetType.InvokeMember("Value", Reflection.BindingFlags.GetProperty, Nothing, rng.Cells.Item(x, i), Nothing))
           Next
       Next

       exl.Quit()

[krinpit]

dynamic_sysop:

Thanks for the work around. Keep up the good work