Comment faire pour utiliser OLE Automation pour ajouter des données vers une feuille Excel

Traductions disponibles Traductions disponibles
Numéro d'article: 142193 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

OLE Automation fournit un moyen pour Visual FoxPro pour Windows interagir avec d'autres applications compatibles OLE. À l'aide d'OLE, le programme Visual FoxPro peut démarrer une session de Microsoft Excel, ouvrez un classeur, sélectionnez une feuille de calcul du classeur, placer des données dans une cellule ou une plage de cellules, imprimez une feuille de calcul, enregistrez le classeur mis à jour et fermer la session de Microsoft Excel. Cet article explique, par exemple, comment procéder simplement.

Plus d'informations

Exemple pas à pas

  1. Ouvrez un nouveau classeur dans Microsoft Excel 5.0 ou Microsoft Excel 7.0 (partie intégrante d'Office 95) ou Microsoft Excel 97 (partie de Office 97), afin que l'exemple de programme dans cet article fonctionne.
  2. Sélectionnez feuille 3 en cliquant sur l'onglet en bas de la feuille de calcul, puis entrez les données suivantes dans la feuille de calcul :
          Enter         In Cells
          ----------------------------
          Part #        A1
          Sales YTD     B1
          1             A2 through A4
          2             A5 through A7
          3             B2 through B7
    					
  3. Dans le menu données de Microsoft Excel, cliquez sur sous-total. La boîte de dialogue doit afficher qu'à chaque modification de partie #, la fonction 'SUM 'ajoute le sous-total pour' ventes AAD' et afficher ce résumé au-dessous des données. Si tel est le cas, cliquez sur OK.
  4. Cliquez sur l'onglet en bas de la feuille de calcul 1 de la feuille restaurer par défaut page du classeur feuille 1.
  5. Enregistrez le classeur. Puis fermez le classeur, puis quittez à partir de Microsoft Excel. Pour l'exemple de code suivant, le classeur a été enregistré comme
          C:\XLSheets\Testbook.xls.
    					
  6. Dans Microsoft Visual FoxPro pour Windows, créez le programme suivant nommé oleExcel.prg :
    *** Program oleExcel.prg *****
    #DEFINE xlLandscape 2
    #DEFINE xlDoNotSaveChanges 2
    
    DIMENSION laDemoData(4)      && For some Visual FoxPro users, data
    laDemoData(1)= 1024          && could come from table or view
    laDemoData(2)= 2048
    laDemoData(3)= 5120
    laDemoData(4)= "The Sample Message"
    
    loExcel = CREATEOBJECT("Excel.application") 
    
    WITH loExcel
       .Application.Workbooks.Open("C:\XLSheets\testbook.xls")
       .Application.Worksheets("Sheet3").Activate  && Select sheet
       
       .Range("b2").Value = 14444          && constants as data
       .Range("b3").Value = 25555
       .Range("b4").Value = 30001
    
       .Range("b6").Value = laDemoData(1)  && variables as data
       .Range("b7").Value = laDemoData(2)
       .Range("b8").Value = laDemoData(3)
       .Range("a12").Value = laDemoData(4)
    
       .Worksheets("Sheet3").PageSetup.Orientation = xlLandscape
       .ActiveSheet.PrintOut  && Example of printing the worksheet
    
       .Visible = .t. && See the results
       =MESSAGEBOX("Click OK to close Excel.") && Keep the program running, 
                                               && so Excel isn't stranded
    
       .ActiveWindow.Close(xlDoNotSaveChanges)
       .Quit()
    ENDwith
    					

Références

Examinez la rubrique d'aide de Microsoft Excel «Objet d'application» et de nombreuses rubriques qui sont introduites dans les listes de propriétés et méthodes de cette rubrique.

Pour plus d'informations sur la plupart des concepts décrits dans l'exemple de programme, consultez les articles suivants dans la base de connaissances Microsoft :
139051Comment faire pour sélectionner des cellules dans Microsoft Excel à l'aide de OLE Automation
132535PRB : Publication variable objet ne ferme pas Microsoft Excel
138398PRB : Release peut ne pas supprimer les objets à partir de la mémoire OLE

Propriétés

Numéro d'article: 142193 - Dernière mise à jour: mardi 13 juillet 2004 - Version: 3.3
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Visual FoxPro 3.0 Édition Standard
  • Microsoft Visual FoxPro 3.0b Édition standard
  • Microsoft Visual FoxPro 5.0 Édition standard
  • Microsoft Visual FoxPro 6.0 Édition Professionnelle
Mots-clés : 
kbmt kbcode kbhowto kbinterop KB142193 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 142193
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com