根据需要从DBF随机选取若干字段的数据导入EXCEL中,所以,在导入时最后单元格的列号不能确定。
数据导入已经实现,没有问题。我只是想给导入的数据行单元格设置边框,但不想一个单元格一个单元格设置,而是一行一行设置。
比如:我根据需要选取的DBF字段数存入变量X,根据条件要导入EXCEL的记录数存入变量Y
Excel第一行导入的是字段名(标题行),从第二行导入数据
i=0
scan
if 导入条件
i=i+1
for j=1 to X
oExcel.ActiveSheet.Cells(i+1,i).Borders(1).LineStyle = 1
oExcel.ActiveSheet.Cells(i+1,i).Borders(2).LineStyle = 1
oExcel.ActiveSheet.Cells(i+1,i).Borders(3).LineStyle = 1
oExcel.ActiveSheet.Cells(i+1,i).Borders(4).LineStyle = 1
endfor
endif
endscan
以上是我目前用的方法,是一个格一个设置,就是影响运行速度。
我想把这个设置放在for循环外,给一行连续单元格设置边框,这个连续单元格数目不确定,即用X来代表的。
在Excele中用Vba编程时,可表示为Range(Cells(i+1,1),Cells(i+1,X)),但在VFP中这是错误的,不知正确的应该
如何写。
[
本帖最后由 iamhyf 于 2013-12-20 22:06 编辑 ]