以下代码哪出问题了？Kill 导出路径文件名 处出错

Excel2119

请教：以下代码哪出问题了？

1. <div class="blockcode"><blockquote>导出文件名 = Sheets("照片档案数据").Cells(1, 2) & "_照片档案.docx"
   
2.     导出路径文件名 = 文件夹 & "" & 导出文件名
   
3.     If Dir(导出路径文件名, vbNormal) = "" Then
   
4.         FileCopy 当前路径 & "\data\data01.docx", 导出文件名
   
5.     ElseIf Dir(导出路径文件名, vbNormal) <> "" Then
   
6.         Kill 导出路径文件名
   
7.     FileCopy 当前路径 & "\data\data01.docx", 导出文件名
   
8.     End If
   
9. 
   
10. With Word对象
    
11.       .Documents.Open 导出路径文件名
    
12.       .Visible = False

复制代码

在这段运行时出错了