怎样用vfp6.0的命令打开excel的表 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 怎样用vfp6.0的命令打开excel的表

标题：怎样用vfp6.0的命令打开excel的表

只看楼主

b土木丁口

等　级：论坛游侠
帖　子：264
专家分：189
注　册：2013-9-12
结帖率：97.5%

楼主

已结贴√ 问题点数：20 回复次数：7

怎样用vfp6.0的命令打开excel的表

怎样用vfp6.0的命令打开excel的表
谢谢！

搜索更多相关主题的帖子: excel　

2013-12-08 16:19

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 2 楼

得分:5

程序代码：

oXLS=CREATEOBJECT('excel.application')
oXLS.WorkBooks.Open('c:\asd\aa.xls',0,.t.)
oXLS.DisplayAlerts=.f.
oXLS.visible=.t.
FOR EACH ii IN =.f.
next

2013-12-08 16:48

b土木丁口

等　级：论坛游侠
帖　子：264
专家分：189
注　册：2013-9-12

第 3 楼

得分:0

如：e:\表1
怎么打开
谢谢
能简单点吗

2013-12-08 16:55

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 4 楼

得分:0

改：c:\asd\aa.xls 为 e:\表1.xls

2013-12-08 17:21

b土木丁口

等　级：论坛游侠
帖　子：264
专家分：189
注　册：2013-9-12

第 5 楼

得分:0

我还是没搞懂

2013-12-08 21:05

Eric1111

等　级：论坛游民
威　望：1
帖　子：183
专家分：88
注　册：2013-11-25

第 6 楼

得分:5

回复 5楼 b土木丁口

他的意思是找路径，我只知道导入导出，不知道对你有没有用，我给你一些我以前收集到的代码吧，你看看能不能用。
VFP6.0和WPS的excel
导入：
use 表
zap
*use 表-----取消
APPEND FROM GETFILE('XLS', '','', 0, '选择一个EXCEL文件') TYPE XL5 &&或XL8
use 表
DELETE FOR RECNO()=1
PACK
brow
导出：
**点击窗口-数据工作期-打开需要导出数据的表（独占）-关闭窗口-点击文件-导出-类型：microsoft excle 5.0-文件：你需要的excel中-确定
close all
USE 表 IN 0 EXCLUSIVE
COPY TO 表格 TYPE XL5
DELETE FOR RECNO()=1
PACK
BROWSE

2013-12-09 09:36

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 7 楼

得分:5

myeole=CREATEOBJECT("Excel.application")
WITH myeole
    .Workbooks.open("e:\表1.xls")
    .Visible=.t.
    .DisplayAlerts = .F.
*    .ActiveWorkbook.Close(.t.)
*    .quit
ENDWITH

相互学习，互相交流，共同提高。

2013-12-09 10:20

qjbzjp

来　自：尧的故乡
等　级：贵宾
威　望：48
帖　子：1914
专家分：4397
注　册：2007-3-14

第 8 楼

得分:0

或者选择打开任意路径下的Excel文件：
myeole=CREATEOBJECT("Excel.application")
WITH myeole
    .Workbooks.open(getfile("xls")) &&打开指定路径下的工作簿
    .Visible=.t.
    .ActiveWorkbook.Close(.t.)
    .quit                     &&退出Excel
ENDWITH
RELEASE myeole              &&释放变量以真正退出 Excel

[ 本帖最后由 qjbzjp 于 2013-12-9 10:26 编辑 ]

相互学习，互相交流，共同提高。

2013-12-09 10:20

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