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

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

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

非常感谢，问题解决了