| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=158937) |
| -- 作者：swimmer01 -- 发布时间：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() |
| -- 作者：有点蓝 -- 发布时间：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 -- 发布时间：2020/12/7 21:54:00 -- 刚测试了，路径好像是正确 |
| -- 作者：swimmer01 -- 发布时间：2020/12/7 21:56:00 -- 打开文件夹没问题 |
| -- 作者：有点蓝 -- 发布时间：2020/12/7 21:58:00 -- 对就对，不对就不对，不存在好像。 打开我的电脑看看目的路径是否有复制后的文件？直接打开文件有没有问题？
|
| -- 作者：swimmer01 -- 发布时间：2020/12/7 22:00:00 -- 有复制后的文件，直接打开文件没有问题 |
| -- 作者：swimmer01 -- 发布时间：2020/12/7 22:06:00 -- 另外，源文件用.dotx格式文件就没问题，但是用.docx格式文件,就会提示找不到文件。不知咋回事。 |
| -- 作者：有点蓝 -- 发布时间：2020/12/7 22:33:00 -- 找不到文件，说明文件名称和路径肯定不对。 试试复制到D盘，不要放到桌面
|
| -- 作者：swimmer01 -- 发布时间：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() |
| -- 作者：有点蓝 -- 发布时间：2020/12/7 23:06:00 -- 代码我测试没有问题的。 试试卸载office重装一下，注意要安装完整版的
|