Inhalt
Index
Support Über uns
Home

9.2 Exceldatei lesen




Dieses Beispiel liest den Inhalt einer Exceldatei die vom Anwender ausgewählt wird und zeigt die Anzahl der verwendeten Spalten und Zeilen an. Anschließend wird der Inhalt der Exceldatei am Bildschirm angezeigt.

Am Ende Return eingeben um das Programm zu beenden.

Beispiel: texcel.cob

      *c32 %;slink §
       id division.
       data division.
       working-storage section.
       01 res           pic 9(10).
       01 mrows         pic 9(5).
       01 mcols         pic 9(5).
       01 val           pic x(10).
       01 row           pic 99.
       01 col           pic 99.       
       01 xls           pic x(200).
       procedure division.


        call getfiledialog using 'Excel-Datei auswählen' 
              'Excel-Datei(*.xls,*.csv)|Alle Dateien(*.*)'
                        xls
        if xls = space stop run.
        display 'xls ' xls


      *
      *  Schnittstelle zum Excel-Object Model
      *  
      *  Eröffnen:
      *  call openexcel using res [exceldatei] [visible]
      *  
      *  


        call openexcel using res xls
        if res not = 0 
           display 'Cannot start excel - Status ' res
           stop run.


        call excelget using res 'ActiveSheet.UsedRange.Rows.count'
                        mrows
        display 'Anzahl Zeilen.: ' mrows


        call excelget using res 'ActiveSheet.UsedRange.Columns.count'
                        mcols
        display 'Anzahl Spalten: ' mcols
      *
      * Ausgabe aller Werte
      * 
        perform varying row from 1 by 1 until row > mrows
          display ' '.
          display 'row: ' row no 
           perform varying col from 1 by 1 until col > mcols
            call getexcelcell using res col row val
            display ' ' val no 
           end-perform
         end-perform


        call getchar


        call quitexcel.





Siehe auch: Excel-ObjektmodellExceldateien schreiben Excel Rahmen,Farben,Formattierung

Zurück zu Acc-Cobol: Zugriff auf Excel    Hoch zu Acc-Cobol: Zugriff auf Excel    Weiter zu Exceldatei schreiben
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.