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


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

主题：没有应用程序与此操作的指定文件有关联
帅哥哟，离线，有人找我吗？
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
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20210906095354.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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))。
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：700 积分：6224 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/9/6 15:03:00 [显示全部帖子]

重新安装office报错依旧,用方法一:外部程序可以打印了,方法二:VBA方式一直报错
 方法一: 可以了
Dim Proc As New Process
    Proc.File = fl
    Proc.Verb = "Print" '指定动作
    Proc.Start()

   方法二:依旧报错

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
Ws.PrintPreview(False)  '打印预览。执行该方法时，如果将参数设为False，则不允许在预览时进行打印设置
'Ws.PrintOut
App.Quit

百度了一下 是这个原因  有点看不懂
https://bbs.csdn.net/topics/120093858
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：700 积分：6224 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/9/6 21:39:00 [显示全部帖子]

用下面的代码仅仅打开打印就显示修改 要求保存
由于要连续打印 这个提示很不友好!  这是什么缘故导致的呢

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
'Ws.PrintPreview(False)  '打印预览.执行该方法时,如果将参数设为False,则不允许在预览时进行打印设置
Ws.PrintOut
App.Quit


图片点击可在新窗口打开查看此主题相关图片如下：dingtalk_20210906213547.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：700 积分：6224 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/9/7 8:15:00 [显示全部帖子]

去掉后还是提示保存,就打开打印

图片点击可在新窗口打开查看此主题相关图片如下：dingtalk_20210907081302.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
chen_sheng
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：700 积分：6224 威望：0 精华：0 注册：2018/5/10 9:05:00 		  发帖心情 Post By：2021/9/7 9:59:00 [显示全部帖子]

又发生了下面的问题
详细错误信息：
调用的目标发生了异常。
Office 检测到此文件存在一个问题。要帮助保护您的计算机，不能打开此文件。
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07422 秒, 5 次数据查询