N
Newbie
Guest
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.
This is the relevant VBA code:
A quick return for
Continue reading...
Code:
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:
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...