Comandos para Excel

Segue uma lista de comandos e suas funcionalidades para configurar uma saída de dados em Excel:

DEFINE VARIABLE chExcelApp  AS COM-HANDLE NO-UNDO. /* Cria objeto para referenciar o aplicativo */
DEFINE VARIABLE chWorkBook  AS COM-HANDLE NO-UNDO. /* Cria objeto para referenciar a pasta de trabalho */
DEFINE VARIABLE chWorkSheet AS COM-HANDLE NO-UNDO. /* Cria objeto para referenciar a planilha na pasta de trabalho */

CREATE "Excel.Application" chExcelApp. /* Define objeto como uma aplicação Excel*/

chExcelApp:VISIBLE = false. /* Nao mostra a planilha */
chExcelApp:VISIBLE = true.  /* Torna a planilha visivel novamente */

chWorkBook = chExcelApp:Workbooks:Add(""). /* Adiciona uma nova pasta de trabalho  */

chWorkBook = chExcelApp:Workbooks:Add("c:\documento.xls"). /* Adiciona uma pasta de trabalho existente */

chWorkSheet = chExcelApp:Sheets:Item(1). /* Aponta para planilha dentro da pasta de trabalho */

chWorkSheet:PageSetup:Orientation = 2. /* Orientacao da impressao: 1 - Portrait, 2 Landscape */

chWorkSheet:PageSetup:LeftMargin = 1. /* Tamanho da margem esquerda */

chWorkSheet:PageSetup:RightMargin = 1. /* Tamanho da margem direita */

chWorkSheet:PageSetup:PrintTitleRows = "$1:$7". /* Cabecalho a ser impresso em quebras de pagina */

chWorkSheet:PageSetup:PaperSize = 9. /* Define o tamanho do papel para A4 */

chWorkSheet:PageSetup:Zoom = FALSE. /* Mostra planilha sem zoom, zoom = 80 mostra com 80% de zoom */
chWorkSheet:PageSetup:FitToPagesTall = 1. /* Alterar a largura da pagina */
chWorkSheet:PageSetup:FitToPagesWide = 1. /* Largura que a planilha será redimencionada quando for impressa */

chExcelApp:sheets:ITEM(1):DELETE. /*Deleta a pasta passada como parametro*/

chWorksheet:Range("B1:B65"):NumberFormat = "dd/mm/aaaa". /* Formato de data na col B */
chWorksheet:Range("C1:C65"):NumberFormat = "#.##0,00". /* formato numerico c/2 dec na col C */
chWorkSheet:PageSetup:RightFooter  = "&d/&t" + "-PAGINA:" + "&P/&N". /* Data/Hora e Nr Pg no Rodapé */
chworksheet:range("B2:C2"):EntireColumn:AutoFit. /* Define automaticamente a largura das colunas */
chExcelApp:COLUMNS("A:A"):ColumnWidth = 25.00. /* Define manualmente a largura da coluna A */
chExcelApp:Rows("1:65000"):RowHeight  = 17.00. /* Tamanho da linha */

chWorksheet:Range("A1"):Interior:colorindex = 23. /* Cor da células */
chWorkSheet:Range("A1:F1"):Merge. /* Mesclar células */
chWorksheet:Range("A1"):Font:size = 20. /* Tamanho da fonte */
chWorksheet:Range("A1"):Font:Underline = 2. /* Sublinhar texto */
chWorksheet:Range("A1"):Font:Bold = True. /* Negrito */
chWorksheet:Range("A1"):Font:colorindex = 2. /* Cor da fonte */

chWorksheet:Range("A1"):VALUE = "Texto". /* Insere conteudo na célula */

chExcelApp:DisplayAlerts = FALSE. /* Não dispara mensagens de erro */

chWorkBook:SaveAs("C:\Arquivo2.xls",,,,False,False,). /* Salvar documento */

chExcelApp:quit(). /* Fechar Excel */

/* Limpar objetos da memória */
RELEASE OBJECT chWorksheet.
RELEASE OBJECT chWorkbook.
RELEASE OBJECT chExcelApp.