- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 没有应用程序与此操作的指定文件有关联 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171695)
-- 发布时间：2021/9/6 9:12:00
-- 没有应用程序与此操作的指定文件有关联
Dim r As Row = Tables(eform.name & "_table1").Current
Dim fs As String= ProjectPath & "***\\****.xls"
If FileSys.FileExists(fs) Then
Dim Book As New XLS.Book(fs)
Dim fl As String = ProjectPath & "OutPut\\" & r("**") & "**.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
sheet(0,0).Value = r("**")
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
\'Proc.Verb = "Print" \'指定动作 为什么加上这句就提示 没有应用程序与此操作的指定文件有关联。 不加此句正常可以打开
Proc.Start()
End If
-- 发布时间：2021/9/6 9:15:00
--
文档应该没有关联execl，而是关联wps。wps的打印参数可能不是Print
-- 发布时间：2021/9/6 9:21:00
--
是这个地方的关联么,假如是这里就关联了
此主题相关图片如下：c0030e0f-46bd-4312-bb69-877fdb4c355e.png
此主题相关图片如下：dingtalk_20210906092656.jpg
[此贴子已经被作者于2021/9/6 9:27:27编辑过]
-- 发布时间：2021/9/6 9:22:00
--
诡异的是不加 Proc.Verb = "Print" 就没有问题
-- 发布时间：2021/9/6 9:27:00
--
直接双击xls文件打开的是微软的execl？还是wps？
-- 发布时间：2021/9/6 9:28:00
--
execl
此主题相关图片如下：dingtalk_20210906092656.jpg
[此贴子已经被作者于2021/9/6 9:31:37编辑过]
-- 发布时间：2021/9/6 9:36:00
--
试试卸载wps，如果还有问题，应该是微软更改了打印参数
-- 发布时间：2021/9/6 9:56:00
--
改了vba打印咋wps冒出来了呢,应该是还是哪个地方没有对.
此主题相关图片如下：qq截图20210906095354.png
-- 发布时间：2021/9/6 10:00:00
--
应该还是wps作怪，试试卸载wps
-- 发布时间：2021/9/6 14:06:00
--
详细错误信息：
调用的目标发生了异常。
无法将类型为“Microsoft.Office.Interop.Excel.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Excel._Application”。此操作失败的原因是对 IID 为“{000208D5-0000-0000-C000-000000000046}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 加载类型库/DLL 时出错。 (异常来自 HRESULT:0x80029C4A (TYPE_E_CANTLOADLIBRARY))。