一事一问，发个新贴。
我打开一个文件，这个文件可能是WPS的，也可能是EXCEL的。要判断一下，如果是WPS的，就另存为XLSX文件，并且打开这个XLSX文件。
下列代码有问题，出不来结果：
DECLARE long IsWindowVisible IN user32 long
Wps=Createobject("ket.application")
*Wps=getobject(,"ket.application")
wps.Visible = 1
DO WHILE IsWindowVisible(wps.hWnd)!= 0
*    M_File=wps.activesheet.name   &&获取文件名
    M_File=wps.Workbooks.name   &&获取文件名
    ?M_file
    Wps.Workbooks.SaveAs(&lj\usertable\M_File.xlsx)
    Wps.Workbooks.Open(&lj\usertable\M_File.xlsx)
ENDDO
请帮忙修改，谢谢！！

谢谢！

基本完成了。成功另存为了XLSX文件，但这个文件只可以用WPS手动打开，
Wps.Workbooks.Open("&lj\usertable\&M_File..xlsx") 打不开。excel手动或代码都打不开。

不知是何原因？

谢谢nbww！我再试试。

终于完成了！不管收到的是.XLSX还是.ET，都可以了。
代码如下：
Try
     oExcel = getobject(,"excel.application")
     M_File=oExcel.activeworkbook.name   &&获取文件名
Catch
    Try
       oExcel=getobject(,"ket.application")
       M_File=oExcel.activeworkbook.name   &&获取文件名：qqq.et
       M_File=substr(M_file,1,LEN(M_file)-3)
       oExcel.DisplayAlerts = .F.
       oExcel.activeWorkbook.SaveAs("&lj\usertable\&M_File..xlsx",51)
       oExcel.DisplayAlerts = .T.
       oExcel.Workbooks.Open("&lj\usertable\&M_File..xlsx")
    CATCH
        =MESSAGEBOX("请打开一个信息采集表！",0+48,"提醒！")
        CANCEL
    ENDTRY
EndTry

谢谢大家，特别是nbww！！