这个简单,根据你补充的问题，我想MkDir这个命令就不需要用了吧，因为它是新建文件夹用的，你这里是新建一个新的excel文件：
一、新建一个模块，新建一个过程
二、输入代码：
Sub Createbook()
Dim Str_path As String, bk As Workbook, bk_app As Workbooks
Str_path = ThisWorkbook.Path
If Dir(Str_path & "\你的新文档名称.xls") = "" Then '检测与text.xls同一目录下是否有这个新文档存在
'如果不存在就新建一个
Set bk = bk_app.Add
bk.SaveAs Str_path & "\你的新文档名称.xls"
Else
'如果存在你自己看着办了，是复盖，还是保留
End If
End Sub
“你的新文档名称”你可以自己取
内容全部来源于网络收集，如有侵权，请联系网站删除！