以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  EXECL报表能否默认用WPS打开？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185275)
--  作者：jiterp
--  发布时间：2023/2/14 8:30:00
--  EXECL报表能否默认用WPS打开？
操作系统是WIN10的，同时装了OFFICE和WPS，在WIN环境xls默认了WPS打开方式，但在狐表项目预览时，还是调用的office打开，可以代码指定WPS打开XLS文件进行预览吗？
[此贴子已经被作者于2023/2/14 8:30:30编辑过]
--  作者：有点蓝
--  发布时间：2023/2/14 8:43:00
--  
怎么做预览的？

试试到WPS的配置工具把兼容设置都勾选上
--  作者：jiterp
--  发布时间：2023/2/14 8:54:00
--  
WPS配置工具设了兼容，下面预览代码

Dim Book As New XLS.Book(printdir)
Dim fl As String = ProjectPath & "Reports\\" & print & ".xls"
Book.Build()
Book.Save(fl)
Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
App.Visible = True
ShowAppWindow("" & print & "",2)
Ws.PrintPreview
App.Quit
--  作者：有点蓝
--  发布时间：2023/2/14 9:21:00
--  
如果使用的是MSExcel.Application，这个没有办法控制，因为这个类型本身就是来自office的组件。
--  作者：jiterp
--  发布时间：2023/2/14 11:46:00
--  
改为process做不了打印预览，有什么办法吗？
--  作者：有点蓝
--  发布时间：2023/2/14 11:47:00
--  
没有办法，只能打开文件后再点击预览