Excel and cell borders

[Marc Vanzegbroeck]

Hello,

I create so excel-files from FWH, but want also set cell-borders.
Does anyone know how to define the cell-border in excel from FWH.
Also, only adding the upper-border, left-border,...

Thanks,
Marc

[MarcoBoschi]

marco try this little sample:

[code]
#include "fivewin.ch"


// Line styles

#define xlContinuous 1
#define xlDash -4115
#define xlDashDot 4
#define xlDashDotDot 5
#define xlDot -4118
#define xlDouble -4119
#define xlSlantDashDot 13
#define xlLineStyleNone -4142


// Border positions

#define xlEdgeLeft 7
#define xlEdgeTop 8
#define xlEdgeBottom 9
#define xlEdgeRight 10

FUNCTION MAIN()
LOCAL oExcel
LOCAL oAs

oExcel := CreateObject( "Excel.Application" )

oExcel:WorkBooks:Add()

oAS := oExcel:ActiveSheet()

oAs:Range( "C10" ):Value := "Marco"
oAs:Range( "C10" ):Borders( xlEdgeTop ):LineStyle := xlContinuous
oAs:Range( "C10" ):Borders( xlEdgeLeft ):LineStyle := xlContinuous
oAs:Range( "C10" ):Borders( xlEdgeBottom ):LineStyle := xlContinuous
oAs:Range( "C10" ):Borders( xlEdgeRight ):LineStyle := xlContinuous


oExcel:visible := .T.

RETURN NIL

[Marc Vanzegbroeck]

Thanks Marco for the quick responce.

I will try it.

Regards,
Marc