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
|