请问关于VFP控制EXCLE边框线条的小问题

fanjinyu9108 发布于 2020-11-28 16:59， 1087 次点击

比如给EXCEL表划线oExcel.ActiveSheet.Range("a1:s100").Borders.Weight=2 ，其中S100可以写成一个变量吗，因为从DBF导出来的表事先并不知道有多少行

3 回复

sdta2020-11-28 17:24

DBF表的行数等于RECCOUNT()
    .ActiveSheet.UsedRange.Select
    *画框
    WITH .Selection
        .Borders.LineStyle = 1
        .Borders.ColorIndex = 37
        .BorderAround(-4119,,37)
        .Rows.RowHeight = oExcel.CentimetersToPoints(1.0)
    ENDWITH
自己试试

sdta2020-11-28 17:25

Range("a1:s" + transform(reccount()))

fanjinyu91082020-11-30 20:09

非常感谢，问题解决了