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

aman1516

如题，现时不少电脑由于N多原因，不得不同时装有WPS和 Office Excel，
所以，当在PPT中用：
fpth="D:\XXX\PPT\XXX.xlsx"

Set xlApp = GetObject(, "Excel.Application")
Set MyXL = GetObject(fpth)  
或 Set MyXL = xlApp.Workbooks.Open(fpth)
打开一个Excel文件时，有时就会出现是WPS方式打开而提取不到数据情况。


也知道在WPS设置、或文件属性的“打开方式”等方面更改设置，是可以指定默认打开方式的，但有时灵有时不灵；


或者换一台电脑时又不行（总不能每个使用者都要自己设置一通吧），
因此，能否 在VBA代码中强制只能用 Office Excel 打开 文件呢？

aman1516

难道要用 Shell ~Excel.exe ?
但这对打开后提取数据、处理后关闭等似乎很麻烦...

ykcbf1100

鼠标右键单击工作簿——打开方式——选择其它打开方式——选择excel——选择始终。这样设置过后，再双击工作簿文件就只是EXCEl打开工作簿了。

aman1516

ykcbf1100 发表于 2023-9-1 19:41
鼠标右键单击工作簿——打开方式——选择其它打开方式——选择excel——选择始终。这样设置过后，再双击工 ...

有面说过了，这样设置，有的行有的不行，要在WPS里面设置......
有的软件，那怕你只用过一次，你都不知它会在后台干了些什么，
其二，就算这样设置了，关键是：
假如文件发给别人用，也是“双版本”系统，总不能每个都叫别人慢慢去设置，
或者别人只习惯使用WPS情况下，总不能因为使用到这个文件就改来改去吧。
麻烦......

Lovertdos

要在WPS配置工具里面设置的，取消与OFFIC文件兼容

aman1516

Lovertdos 发表于 2023-9-2 14:22
要在WPS配置工具里面设置的，取消与OFFIC文件兼容

谢谢关注，这里问的不是怎样设置的问题
设置完之后，对于只习惯使用WPS的，打开方式默认为Office Excel 了，不是又不方便了吗，
就是不想搞到要设置来设置去，而是希望用VBA指定打开，一了百了
另外，发给别人用，遇到这种情况也不用再教别人设置一通才能用，不出错

Lovertdos

你这问题有点莫名其妙，对于喜欢ms的，只要用过一次，电脑上设置的肯定是MS。同理喜欢WPS，肯定是调用WPS。只需要设置一次终身受用。因为这个设置是系统级的，只能手动设置，VBA代码无法干预。
归根结底还是你这代码有问题，为啥不写成兼容WPS低版本的

perfect131

Lovertdos 发表于 2023-9-3 09:49
你这问题有点莫名其妙，对于喜欢ms的，只要用过一次，电脑上设置的肯定是MS。同理喜欢WPS，肯定是调用WPS。 ...

只要是能 手动设置的 都可以用代码实现，只不过有些网上没有案例，需要自己摸索

cidanji

.            

perfect131

Set xlApp = GetObject(, "Excel.Application") ''已经打开的 excel对象
Set MyXL = GetObject(fpth)    ''直接获取 已打开文件 。所以先判断是不是 用wps打开的，是的话 关闭文件 用xlApp.Workbooks.Open打开
或 Set MyXL = xlApp.Workbooks.Open(fpth) ''这个应该不会 wps打开