VB编译出来没问题，换台没VB的机器出现 运行时错误75 找不到路径

[EX12315]

请指点一下，一个WORD内容替换小程序，替换WORD模板中1为A，然后另存为
安装了VB的电脑上面编译通过无问题，生成的EXE也能正常使用
没安装VB的电脑上边打开EXE出现：运行时错误75 找不到路径
代码如下：
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Private Sub Command2_Click()
Dim wordObj
Set wordObj = CreateObject("Word.Application")
Const TMPFILE = "~1.doc"
If Dir(App.Path & "\test\" & TMPFILE) <> "" Then
Kill App.Path & "\test\" & TMPFILE
End If
FileCopy App.Path & "\test\1.doc", App.Path & "\test\" & TMPFILE
With wordObj.Documents.Open(App.Path & "\test\" & TMPFILE)
.Content.Find.Execute "1", , , , , , , , , "A", 2
.SaveAs
End With
wordObj.Quit
If Dir(App.Path & "\test\输出报告1.doc") <> "" Then
Kill App.Path & "\test\输出报告1.doc"
End If
Name App.Path & "\test\" & TMPFILE As App.Path & "\test\输出报告1.doc"
End Sub

[Tiger_Zhao]

Private Sub Command2_Click()
          Dim wordObj
    On Error GoTo ErrHandler

10        Set wordObj = CreateObject("Word.Application")
          Const TMPFILE = "~1.doc"
20        If Dir(App.Path & "\test\" & TMPFILE) <> "" Then
30            Kill App.Path & "\test\" & TMPFILE
40        End If
50        FileCopy App.Path & "\test\1.doc", App.Path & "\test\" & TMPFILE
60        With wordObj.Documents.Open(App.Path & "\test\" & TMPFILE)
70             .Content.Find.Execute "1", , , , , , , , , "A", 2
80             .SaveAs
90        End With
100       wordObj.Quit
110      If Dir(App.Path & "\test\输出报告1.doc") <> "" Then
120           Kill App.Path & "\test\输出报告1.doc"
130      End If
140      Name App.Path & "\test\" & TMPFILE As App.Path & "\test\输出报告1.doc"

ExitEntry:
    Exit Sub
ErrHandler:
    MsgBox Err.Description & vbCrLf & Erl, vbExclamation
    Resume ExitEntry
End Sub

看哪行出的错。
还有是不是权限问题，用管理员运行exe试试。

[EX12315]

引用 3 楼 Tiger_Zhao 的回复:

不知道什么情况，没发现什么原因，代码也没改过，又能用了，可能是生成出了问题。 谢谢了！

[Tiger_Zhao]

MsgBox App.Path & "\test\1.doc"

加个调试输出。看看这个路径/文件是否存在。

[EX12315]

引用 1 楼 Tiger_Zhao 的回复:

MsgBox App.Path & "\test\1.doc"

加个调试输出。看看这个路径/文件是否存在。

存在的，我是整个文件夹全部复制到另一台电脑上边的

[baidu_36775048]

听说只要路径中有空格就不行……不知道行不行