[Stackoverflow] [Progress OpenEdge ABL] Copying Excel active sheet to the end of the workbook with Progress 4GL

[Newbie]

I'm trying to copy an Excel active sheet to the end of the workbook with Progress 4GL. This is what I've tried so far.

DEFINE VARIABLE chExcelApplication   AS COM-HANDLE.    /* com-handle for the application */
DEFINE VARIABLE chWorkbook           AS COM-HANDLE.    /* com-handle for the workbook */
DEFINE VARIABLE iSheetCount          AS INTEGER.       /* variable to track the current sheet count */

CREATE "Excel.Application" chExcelApplication.
chWorkbook = chExcelApplication:Workbooks:Open("C:\tmp\test.xlsx").

iSheetCount = chWorkbook:sheets:COUNT.

chWorkbook:Sheets(1):COPY:after = chWorkbook:Sheets(iSheetCount).

This is the relevant VBA code:

Sheets(1).Copy After:=Sheets(Sheets.Count)

A quick return for iSheetCount itself already giving the correct number of worksheets. How do phrase the Copy After on VBA into Progress 4GL?

Continue reading...