不用累计，所有数据导入完成后，直接加边框就很省事：
*****导入数据
*myeole=CREATEOBJECT("Excel.application")
WITH myeole
*    .Workbooks.Open(GETFILE("xls"))
****加边框
    .ActiveSheet.UsedRange.Cells.select
    .selection.borders.lineStyle = 1
*    .ActiveWorkbook.close(.T.)
 ENDWITH

UsedRange.Cells.Borders
这个真是头一次知道啊，学习了，多谢！！！