装有WPS，能否用VBA强制以OFFICE EXEL方式打开文件

amao47kiki2

我给个思路，就是用让这个用vba破坏wps的注册表，或删除wps的某个文件导致只要是电脑安装了wps，wps都会毁坏，打不开。这样自然而然就只能用excel打开了

lss001

Sub 强制或指定方式打开文件()

    Dim f, p&
    f = ActiveWorkbook.Path & "\123.xlsx"
    p = Shell("Excel.exe " & f , 0)

End Sub

perfect131

装 wps 测试了一下, 用 open打开就可以

aman1516

perfect131 发表于 2023-11-22 13:41
装 wps 测试了一下, 用 open打开就可以

感谢帮忙，上班尽量用不同电脑、不同版本及设定状态下测试看还有什么问题再反馈

fxl447098457

忘了clsid的唯一性了么？试试这样 。
set excelapp=CreateObject("new:{00024500-0000-0000-C000-000000000046}")

micch

1. Sub test()
   
2.     Dim iApp As Application
   
3.     Dim wb As Workbook
   
4.     pth = "D:\物料库存.xls"
   
5.     Set iApp = Excel.Application
   
6.     Set wb = iApp.Workbooks.Open(pth)
   
7. End Sub

复制代码

本地电脑测试，WPS里执行这个代码，打开文件是Excel窗口。

aman1516

micch 发表于 2023-11-26 16:42
本地电脑测试，WPS里执行这个代码，打开文件是Excel窗口。

WPS打开倒没试过（不是专业版或个人完全版），我这是在PPT里的应用，
其二，前提是WPS里已设置是PWS为默认打开方式的情况下也可以吗
一小个方便大家工作的通用代码还遇到不小问题

micch

aman1516 发表于 2023-11-26 19:10
WPS打开倒没试过（不是专业版或个人完全版），我这是在PPT里的应用，
其二，前提是WPS里已设置是PWS为默 ...

不懂具体什么影响的。我把表格文件设置为默认程序是WPS，在WPS里和Excel里，指定了Excel.application后打开都是Excel打开。

不懂具体什么原理，可能还是和后台的什么设置有关。

aman1516

如果原来下面两种情况都设置了的话，还是只在wps中打开的（或许问题只在低版本中，高版本已不存在了）：



罢了，不纠结了...用其他方式解决处理算了

半夏知秋

https://club.excelhome.net/thread-1678063-1-1.html 楼主，可以看看这个帖子，对你是否有帮助