Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Excel FindNext function driven by Automation
Message
 
 
À
08/12/2005 13:23:52
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Versions des environnements
Visual FoxPro:
VFP 9
Divers
Thread ID:
01076296
Message ID:
01076306
Vues:
23
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--
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform