borde de celda en excel

[kryna]

Hola!
Estoy trabajando con Excel, para generar un informe, pero aunq ya he buscado por todas partes!!! no consigo que una cantidad de celdas especificas queden marcadas con el borde de abajo... tengo el siguiente código:

cRange = "A" + LTrim(Str(fila)) + ":O" + LTrim(Str(fila))
ApExcel.Worksheets(1).Range(cRange).Select
With (ApExcel.Selection.Borders)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
End With

lo cual me marca el borde completo de las celdas, pero yo sólo quiero el borde de abajo!!!!
espero que alguien me pueda ayudar!
gracias

[Linterns]

lo que yo hago es seleccionar el rango de las celdas, luego quitarles el borde (por si lo tienen asi que lo limpio) y luego dar la linea de abajo... Termino limpiando las lineas que no ocupo

Código:

   Range("C6:E15").Select
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

[kryna]

gracias!
pero al poner esto:
ApExcel.WorksAheets(1).Range("C6:E15").Select

me dice q el objeto no admite esa propiedad
esta bien asignarle el rango de esa forma a la hoja de calculo?

[kryna]

ok, ya vi el error, escribi mal Worksheets
jejeje
lo probare

[kryna]

ApExcel.Worksheets(1).Selection.Borders(xlDiagonal Down).LineStyle = xlNone

me dice q el objeto no admite esa propiedad :(

[Linterns]

es xlDiagonalDown (junto y no separado como tu lo tienes)