>Hello All,
>
>The following code gives me an error "Function name is missing )" on the line where I try to invoke the FindNext function. I suspect it is the VARIANT after: in the clause that needs to be tweaked somehow, but I haven't been able to determine how.
>
>Any suggestions welcome!
>
>
>oExcel.Range("F8").Select
>oExcel.Selection.End(xlDown).Select
>oExcel.SendKeys("{DOWN}")
>foundcell = oExcel.ActiveSheet.Cells.Find("=SUBTOTAL(9,E")
>DO WHILE .t.
> oExcel.Range(foundcell.address).select
>* oExcel.SendKeys("{RIGHT}{RIGHT}")
> oExcel.ActiveCell.OffSet(0,3).FormulaR1C1 = "=RC[-1]/RC[-3]"
>
> foundcell = oExcel.Range.FindNext(after:=oExcel.ActiveCell)
> IF ISNULL(foundcell)
> EXIT
> ENDIF
>
>ENDDO
>
You can't use named parameters in VFP, try:
foundcell = oExcel.Range.FindNext(oExcel.ActiveCell)
Against Stupidity the Gods themselves Contend in Vain - Johann Christoph Friedrich von Schiller
The only thing normal about database guys is their tables.