各位大侠，我用sum [字段名] to x
在vfp6.0里纵向求和 结果显示在界面上，
现在我想把结果显示在excel或word上
怎么实现，谢谢！

sele sum(字段名) 字段名 from 表 into curs temp
copy to 文件名 type xls

[ 本帖最后由 tlliqi 于 2013-9-18 15:48 编辑 ]

USE 表名
SUM yw to x

*写入Excel文档
eole=CREATEOBJECT("excel.application")
eole.Workbooks.add   &&新建文档
*eole.Workbooks.Open(GETFILE("xls"))  &&打开已有文档
eole.Range("A1:A1").FormulaR1C1 = x
eole.ActiveWorkbook.close(.t.)

*写入Word文档
ow=CREATEOBJECT("WORD.APPLICATION")
ow.Documents.add()   &&新建文档
*ow.Documents.Open(GETFILE())&&打开已有文档
ow.Selection.Text=x
ow.ActiveDocument.Save
ow.Quit

很好，新手一般都是只管发帖，发完帖子就走了，不知道结贴的重要性，最终还是让系统自动结贴了，这种帖子没有什么回答的必要了。

USE 表名
SUM yw to x
STRTOFILE(TRANSFORM(X),[SUM.XLS])
STRTOFILE(TRANSFORM(X),[SUM.DOC])
CLOSE DATABASE

热心者众

大师：感谢您的解答，但现在有一个问题是我想
把四十个纵向和在一个excel表里表现出来，怎么办？
谢谢！

CLOSE TABLES
USE 表
dime n(FCOUNT())
FOR i=1 TO FCOUNT()
n(i)=FIELD(i)
endf
SELECT SUM(&n(1).) &n(1).,SUM(&n(2).) &n(2).,...SUM(&n(40).) &n(40). FROM 表 into curs temp
copy to 文件名 type xls

SELECT SUM(&n(1).) &n(1).,SUM(&n(2).) &n(2).,...SUM(&n(40).) &n(40). FROM 表 into curs temp
执行时会被提示“缺乏表达式”

http://bbs.bccn.net/thread-420752-1-1.html 5楼已答