求助：关于VFP控制XLS选择不确定区域的问题
目标：VFP控制EXCEL，选定区域，设置边框
重点：选定的区域为未确定区域
问题：选定未确定区域的代码错误
事情描述：
EXCEL中的列数是固定的，但数据记录数是有变化的，因此选择的区域是未确定的
代码：
eole=Createobject("Excel.application")&& 创建Excel对象
eole.Workbooks.Add&& 添加新工作簿
eole.Worksheets("sheet2").Activate&&激活第二个工作表为工作区域
USE dc3ls &&向表中写入DBF数据
scan
eole.ActiveSheet.cells[RECNO(),1].value=月
eole.ActiveSheet.cells[RECNO(),2].value=日
eole.ActiveSheet.cells[RECNO(),3].value=学生代码
eole.ActiveSheet.cells[RECNO(),4].value=学生姓名
eole.ActiveSheet.cells[RECNO(),5].value=日常记录
eole.ActiveSheet.cells[RECNO(),6].value=综合评价
eole.ActiveSheet.cells[RECNO(),7].value=评分
ENDSCAN
USE
************下面，是出错的地方，选择有数据的行数，选择区域，然后设置边框
r=eole.ActiveSheet.UsedRange.Rows.Count &&有数据的总行数
eole.ActiveSheet.Range(cells(1,3):cells(r,7)).Select&&选定区域（这是错!!!!）
eole.Selection.BorderS(1).LineStyle=1&&边框
eole.Selection.BorderS(2).LineStyle=1&&边框
eole.Selection.BorderS(3).LineStyle=1&&边框
eole.Selection.BorderS(4).LineStyle=1&&边框
eole.activeworkbook.saveas("d:\学生日常管理\导出XLS\a03.xls") &&改名存盘
eole.workbooks.close&&关闭工作簿
请问：代码该如何修改？
[解决办法]
本帖最后由 apple_8180 于 2013-12-06 13:41:12 编辑
eole=Createobject("Excel.application")&& 创建Excel对象
eole.Workbooks.Add && 添加新工作簿
eole.Worksheets("sheet2").Activate&&激活第二个工作表为工作区域
Use dc3ls In 0 &&向表中写入DBF数据
Select dc3ls
Scan
For lnI=1 To Fcount()
eole.ActiveSheet.cells[Recno(),lnI].Value=Evaluate(Fields(lnI))
Endfor
Endscan
Use
eole.ActiveSheet.UsedRange.Select &&选中有已用区域的数据，防止已用区域前有空行或空列
eole.Selection.BorderS(1).LineStyle=1&&左 细实线
eole.Selection.BorderS(2).LineStyle=1&&右 细实线
eole.Selection.BorderS(3).LineStyle=1&&顶 细实线
eole.Selection.BorderS(4).LineStyle=1&&底 细实线
eole.activeworkbook.SaveAs("d:\学生日常管理\导出XLS\a03.xls") &&改名存盘
eole.workbooks.Close&&关闭工作簿
Release eole