VFP控制EXCEL

[xilaianzxsc]

VFP控制EXCEL

A2:R1000之间,画上细实线的表格线,其他地方,不需要表格线.

如何弄的?

[十豆三]

lcFileName='C:\TEST.XLS'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
oExcel.Visible=.T.
oExcel.ActiveSheet.Range("A2:R1000").BorderS(1).LineStyle=1 &&左 细实线
oExcel.ActiveSheet.Range("A2:R1000").BorderS(2).LineStyle=1 &&右 细实线
oExcel.ActiveSheet.Range("A2:R1000").BorderS(3).LineStyle=1 &&顶 细实线
oExcel.ActiveSheet.Range("A2:R1000").BorderS(4).LineStyle=1 &&底 细实线
MESSAGEBOX("看一下效果",64,"信息提示")
oExcel.ActiveWorkbook.Save &&存盘
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量

[十豆三]

以上这个在我的<VFP全面控制EXCEL>Blog中都有
http://blog.csdn.net/apple_8180/archive/2006/04/22/672913.aspx