Comandos e Dicas Úteis do Excel
Versão do Excel
Código em 4gl para identificar a versão do excel:
DEF VAR chExcelApplication AS COM-HANDLE NO-UNDO.
CREATE “Excel.Application” chExcelApplication.
IF chExcelApplication:version < “12.0” THEN MESSAGE “Office XP ou anterior.” VIEW-AS ALERT-BOX INFO BUTTONS OK. ELSE MESSAGE “Office 2007 ou posterior.” VIEW-AS ALERT-BOX INFO BUTTONS OK. RELEASE OBJECT chExcelApplication.
Comandos Úteis do Excel
excelAPP:Range(“A1″):VALUE = “Teste”. /*Adiciona a palavra TESTE … celula A1*/
excelAPP:Range(“A1″):Font:NAME = “Courier New”. /*Aplica a fonte*/
excelAPP:Range(“A1″):Font:SIZE = 20. /*Aplica o tamanho 20 de fonte*/
excelAPP:Range(“A1″):Font:bold = TRUE. /*Aplica Negrito*/
chExcelApplication:Range(“C5″):SELECT.chExcelApplication:ActiveCell:Characters(1,3):FONT:bold = YES. /*Aplica Negrito parcialmente*/
excelAPP:Range(“A1″):Font:italic = TRUE. /*Aplica Italico*/
excelAPP:Range(“A1″):ColorIndex = 15. /*Modifica cor interior da celula*/
excelAPP:Range(“A1″):PageBreak = 1. /*Insere quebra de pagina*/
excelAPP:Range(“A1″):NumberFormat = “dd/mm/aaaa”. /*Aplica formatacao de data*/
excelAPP:Range(“A1″):NumberFormat = “#.##0,00″. /*Aplica formatacao numerica*/
excelAPP:Range(“A1″):HorizontalAlignment = 1. /*Alinha o campo: Se for 1 alinha para a direita. Se for 2 alinha para a esquerdaSe for 3 alinha para o centro.*/
excelAPP:Range(“A1:B1″):MergeCells = 1. /*Mescla as celulas A1 e B1*/
excelAPP:Range(“A1″):Borders(01):LineStyle = 1.excelAPP:Range(“A1″):Borders(01):Weight = -4138. /*Onde est o “01” ‚ onde o contorno da celula ser aplicado.01 – Esquerdo02 – Direito03 – Emcima04 – Embaixo05 – Diagonal Direita06 – Diagonal Esquerda*/
excelAPP:Range(“A1″):ColumnWidth = 13.15. /*Redimenciona o tamanho da coluna*/
excelAPP:Range(“A:Z”):AutoFit. /*Redimenciona automaticamente todas as colunas de A … Z */
Inserindo Figuras no Excel
excelAPP:Range(“A1″):SELECT.excelAPP:ActiveSheet:Pictures:Insert(“C:\temp\imagem.bmp”).excelAPP:ActiveSheet:Pictures(“Picture 1″):Select. /*Seleciona a figura*/
excelAPP:Selection:ShapeRange:LEFT = 80.5. /*Posiciona na horizontal em 80.5*/
excelAPP:Selection:ShapeRange:TOP = 200.5. /*Posiciona na vertical em 200.5*/
excelAPP:Selection:ShapeRange:Width = 115.75. /*Define 115.75 (pixel) de altura, 1 pixel = 0,04 cm*/
excelAPP:Selection:ShapeRange:Height = 33. /*Define 33 (pixel) de largura*/
excelAPP:SELECTION:ShapeRange:LockAspectRatio = False. /*Desativa opcao proporcional*/
excelAPP:VISIBLE = TRUE. /*Torna a planilha visivel*/
excelAPP:ActiveWindow:CLOSE(NO). /*Fecha a janela*/
RELEASE OBJECT excelAPP.
Código em 4gl para identificar a versão do excel:
DEF VAR chExcelApplication AS COM-HANDLE NO-UNDO.
CREATE “Excel.Application” chExcelApplication.
IF chExcelApplication:version < “12.0” THEN MESSAGE “Office XP ou anterior.” VIEW-AS ALERT-BOX INFO BUTTONS OK. ELSE MESSAGE “Office 2007 ou posterior.” VIEW-AS ALERT-BOX INFO BUTTONS OK. RELEASE OBJECT chExcelApplication.
Comandos Úteis do Excel
excelAPP:Range(“A1″):VALUE = “Teste”. /*Adiciona a palavra TESTE … celula A1*/
excelAPP:Range(“A1″):Font:NAME = “Courier New”. /*Aplica a fonte*/
excelAPP:Range(“A1″):Font:SIZE = 20. /*Aplica o tamanho 20 de fonte*/
excelAPP:Range(“A1″):Font:bold = TRUE. /*Aplica Negrito*/
chExcelApplication:Range(“C5″):SELECT.chExcelApplication:ActiveCell:Characters(1,3):FONT:bold = YES. /*Aplica Negrito parcialmente*/
excelAPP:Range(“A1″):Font:italic = TRUE. /*Aplica Italico*/
excelAPP:Range(“A1″):ColorIndex = 15. /*Modifica cor interior da celula*/
excelAPP:Range(“A1″):PageBreak = 1. /*Insere quebra de pagina*/
excelAPP:Range(“A1″):NumberFormat = “dd/mm/aaaa”. /*Aplica formatacao de data*/
excelAPP:Range(“A1″):NumberFormat = “#.##0,00″. /*Aplica formatacao numerica*/
excelAPP:Range(“A1″):HorizontalAlignment = 1. /*Alinha o campo: Se for 1 alinha para a direita. Se for 2 alinha para a esquerdaSe for 3 alinha para o centro.*/
excelAPP:Range(“A1:B1″):MergeCells = 1. /*Mescla as celulas A1 e B1*/
excelAPP:Range(“A1″):Borders(01):LineStyle = 1.excelAPP:Range(“A1″):Borders(01):Weight = -4138. /*Onde est o “01” ‚ onde o contorno da celula ser aplicado.01 – Esquerdo02 – Direito03 – Emcima04 – Embaixo05 – Diagonal Direita06 – Diagonal Esquerda*/
excelAPP:Range(“A1″):ColumnWidth = 13.15. /*Redimenciona o tamanho da coluna*/
excelAPP:Range(“A:Z”):AutoFit. /*Redimenciona automaticamente todas as colunas de A … Z */
Inserindo Figuras no Excel
excelAPP:Range(“A1″):SELECT.excelAPP:ActiveSheet:Pictures:Insert(“C:\temp\imagem.bmp”).excelAPP:ActiveSheet:Pictures(“Picture 1″):Select. /*Seleciona a figura*/
excelAPP:Selection:ShapeRange:LEFT = 80.5. /*Posiciona na horizontal em 80.5*/
excelAPP:Selection:ShapeRange:TOP = 200.5. /*Posiciona na vertical em 200.5*/
excelAPP:Selection:ShapeRange:Width = 115.75. /*Define 115.75 (pixel) de altura, 1 pixel = 0,04 cm*/
excelAPP:Selection:ShapeRange:Height = 33. /*Define 33 (pixel) de largura*/
excelAPP:SELECTION:ShapeRange:LockAspectRatio = False. /*Desativa opcao proporcional*/
excelAPP:VISIBLE = TRUE. /*Torna a planilha visivel*/
excelAPP:ActiveWindow:CLOSE(NO). /*Fecha a janela*/
RELEASE OBJECT excelAPP.
