Foxtable(狐表)用户栏目专家坐堂 → 没有应用程序与此操作的指定文件有关联


  共有3668人关注过本帖树形打印复制链接

主题:没有应用程序与此操作的指定文件有关联

帅哥哟,离线,有人找我吗?
chen_sheng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6224 威望:0 精华:0 注册:2018/5/10 9:05:00
没有应用程序与此操作的指定文件有关联  发帖心情 Post By: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

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110567 积分:562725 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/6 9:15:00 [只看该作者]

文档应该没有关联execl,而是关联wps。wps的打印参数可能不是Print

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6224 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/9/6 9:21:00 [只看该作者]

是这个地方的关联么,假如是这里就关联了

图片点击可在新窗口打开查看此主题相关图片如下:c0030e0f-46bd-4312-bb69-877fdb4c355e.png
图片点击可在新窗口打开查看



图片点击可在新窗口打开查看此主题相关图片如下:dingtalk_20210906092656.jpg
图片点击可在新窗口打开查看


[此贴子已经被作者于2021/9/6 9:27:27编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6224 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/9/6 9:22:00 [只看该作者]

诡异的是不加 Proc.Verb = "Print" 就没有问题

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110567 积分:562725 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/6 9:27:00 [只看该作者]

直接双击xls文件打开的是微软的execl?还是wps?

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6224 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/9/6 9:28:00 [只看该作者]

execl

图片点击可在新窗口打开查看此主题相关图片如下:dingtalk_20210906092656.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2021/9/6 9:31:37编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110567 积分:562725 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/6 9:36:00 [只看该作者]

试试卸载wps,如果还有问题,应该是微软更改了打印参数


 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6224 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By:2021/9/6 9:56:00 [只看该作者]

改了vba打印咋wps冒出来了呢,应该是还是哪个地方没有对.

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210906095354.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110567 积分:562725 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/6 10:00:00 [只看该作者]

应该还是wps作怪,试试卸载wps

 回到顶部
帅哥哟,离线,有人找我吗?
chen_sheng
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:700 积分:6224 威望:0 精华:0 注册:2018/5/10 9:05:00
  发帖心情 Post By: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))。

 回到顶部
总数 21 1 2 3 下一页