编程论坛 → VFP论坛

源码运行正常，编译后出错？

wxzd123 发布于 2023-02-27 21:45， 676 次点击

command1代码
excel_m=Createobject('Excel.application')
excel_m.Workbooks.Open(Sys(5)+Sys(2003)+"\Book1.xls")
excel_m.Visible=.T.

command2代码
wps_m=Createobject('KET.application')
wps_m.Workbooks.Open(Sys(5)+Sys(2003)+"\Book1.xls")
wps_m.Visible=.T.

系统装wps,源码运行command1和command2都好用
编译exe后，都出错

只有本站会员才能查看附件，请登录

只有本站会员才能查看附件，请登录

但编译后在装有excel都机器上command1好用
问题出在哪？谢谢

[此贴子已经被作者于2023-2-27 21:46编辑过]

4 回复

#2

吹水佬2023-02-27 22:44

两个都不是VFP的东西

#3

csyx2023-02-28 02:33

查查你的 OLEOBJECT 设置，Set('OLEOBJECT') 正常应返回 ON

#4

wxzd1232023-02-28 07:10

LPARAMETERS szParam
IF (_VFP.STARTMODE == 4) AND (VARTYPE(szParam) != "C")
    ASTACKINFO(aPrg)
   oApp = CREATEOBJECT("Shell.Application")
   oApp.ShellExecute(aPrg[2], "以管理员身份运行", "", "runas", 1)
  QUIT
ENDIF
跟这段代码有关？去掉就好了

#5

pvm20002023-02-28 10:01

以下是引用wxzd123在2023-2-28 07:10:02的发言：

LPARAMETERS szParam
IF (_VFP.STARTMODE == 4) AND (VARTYPE(szParam) != "C")
    ASTACKINFO(aPrg)
   oApp = CREATEOBJECT("Shell.Application")
   oApp.ShellExecute(aPrg[2], "以管理员身份运行", "", "runas", 1)
  QUIT
ENDIF
跟这段代码有关？去掉就好了

得装WPS

1