ＶＦＰ调用EXCEL，将一列字体设置为蓝色。语句：ox.ActiveSheet.Columns(7).forecolor=RGB(0,0,255)
可是，运行后字体颜色没有变化。请问该如何修改？

oExcel = CREATEOBJECT("Excel.Application")
WITH oExcel
    .Visible = .T.
    .Workbooks.Add(-4167)
    .Cells(1, 1).Resize(3, 4).Value = 1
    .Cells(1, 2).Resize(3, 1).Font.Color = RGB(0, 0, 255) && 设置第 2 列有数据的区域字体为为蓝色
ENDWITH

ox.ActiveSheet.Cells(1, 1).Resize(3, 4).Value = 1
ox.ActiveSheet.cells(1,2).font.color=RGB(0,0,255)
运行结果把A１：Ｄ４都改成１了。关键是ox.ActiveSheet.Cells(1, 1).Resize(3, 4).Value = 1这句没理解。问了度娘，她也没告诉我什么意思：）
sdta，能再给我明确点指导一下吗？

将 A1:D3 区域中的所有单元格赋值为 1，只是个示例而已。

你这么一说，Cells(1, 1).Resize(3, 4).这句我想起来了，谢谢！
但我这句没效果：ox.ActiveSheet.cells(1,2).font.color=RGB(0,0,255)
应该怎么改？请指点，谢谢！

ox.ActiveSheet.cells(1,2).Resize(3,1).font.color=rgb(0,0,255)

[此贴子已经被作者于2019-5-18 22:59编辑过]

ox.ActiveSheet.cells(1,2).font.color=RGB(0,0,255)
只能使B2单元格的字符变为蓝色

sdta，实现了。真的非常感谢你！我的这个小程序里的一些关键问题，都是在你的指点下解决的。再次感谢！！

只需要把ox.ActiveSheet.Columns(7).forecolor=RGB(0,0,255)
改为ox.ActiveSheet.Columns(7).font.color=RGB(0,0,255)即可达到你的目的。

对EXCEL2003来言，那可是65536行啊