电脑只安装了最新版的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编辑过]