Thank you Mark
No your code work but it gives me only one line it under A1 I have try to look at how I can apply up to certain range but I could not
but there was no error while I was trying to cover horizontally and vertically the range A1:J1
Thank you

local loExcel, oSheet
loExcel = CREATEOBJECT("Excel.Application") && Create the Excel object
opexcel = FULLPATH("inkorder.xls")
loWorkbook = loExcel.workbooks.open("&opexcel") && parameters to open the file from the right directory
loExcel.Visible = .T. && display Excel


xlEdgebottom = 9
xlContinuous = 1
xlThin = 2
xlDiagonaldown=0
xlDiagonalUp=0
xledgeleft=0
xlEdgetop=0
xledgeright=0
xlInsideVeertical=0
xlIsideHorizontal=0
With loExcel.Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
EndWith