Categorias: Inserir Figura, Desenho-----------------------------------------------------------------------------chworkSheet:Pictures:Insert("C:\a-users\cliente\mangels\cqex0103.JPG"):Select

Categorias: Quebra de Página-----------------------------------------------------------------------------Para mudar de pagina ou quebrar pagina no Excel use o camando abaixo: - chWorksheet:HPageBreaks:Add(chWorksheet:Range("A5")).

Categorias: Borda ----------------------------------------------------------------------------- chWorkSheet:Range("b10:d10"):Borders(8):LineStyle = 12. chWorkSheet:Range("d10:d20"):Borders(2):LineStyle = 12. chWorkSheet:Range("b20:d20"):Borders(4):LineStyle = 12. chWorkSheet:Range("b10:b20"):Borders(1):LineStyle = 12. 01 coluna esquerda 02 coluna direita 03 linha inferior 04 linha inferior 05 descendo direita 06 subindo direita 07 nada 08 linha superior

Largura o traço :chWorkSheet:Range("A" + string(m-linha)):Borders(4):Weight = 2(Vai de 1 a 4).

chWorkSheet:Range("A1:" + c-column + string(i-line - 1)):Borders:LineStyle =

Categorias: Fonte-----------------------------------------------------------------------------font:name = "nome-da-fonte".

Categorias: Configuração de Página (Impressão)-----------------------------------------------------------------------------Sintaxe : pagesetup:orientation = 2 -> 1 - retrato 2 - paisagem Sintaxe: pagesetup:zoom = 60 --> percentual para impressao no exemplo diminui p/ 60 %

Categorias: Criar Sheets novos -----------------------------------------------------------------------------chExcelapplication:Sheets:add. coloque o camando acima apos colocar os dados da planilha corrente, caso o camando seja colocando antes de colocar os dados na planilha corrente a planilha criada passa a ser a corrente e os dados vao para ela.

Categorias: Margem, Formatação Avançada.-----------------------------------------------------------------------------FIND FIRST spider.spd-para NO-ERROR. /* MESSAGE "fim-excel" VIEW-AS ALERT-BOX. */ IF xls-form THEN DO: chWorkSheet:PageSetup:LeftHeader = "&D - &T - &Z&F". chWorkSheet:PageSetup:centerheader = c-titulo. chWorkSheet:PageSetup:centerfooter = "Pagina : &P de &N". IF xls-logotipo THEN ASSIGN chWorkSheet:PageSetup:rightHeader = "&G" Filename = spd-maq.texto[5]. ELSE ASSIGN chWorkSheet:PageSetup:rightHeaderPicture: Filename = c-programa. ASSIGN chWorkSheet:PageSetup:LeftFooter = c-programa + " - " + c-versao. ASSIGN chWorkSheet:PageSetup:rightFooter = USERID("spider"). chWorkSheet:pagesetup:TopMargin = 40. chWorkSheet:pagesetup:headerMargin = 27. chWorkSheet:pagesetup:LeftMargin = 27. chWorkSheet:pagesetup:RightMargin = 27. chWorkSheet:pagesetup:FooterMargin = 27. chWorkSheet:pagesetup:BottomMargin = 40. IF xls-auto-tit THEN chWorkSheet:PageSetup:PrintTitleRows = "$1:$2". END. IF xls-encerra THEN DO: IF NOT xls-auto-save THEN UPDATE c-arquivo LABEL "Nome arquivo " xls-auto-save xls-enviar bt-ok bt-cancela WITH WIDTH 100 FRAME f-nom-execl SIDE-LABEL VIEW-AS DIALOG-BOX. OS-DELETE VALUE(c-arquivo). chWorksheet:Saveas(c-arquivo). chExcelApplication:visible = TRUE. IF xls-auto-impr THEN chworksheet:printout. RELEASE OBJECT chWorksheet. RELEASE OBJECT chWorkbook. IF xls-auto-impr THEN chExcelApplication:QUIT(). RELEASE OBJECT chExcelApplication. END

Categorias: Formatando Números-----------------------------------------------------------------------------1 - No exemplo abaixo mostra como formatar uma celula com conteudo numerico para decimal: Exemplo: def var de-valor as deci. chWorksheet:Range("a1"):numberformat = "_(* #.##0,00_);_(* (#.##0,00);_(* ""-""_);_(@_)". chWorksheet:Range("a1"):Value= de-valor. 2 - Colocando o '@' para formatar a celula resolve o problema que ocorre quando o valor da celula é muito grande nao aparece o seu conteudo completo. Exemplo: chWorksheet:Range("a1"):numberformat = "@" chWorksheet:Range("a1"):Value= "Quantidade do Produto". 2 - vermelho STRING(i-linha)):Numberformat = "#.##0,00_);[Vermelho](#.##0,00)"

