如何将dbf数据批量写入Excel模板（空表）文件中，其中数据小于60红色显示，数据大于等于60黑色显示，望大侠帮忙，万分感谢。

数据小于60红色显示，数据大于等于60黑色显示

这个可以在模板中事先做好的——EXCEL的单元格格式设置

写入EXCEL时判断：数值小于60，字体颜色设为红色，数值大于等于60，则为默认黑即可。

希望这个资料能够帮助你。

谢谢！

* test.prg

public m.goexcel as excel.application
m.goexcel = createobject("excel.application")
m.goexcel.visible= .t.
m.goexcel.workbooks.add()

with m.goexcel.activesheet
    rand(-1)
    for m.i=1 to 100
        .cells(m.i,1).value=ROUND(58+4*rand(),1)
        .cells(m.i,2).value=ROUND(58+4*rand(),1)
        .cells(m.i,3).value=ROUND(58+4*rand(),1)
        .cells(m.i,4).value=ROUND(58+4*rand(),1)
    next
endwith

with m.goexcel.activesheet
    for  m.j=1 to 4                       
        for m.i=1 to 100
            if .cells(m.i,m.j).value<60
               .cells(m.i,m.j).font.color = 250
            endif
        next
    next
endwith

[此贴子已经被作者于2018-1-21 13:58编辑过]

谢谢了

学习了。谢谢！

学习后再看看