使用 Progress 4GL 将 Excel 活动表复制到工作簿的末尾

Question

我正在尝试使用 Progress 4GL 将 Excel 活动工作表复制到工作簿的末尾。这是我迄今为止尝试过的。

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

这是相关的 VBA 代码：

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

iSheetCount 的快速返回本身已经提供了正确数量的工作表。如何将 VBA 上的 Copy After 转换为 Progress 4GL？

Answer 1

这是一个纯粹的猜测，我不使用 Progress 4GL，但可能会考虑 Worksheet.Copy 的其他 VBA 格式/语法，它没有命名参数，但从它在命令中的位置暗示它：sheet.copy <before>,<after> ：

Sheets(1).Copy , Sheets(Sheets.Count)     'VBA

直接翻译（纯粹基于您的问题代码，而不是基于我的任何实际知识 - 我必须强调！）因此可能是：

chWorkbook:Sheets(1):COPY ,chWorkbook:Sheets(iSheetCount).

失败了..也许是这样的：

chWorkbook:Sheets(1):COPY(,chWorkbook:Sheets(iSheetCount)).

---

更新：

OP 确认以下工作：

chWorkbook:Sheets(1):COPY(,chWorkbook:Sheets(iSheetCount)).