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编辑过]

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