Verwendung von OLE-Automatisierung zum Hinzufügen von Daten zu Excel-Tabelle

Vorgehensweise: Beispiel

1. Öffnen Sie eine neue Arbeitsmappe in Microsoft Excel 5.0 oder Microsoft Excel 7.0 (Bestandteil von Office 95) oder Microsoft Excel 97 (Teil von Office 97), damit das Beispiel Programm in diesem Artikel ausgeführt werden kann.
2. Markieren Sie Sheet 3 durch Klicken auf die Registerkarte am unteren Rand des Arbeitsblattes, und geben Sie die folgenden Daten in der Kalkulationstabelle:

         Enter         In Cells
         ----------------------------
         Part #        A1
         Sales YTD     B1
         1             A2 through A4
         2             A5 through A7
         3             B2 through B7
   					

3. Klicken Sie im Microsoft Excel-Daten auf Teilergebnis. Resultierende Dialogfeld sollte angezeigt, bei jeder Änderung in Teil #, die Funktion "SUM 'Fügt das Teilergebnis zu' Vertrieb bis heute", zeigt die Zusammenfassung unterhalb der Daten. Wenn dies der Fall ist, klicken Sie auf OK.
4. Klicken Sie auf die Registerkarte am unteren Rand das Arbeitsblatt auf Blatt 1 Blatt 1 der Arbeitsmappe standardmäßig Seite wiederherstellen möchten.
5. Speichern Sie die Arbeitsmappe. Dann schließen Sie die Arbeitsmappe, und Beenden von Microsoft Excel. Für den folgenden Beispielcode wurde die Arbeitsmappe gespeichert, mit als

         C:\XLSheets\Testbook.xls.
   					

6. Erstellen Sie in Microsoft Visual FoxPro für Windows, das folgende Programm mit dem Namen 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
   					

Zum Anfang