formatar celulas no excel

Tirar duvidas sobre o curso de Autolisp

Moderador: Moderadores

Responder
Avatar do usuário
jc105
Bronze 1/3
Bronze 1/3
Mensagens: 155
Registrado em: Qua 07 Abr 2004 12:00:00 am

formatar celulas no excel

Mensagem por jc105 »

pessoal to desenvolvendo uma rotina para criar alguns registros no excel, mas seria interessante destacar estes registros de alguma forma, para isto estou pensando em formatar o fundo das celulas do excel, mas não sei como fazer isto com o visual lisp, segue parte da rotina... que está dando problemas e não sei como resolver....


[lsp](defun c:exc (/ eap col_pastas pasta col_plan plan1 celulas)
(setq eap (vlax-create-object "excel.application"))
(setq col_pastas (vlax-get eap "workbooks"))
(setq pasta (vlax-invoke-method col_pastas "add"))
(setq col_plan (vlax-get pasta "sheets"))
(setq plan1 (vlax-get-property col_plan "item" 1))
(setq celulas (vlax-get plan1 "cells")
interi (vlax-get celulas "interior")
)
(vlax-put eap "visible" 1)
(vlax-put-property celulas "item" 5 1 "Isto é um teste")
(vlax-put-property interi "colorindex" "item" 5 1 6)
)
[/lsp]
"Há duas formas para viver sua vida:
Uma é acreditar que não existe
milagre... a outra é acreditar que todas as
coisas são um milagre....."
Albert Einstein 1879 - 1955
Avatar do usuário
cracksther
Diamante
Diamante
Mensagens: 1072
Registrado em: Seg 13 Dez 2004 11:00:00 pm

Mensagem por cracksther »

jc105... Segue correção do seu código

[lsp](defun c:exc (/ eap col_pastas pasta col_plan plan1 celulas cell intCell)
(setq eap (vlax-create-object "excel.application"))
(setq col_pastas (vlax-get eap "workbooks"))
(setq pasta (vlax-invoke-method col_pastas "add"))
(setq col_plan (vlax-get pasta "sheets"))
(setq plan1 (vlax-get-property col_plan "item" 1))
(setq celulas (vlax-get plan1 "cells")
;interi (vlax-get celulas "interior") ;isso pega o interior de todas as celulas de plan1
)
(vlax-put eap "visible" 1)
(vlax-put-property celulas "item" 5 1 "Isto é um teste")
;(vlax-put-property interi "colorindex" "item" 5 1 6) ;errado

(setq cell (vlax-get-property celulas "range" "A5")) ;captura A5

(setq intCell (vlax-get cell "interior")) ;interior de A5

(vlax-put-property intCell "colorindex" 6) ;Pinta o fundo de A5 em amarelo
)[/lsp]

Até mais
Marcelo Silva - Cascavel - PR
[email protected]
Responder