各位大哥、大姐、老少爷么们，帮我解决一个关于Excel的问题好吗？

Question

Dim myvalue As String
  
  myvalue = InputBox("请输入你所要保存的Excel文件名", Excel文件名, 商品)
  myvalue = "\" & myvalue & ".xls"
    Dim oleExcel As Object
  Dim oleWorkbook As Object
  Dim oleWorkSheet As Object  Dim strSource, strDestination As String
  
  strSource = App.Path + "\1.xls"
  'RegisterFee.xls就是一个模版文件
  strDestination = App.Path + myvalue
  FileCopy strSource, strDestination
  '将模版文件拷贝到一个临时文件    我要新生成一个Excel文件，要如何判断在我要新建的位置时候已经有这个名字的文件，如果有我要提示说此文件已经存在要怎么做？

Answer 1

If Dir(App.Path + "\logdate\" & a & ".txt") <> "" Then
i = MsgBox("该文档已经存在！要强行复制吗？", vbYesNo, "提示")
  If i = vbYes Then
Kill App.Path + "\logdate\" & a & ".txt"
 .....
  End If
Else
.......
End If