安装了最新版的WPS，在VFP无法打开EXCEL格式的文件，如何解决？ - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 安装了最新版的WPS，在VFP无法打开EXCEL格式的文件，如何解决？

我的收件箱(0)

共有 104 人关注过本帖

标题：安装了最新版的WPS，在VFP无法打开EXCEL格式的文件，如何解决？

只看楼主加入收藏

asis

等　级：新手上路
威　望：1
帖　子：44
专家分：7
注　册：2022-9-6
结帖率：81.82%

楼主

问题点数：20 回复次数：2

安装了最新版的WPS，在VFP无法打开EXCEL格式的文件，如何解决？

电脑只安装了最新版的WPS，没有安装OFFICE软件，目前用以下命令无法直接打开EXCEL格式的文件，请问如何能解决？

llerror=.f.
on error llerror=.t.
ef=createobject("excel.application")
if llerror=.t.
llerror=.f.
ef=Createobject("ket.Application")
endif
if llerror=.t.
llerror=.f.
ef=Createobject("et.Application")
endif
if llerror=.t.
llerror=.f.
ef=CREATEOBJECT("KWPP.Application")
endif
if llerror=.t.
WAIT CLEAR
MessageBox( "您这台电脑没有安装Excel, 也没有安装WPS, 因此无法打开EXCEL表！ ",48,"错误提示")
return
endif

CDIR1='D:\原材料表.XLSX'
ef.workbooks.Open('&CDIR1')
ef.ActiveWindow.WindowState=2
WAIT CLEAR
ef.visible=.t.

[此贴子已经被作者于2025-12-22 16:54编辑过]

搜索更多相关主题的帖子: application　if　打开　安装　 EXCEL　

前天 16:53

wengjl

等　级：贵宾
威　望：109
帖　子：2360
专家分：4217
注　册：2007-4-27

第 2 楼

得分:0

以下是引用asis在2025-12-22 16:53:20的发言：

电脑只安装了最新版的WPS，没有安装OFFICE软件，目前用以下命令无法直接打开EXCEL格式的文件，请问如何能解决？

llerror=.f.
on error llerror=.t.
ef=createobject("excel.application")
if llerror=.t.
llerror=.f.
ef=Createobject("ket.Application")
endif
if llerror=.t.
llerror=.f.
ef=Createobject("et.Application")
endif
if llerror=.t.
llerror=.f.
ef=CREATEOBJECT("KWPP.Application")
endif
if llerror=.t.
WAIT CLEAR
MessageBox( "您这台电脑没有安装Excel, 也没有安装WPS, 因此无法打开EXCEL表！ ",48,"错误提示")
return
endif

CDIR1='D:\原材料表.XLSX'
ef.workbooks.Open('&CDIR1')
ef.ActiveWindow.WindowState=2
WAIT CLEAR
ef.visible=.t.

安装Excel后，问题就会得到解决的！