Categorias: Programando Cores------------------------------------------------------------------------------ No exemplo abaixo temos o comando para colocar cor no conteudo da celula. Acores sao representadas por numeros. Exemplo: chworksheet:range("a:b"):font:colorindex = 1. chworksheet:range(c-celula[3]):interior:colorindex = 06. Abaixo descrevemos as cores e seus repectivos numeros (o maximo aceito é 55):Numero Cores Numero Cores ------ -------------------- ------ -------------------- 01 preto 31 02 branco 32 03 vermelho 33 04 verde limao 34 azul clarinho 05 azul 35 06 amarelo 36 07 rosa 37 08 azul claro 38 09 marron 39 10 verde abacate 40 11 azul marinho 41 12 terra 42 13 margenta 43 14 verde 44 laranja claro 15 cinza claro 45 laranja meio claro 16 cinza 46 laranja escuro 17 azul marinho claro 47 18 roxo 48 19 amarelo claro 49 20 azul clarissimo 50 21 cor de uva 51 22 vermelho claro 52 23 azul celeste 53 24 roxo claro 54 25 azul marinho 55 26 rosa 27 amarela 28 azul 29 30

Categorias: Mesclar e Alinhar Células-----------------------------------------------------------------------------chWorkSheet:Range("A2:C2"):MergeCells = True chWorkSheet:Range("a2:c2"):HorizontalAlignment = 3.

chWorkSheet:Range("C4:C" + string(i-line)):HorizontalAlignment = 3 /*centraliza na posicao horizontal*/ chWorkSheet:Range("C4:C" + string(i-line)):VerticalAlignment = 2 /*centraliza na posicao vertical*/

Categorias: Colocando Cor na célula-----------------------------------------------------------------------------chWorkSheet:Range("A1:" + c-column + "3"):Interior:ColorIndex = 14

Categorias: Funções básicas do Excel-----------------------------------------------------------------------------Abaixo descrevemos um exemplo e em seguida uma explicacao do que seja cada funcao. 01 - chworksheet:columns("a"):columnwidth = 08 chworksheet = pasta da planilha columns = formata somente colunas, nao pode ser formata uma coluna de uma linha. columnwidth = largura de uma coluna. 02 - chworksheet:range("a1:ai1"):Font:colorindex = 1 range = formata uma celula. font = formata o conteudo de uma celula. colorindex = aplicar cor no conteudo de uma celula. 03 - chWorkSheet:Range("a1:ai1"):Font:Size = 10 size = formata o tamanho da celula. 04 - chWorkSheet:Range("a2:ai2"):Style = "comma" style = aplica um tipo de fonte no conteudo da celula. 05 - chWorkSheet:Range("a2"):Value = "Teste" value = aplica um conteudo/valor a celula. 06 - chWorksheet:Range("a1"):numberformat = "@" numberformat = aplica um formato na celula. 07 - chWorkSheet:Range("a1:ai1"):Font:bold = TRUE bold = aplica negrito no conteudo da celula 08 - chWorkSheet:Range("a1:i1"):Font:Italic = TRUE. italic = aplica italico no conteudo da celula. 09 - chWorkSheet:Range("a1:i1"):Font:underline = TRUE. underline = aplica sublinhado no conteudo da celula. obs.: (true = aplica; false = nao aplicar). 10 - chWorksheet:Saveas(c-arquiv). saveas() = salva o arquivo. 11 - chexcelapplication:visible = no. visible = torna visivel ou nao a planilha do excel. obs.: (visivel = yes; nao visivel = no) 12 - chWorksheet:printout(). printout() = imprime a planilha na impressora padrao do windows. 13 - RELEASE object chexcelapplication. libera o aplicativo excel. 14 - RELEASE object chWorkbook. libera a planilha criada do excel. 15 - RELEASE object chWorksheet. libera a pasta da planilha criada do excel. 16 - CREATE "excel.application" chexcelapplication. cria um aplicativo para excel. 17 - chworkbook = chexcelapplication:workbooks:add() abre uma nova planilha. 18 - chworksheet = chexcelapplicAtion:sheets:item(1) abre uma pasta na planilha 19 - chworksheet:name = "teste". name = nomeia a pasta da planilha. 20 - chWorksheet:HPageBreaks:Add(chWorksheet:Range("A5")). Faz quebra de pagina.