Search in Excel

[Marc Vanzegbroeck]

Hi,

How can I search a string in an excel-file.
I know how to openen it , write in it, but not how to search in it
I the string is found, I want to know the column and row.

[Rick Lipkin]

Marc

Consider this code :

Rick Lipkin

Code: Select all  Expand view

Try
   oEXCEL := TOleAuto():New( "Excel.Application" )
Catch
   Saying := "Error in Opening Excel object"+chr(10)
   Saying += "Make sure you have MS Excel loaded on your Computer"+chr(10)
   MsgInfo( Saying )
      Return(.f.)
End Try

Try
   oExcel:Workbooks:Open( cPATH )  // path and excel file c:\files\yourfile.xls
Catch
   Saying := "Error in Opening Excel Workbook"
   MsgInfo( Saying )
      Return(.f.)
End Try

oBook := oExcel:Get( "ActiveSheet" )
nROWS := oBook:UsedRange:Rows:Count()
nCOLS := oBook:UsedRange:Columns:Count()

FOR nStartRow := nRow to nROWS

        For nCOL := 1 to nCOLS

            xVALUE := oBook:Cells( nStartRow, nCOL):Value

            // test xValue for your string
            // nStartRow and nCOl is the current cell

       Next

Next

oExcel:Quit()

 

[nageswaragunupudi]

There is
oRange:Find( target, ......... )
method available
Please check for this method in VBA online help.
(Open excel and click help )

[Marc Vanzegbroeck]

Marc

Consider this code :

Rick Lipkin

 [/code]

Rick,

Thanks for the reply.
Thats how I solved it now,but was looking for a method directly in excel.

[Marc Vanzegbroeck]

There is
oRange:Find( target, ......... )
method available
Please check for this method in VBA online help.
(Open excel and click help )

Thanks Roa,

That's where I was looking for.