Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


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

主题：[求助]
帅哥哟，离线，有人找我吗？
swimmer01
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		[求助]  发帖心情 Post By：2020/12/7 21:27:00 [只看该作者]

老师，您好！
以下代码运行时，打开word程序启动了，但没打开文件。如果将.doc换成.docx，出现找不到文件（注：在同一位置两种文件都有）的提示！不知咋会事，请指点！（本人装的是MS Office 2007）
'****************复制模板文件
Dim ywjj As String = ProjectPath & "Attachments\模板文件\项目工作\"     '源文件夹
Dim mwjj As String = SpecialFolder.DesktopDirectory & "\" & _Xm_No & "\项目管理\"   '目标文件夹
Dim wjm As String = "项目协调程序.doc"   '模板文件名
Dim mwjm As String = "项目协调程序.doc"   '目标文件名
Dim File As String = mwjj & mwjm
FileSys.CopyFile(ywjj & wjm,mwjj & mwjm,True)

'***************打开文件
Dim Proc As New Process   '定义一个新的Process
Proc.File = File            '指定要打开的文件
Proc.Start()
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/7 21:43:00 [只看该作者]

调试看弹出的路径是否正确
……
Dim File As String = mwjj & mwjm
msgbox(ywjj & wjm)
msgbox(File )
FileSys.CopyFile(ywjj & wjm,File ,True)
msgbox(FileSys.FileExists(File))
 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 21:54:00 [只看该作者]

刚测试了，路径好像是正确

 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 21:56:00 [只看该作者]

打开文件夹没问题

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


加好友 发短信
等级：超级版主 帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/7 21:58:00 [只看该作者]

对就对，不对就不对，不存在好像。

打开我的电脑看看目的路径是否有复制后的文件？直接打开文件有没有问题？
 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 22:00:00 [只看该作者]

有复制后的文件，直接打开文件没有问题

 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 22:06:00 [只看该作者]

另外，源文件用.dotx格式文件就没问题，但是用.docx格式文件,就会提示找不到文件。不知咋回事。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/7 22:33:00 [只看该作者]

找不到文件，说明文件名称和路径肯定不对。

试试复制到D盘，不要放到桌面
 回到顶部
帅哥哟，离线，有人找我吗？
swimmer01
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：201 积分：2085 威望：0 精华：0 注册：2018/5/4 14:45:00 		  发帖心情 Post By：2020/12/7 22:56:00 [只看该作者]

复制到D盘，也不行

Dim mwjj As String = "d:\2057\项目管理\"   '目标文件夹
Dim mwjm As String = "项目协调程序.doc"   '目标文件名
Dim File As String = mwjj & mwjm

msgbox(FileSys.FileExists(File))
'***************打开文件
Dim Proc As New Process   '定义一个新的Process
Proc.File = File            '指定要打开的文件
'proc.verb="openasreadonly"
Proc.Start()
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107729 积分：547978 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/7 23:06:00 [只看该作者]

代码我测试没有问题的。

试试卸载office重装一下，注意要安装完整版的
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询