Importação para o Excel

Dá para substituir o range pelo cells, veja:

Código:

DEF VAR chExcelApplication   AS COM-HANDLE.
DEF VAR chPlanilha           AS COM-HANDLE.
DEF VAR i AS INT NO-UNDO.

CREATE 'excel.application' chExcelApplication.
chExcelApplication:Workbooks:Open("C:\temp\teste.xlsx").

chPlanilha  = chExcelApplication:Sheets:Item(1).

chExcelApplication:VISIBLE = YES.

/*--- cabeçalho ---*/
ASSIGN chPlanilha:cells(1, 1):VALUE = "Código"
       chPlanilha:cells(1, 2):VALUE = "Descrição"
       i = 1.

FOR EACH ITEM NO-LOCK:

    /*--- linhas ---*/
    ASSIGN i = i + 1
           chPlanilha:cells(i, 1):VALUE = ITEM.it-codigo
           chPlanilha:cells(i, 2):VALUE = ITEM.desc-item.

END.

RELEASE OBJECT chExcelApplication.

Muito Obrigado.