excel - 在创建 excel 工作表时使用分隔符 4gl

Question

我有 3 .txt文件，我正在使用 COM-句柄 创建 Excel 工作表。
谁能帮我设置分隔符？我的 Excel 工作表正在创建，但列不是逗号分隔的。

请参阅我得到的文件的附加屏幕截图。我希望它位于不同的列中。

Answer 1

将变量 chExcel 定义为 COM-HANDLE NO-UNDO。
将变量 chWorksheet1 定义为 COM-HANDLE NO-UNDO。
将变量 chWorksheet2 定义为 COM-HANDLE NO-UNDO。
将变量 chWorkbook1 定义为 COM-HANDLE NO-UNDO。
将变量 chWorkbook2 定义为 COM-HANDLE NO-UNDO。
将变量 iQtArq 定义为整数 NO-UNDO。
将变量 iPos 定义为整数 NO-UNDO。
将变量 idx 定义为整数 NO-UNDO。

DEFINE TEMP-TABLE tt-arq
    FIELD nomeArq AS CHAR.
CREATE tt-arq.
tt-arq.nomeArq = "C:\damgra\excel\Test1.txt".
CREATE tt-arq.
tt-arq.nomeArq = "C:\damgra\excel\Test2.txt".
CREATE tt-arq.
tt-arq.nomeArq = "C:\damgra\excel\Test3.txt".


CREATE "excel.application" chExcel.

iQtArq = 0.

FOR EACH tt-arq.
    iQtArq = iQtArq + 1.

    IF iQtArq = 1 THEN DO:    
        chWorkbook1=chExcel:Workbooks:Open(tt-arq.nomeArq).
        chWorksheet1=chWorkbook1:Worksheets(1).
        chWorksheet1:NAME = "test" + STRING(iQtArq).
        NEXT.
    END.

    iPos = chWorkbook1:sheets:COUNT .

    chWorkbook2=chExcel:Workbooks:Open(tt-arq.nomeArq).

    DO idx = 1 TO (chWorkbook2:sheets:COUNT):
        iPos = iPos + 1.
        chWorksheet2=chWorkbook2:Worksheets(idx).
        chWorksheet2:NAME = "plan" + STRING(iPos).
    END.

    chWorksheet2=chWorkbook2:Worksheets(1).
    chWorksheet1=chWorkbook1:Worksheets(chWorkbook1:sheets:COUNT).
    chWorksheet1:Activate.
    chWorkbook2:Sheets:move(,chWorksheet1).    
END.

chWorksheet1=chWorkbook1:Worksheets(1).
chWorksheet1:Activate.

chExcel:visible=true.

IF valid-handle(chWorksheet1) THEN RELEASE OBJECT chWorksheet1.
IF valid-handle(chWorksheet2) THEN RELEASE OBJECT chWorksheet2.
IF valid-handle(chWorkbook1 ) THEN RELEASE OBJECT chWorkbook1 .
IF valid-handle(chWorkbook2 ) THEN RELEASE OBJECT chWorkbook2 .
IF valid-handle(chExcel )     THEN RELEASE OBJECT chExcel.