Information générale
Catégorie:
Codage, syntaxe et commandes
I'm trying to do some automation witx excel
This works fine:
tmpsheet=createobject("excel.sheet")
app=tmpsheet.application
app.visible=.t.
app.workbooks.add()
select maticna
go top
with app.activeworkbook.activesheet
.cells(1,1)="Telefonski broj"
.cells(1,2)="Pretplatnik"
.cells(1,3)="Kabel"
endwith
do while !eof()
with app.activeworkbook.activesheet
.cells(recno()+1,1)=telefon
.cells(recno()+1,2)=pretplat
.cells(recno()+1,3)=kabel
endwith
skip
enddo
with app.activeworkbook.activesheet.range("a1:c50")
.font.name="MAC C Swiss"
.font.size=10
endwith
Now I want to do some borders formating. Macro language says that I have to apply something like:
with app.activeworkbook.activesheet.range("a1:c50").borders(xlEdgeBottom)
.linestyle=xlContinuous
.weight=xlMedium
.ColorIndex=xlAutomatic
endwith
I need some information about Excel constants definition (xlContinuous,xlMedium,xlAutomatic,....xl*). Is there any header file for theese constants?
Thanks in advance.
Angel
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement