Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Excel FindNext function driven by Automation
Message
 
 
To
08/12/2005 13:23:52
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Environment versions
Visual FoxPro:
VFP 9
Miscellaneous
Thread ID:
01076296
Message ID:
01076306
Views:
21
This message has been marked as the solution to the initial question of the thread.
FoxPro doesn't support named parameters. You've to look up in the Excel VBA reference what positional parameers are or use Intellisense. In this case FindNext(0 method have only one parameter
foundcell = oExcel.Range.FindNext(oExcel.ActiveCell)
>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
>
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform