Inhalt
Index
Support Über uns
Home

9.4 Farben, Rahmen und Formatierung




Dieses Beispiel ruft Excel auf und füllt einige Zellen. Hierbei werden Farben, Rahmen und Formattierung verwendet.

Excel wird sichtbar gemacht und nicht geschlossen.

Beispiel: texcel3.cob

      *c32 %;slink §
       id division.
       data division.
       working-storage section.
       01 res           pic 9(10).
       01 hex           pic x(10).
       01 range         usage pointer value 0.
       01 val           pic x(10).
       01 row           pic 99.
       01 col           pic 99.       
       01 xls           pic x(200).
       procedure division.
        call openexcel using res.
        if res not = 0 
           display 'Cannot start excel - Status ' res.


        move 1 to row col.


      * Farbe des Rahmens setzen


        call excelset using res
           'ActiveSheet.Cells(^1,^2).Borders.Color'  col row
                                      function rgb (255 0 0).


        call excelset using res
           'ActiveSheet.Cells(1,2).Borders.Color'  
              function rgb (255 0 0).
        call excelset using res
           'ActiveSheet.Cells(1,3).Borders.Color'                
              function rgb (255 0 0).
        call excelset using res
           'ActiveSheet.Cells(1,4).Borders.Color'  
                            function rgb (255 0 0).



        call excelset using res
           'ActiveSheet.Cells(1,1).Value' 'test1'.
        call excelset using res
           'ActiveSheet.Cells(1,2).Value' '11'.



      * Rahmendicke setzen: 1, -4138,2,4(default)


        call excelset using res
           'ActiveSheet.Cells(^1,^2).Borders.Weight'  col row 1.


        call excelset using res
           'ActiveSheet.Cells(1,2).Borders.Weight'  -4138.
        call excelset using res
           'ActiveSheet.Cells(1,3).Borders.Weight'  2.
        call excelset using res
           'ActiveSheet.Cells(1,4).Borders.Weight'  4.


        call excelset using res
           'ActiveSheet.Cells(1,3).Interior.Color'  
           function rgb(0 255 0).


      * Format setzen


        call excelset using res
           'ActiveSheet.Cells(1,2).NumberFormat' '-#.###'.


        call excelset using res
           'ActiveSheet.Cells(1,3).Value' 'test3'.


      * Ausrichtung 2- links 3- mitte 4- rechts


        call excelset using res
           'ActiveSheet.Cells(1,3).HorizontalAlignment' 4.


        call excelset using res
           'ActiveSheet.Cells(^1,^2).HorizontalAlignment' col row 3.



      * Farbe für eine Zelle setzen


        call excelset using res
           'ActiveSheet.Cells(1,3).Font.Color' 
              function rgb(0 255 255).




      * Spalte numerisch setzen 
        call excelset using res 
           'ActiveSheet.Columns(2).NumberFormat' '0,000'.


        call excelset using res
           'ActiveSheet.Cells(2,1).Value' '123'.
        call excelset using res
           'ActiveSheet.Cells(2,2).Value' '526'.


        call excelset using res 'visible' 1.
        call closeexcel.
        stop run.


       err section.
        if res = 0 exit section.
        call sprintf using hex '0x%x' res.
        call texec using 'showerror' hex.






Siehe auch: Excel-ObjektmodellExceldatei lesen Exceldateien schreiben



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


© 1980-2017 Acc Computertechnik GmbH All rights reserved.