Excel teste

/*Definindo variável que receberá a classe*/
DEFINE VARIABLE excel AS CLASS Classes.excel NO-UNDO.

/*Instanciando a classe*/
ASSIGN excel = NEW Classes.excel("").

/*Criando o cabeçalho*/
excel:createHeader("CNPJ,Cod Cliente,Nome").

/*Inserindo linha no Excel*/
excel:insertLine("<CNPJ>,<COD CLIENTE>,<NOME>").
excel:insertLine("<CNPJ>,<COD CLIENTE>,<NOME>").
excel:insertLine("<CNPJ>,<COD CLIENTE>,<NOME>").
excel:insertLine("<CNPJ>,<COD CLIENTE>,<NOME>").

/*Inserindo template azul*/
excel:styleCell("blue").

/*Inserindo novo sheet*/
excel:createSheet("Cliente").

/*Criando o cabeçalho*/
excel:createHeader("Pessoa,Janeiro,Fevereiro,Março,Abril,Maio,Junho,Julho").

/*Inserindo nova linha*/
excel:insertLine("Jhonatan,13,14,5,4,12,7,8").
excel:insertLine("João,11,20,12,19,18,17,16").
excel:insertLine("Thiago,13,10,11,12,13,14,15").
excel:insertLine("Fábio,12,9,10,11,12,13,14").
excel:createChart("Grafico 1").

excel:styleCell("blue").

/*Inserindo novo sheet*/
excel:createSheet("Fornecedor").


/*Criando o cabeçalho*/
excel:createHeader("Fornecedor,Cod Cliente3,Nome3").

/*Inserindo nova linha*/
excel:insertLine("<CNPJ>,<COD CLIENTE>,<NOME>").
excel:insertLine("<CNPJ>,<COD CLIENTE>,<NOME>").
excel:lineJump(2).
excel:insertLine("<CNPJ>,<COD CLIENTE>,<NOME>").
excel:insertLine("<CNPJ>,<COD CLIENTE>,<NOME>").

excel:styleCell("blue").

/*Finalizando documento*/
excel:finishExcel().