Highlighted
Absent Member.
Absent Member.
1535 views

Create extra sheets in Excel in acucobol

Jump to solution

just started to use the following example code (so not so experienced with it)

* Create the OLE interface
    create @Application of @Excel handle in excel-app.
                         
* Don't show it yet!
    modify  excel-app @Visible = 0.

* Use this to create a new excel doc
    modify excel-app
           @Workbooks::Add()
           giving excel-doc.
            
* Get the worksheets collection
    inquire excel-doc sheets() in excel-sheets.

I would like to create more than the standard 3 worksheets in this document,  this can somebody inform me how I can do that, tried the next code but it does not work ....

    modify excel-doc
           @sheets::Add()
           giving excel-sheets

thanks in advance

Tags (1)
0 Likes
1 Solution

Accepted Solutions
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: Create extra sheets in Excel in acucobol

Jump to solution

modify excel-doc .@SheetsInNewWorkbook= 8

View solution in original post

0 Likes
2 Replies
Highlighted
Micro Focus Expert
Micro Focus Expert

RE: Create extra sheets in Excel in acucobol

Jump to solution

modify excel-doc .@SheetsInNewWorkbook= 8

View solution in original post

0 Likes
Highlighted
Absent Member.
Absent Member.

RE: Create extra sheets in Excel in acucobol

Jump to solution

Thanks a lot , works fine !

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.