Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Excel automation
Message
De
30/07/1998 02:20:19
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Excel automation
Divers
Thread ID:
00122611
Message ID:
00122611
Vues:
50
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
Fil
Voir

Click here to load this message in the networking platform