不用累计,所有数据导入完成后,直接加边框就很省事:
*****导入数据
*myeole=CREATEOBJECT("Excel.application")
WITH myeole
* .Workbooks.Open(GETFILE("xls"))
****加边框
.ActiveSheet.UsedRange.Cells.select
.selection.borders.lineStyle = 1
* .ActiveWorkbook.close(.T.)
ENDWITH
*****导入数据
*myeole=CREATEOBJECT("Excel.application")
WITH myeole
* .Workbooks.Open(GETFILE("xls"))
****加边框
.ActiveSheet.UsedRange.Cells.select
.selection.borders.lineStyle = 1
* .ActiveWorkbook.close(.T.)
ENDWITH
相互学习,互相交流,共同提高。