9.4 Farben, Rahmen und Formatierung

      *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.

Zurück zu Acc-Cobol: Zugriff auf Excel - Exceldatei erzeugen

Hoch zu Acc-Cobol: Zugriff auf Excel