[求助]如何将报表预览中的内容输出到EXCEL? - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → [求助]如何将报表预览中的内容输出到EXCEL?

标题：[求助]如何将报表预览中的内容输出到EXCEL?

只看楼主

sptjzwg

等　级：新手上路
帖　子：4
专家分：0
注　册：2007-2-25

楼主

问题点数：0 回复次数：4

[求助]如何将报表预览中的内容输出到EXCEL?

E如何将报表预览中的内容输出到EXCEL?

[此贴子已经被作者于2007-2-27 10:33:54编辑过]

搜索更多相关主题的帖子: EXCEL　预览　输出　

2007-02-25 08:24

fown

等　级：贵宾
威　望：58
帖　子：1229
专家分：171
注　册：2005-5-26

第 2 楼

得分:0

不好意思,本人水平低,没听说过EXCL

有人说VFP不行了，我想说，你连VFP十分之一的功能都不会用，你怎么知道VFP不行？本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解

2007-02-25 15:29

songyuyu

等　级：贵宾
威　望：47
帖　子：6090
专家分：25
注　册：2007-1-17

第 3 楼

得分:0

自己先看看这些:http://bbs.bc-cn.net/viewthread.php?tid=21139

我喝水只喝纯净水，牛奶只喝纯牛奶，所以我很单纯……

2007-02-26 13:41

sptjzwg

等　级：新手上路
帖　子：4
专家分：0
注　册：2007-2-25

第 4 楼

得分:0

运行第一行的时候就说找不到别名Excel怎么办啊?(我是单独把这个做为一段程序来运行的)

2007-02-27 10:50

songyuyu

等　级：贵宾
威　望：47
帖　子：6090
专家分：25
注　册：2007-1-17

第 5 楼

得分:0

不能单独运行的:
贴个简单的
IF MESSAGEBOX("确定要导出数据吗?",4+32,"提示")=6
m.outfilename=PUTFILE("excel文件名:","表","xls")
ENDIF

ef=CREATEOBJECT("Excel.application")
ef.workbooks.add
ef.worksheets('sheet1').activate
ef.visible=.t.

WITH ef.range("a1")
.value="表"
.font.size=12
.HorizontalAlignment =3
ENDWITH

ef.ActiveWorkbook.SaveAs(outfilename)
ef.workbooks.close
ef.quit

我喝水只喝纯净水，牛奶只喝纯牛奶，所以我很单纯……

2007-02-27 11:48

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-121580-1-1.html