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

aman1516

perfect131 发表于 2023-9-3 12:47
Set xlApp = GetObject(, "Excel.Application") ''已经打开的 excel对象
Set MyXL = GetObject(fpth)    ' ...

两者兼容性还是有出入的，所以两个都装的电脑，
使用过程中还是问题多多，
很多非正规单位，WPS也是D版而非个人完全版或企业版，VBA都用不了
凡是要钱才能解决的问题都是问题

wxhnr

Sub aa()
Shell "C:\Program Files\Kingsoft\WPS Office Personal\office6\et.exe P:\工作目录\成本.xls"
End Sub

aman1516

2007EXCEL路径应是：
　C:\Program Files (x86)\Microsoft Office\Office12＼EXCEL.EXE
系统版本不同会有所不同，用个自定义函数识别更好些：

1. 
   
2. Function GetAppPath(AppName As String)
   
3.     AppName = VBA.UCase$(AppName)
   
4.     If VBA.Right$(AppName, 4) <> ".EXE" Then AppName = AppName & ".EXE"
   
5.     Dim WSH As Object
   
6.     Set WSH = CreateObject("Wscript.Shell")
   
7.     On Error Resume Next
   
8.     GetAppPath = WSH.REGREAD("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\App Paths" & AppName & "\Path")
   
9.     If Err.Number <> 0 Then GetAppPath = "没有找到[" & AppName & "]的安装路径"
   
10.     On Error GoTo 0
    
11.     Set WSH = Nothing
    
12. End Function

复制代码

lujkhua

无效回复，请忽略...

caiyu93

在注册表里修改xlsm文件的默认行为,临时改为office,用完最后再改回去就行了.具体的位置,可以尝试ctrl+f 搜一下.xlsm或者.xlsx之类的

marchwen01

希望能找到完美解决方法，我也有这样的困扰/

aman1516

marchwen01 发表于 2023-11-11 18:36
希望能找到完美解决方法，我也有这样的困扰/

装了双系统，及文件双经常需不同电脑上使用的，都有可能出现主种情况，
特别是 双系统、PPT调用EXCEL文件数据 时，
头痛...

半夏知秋

楼主，最终这个问题解决了吗？如果有，能具体细说下VBA的方法吗？

lss001

详细的见以下楼代码

aman1516

lss001 发表于 2023-11-20 16:29
https://www.xin3721.com/Articlevb/vb7857.html

感谢关注，学习了不少知识。
但本贴的要求并不是要求改变文件关联方式，或去设置默认打开方式，
相反，前提就是保持原有的文件关联或默认打开方式不变（例如为WPS，以免改成Office后，反又造成不便）
除非是更改后，执行代码，又再改回去；
——还是如题：不管原来是什么方式，仅在运行代码时强制以Office打开，执行完毕后，不对电脑中原文档关联、默认打开方式等作任何改变。