创建没有编译错误消息的目录答案

【问题标题】：Create directory without compile error message创建没有编译错误消息的目录
【发布时间】：2019-05-29 22:46:36
【问题描述】：

请帮忙。我很新。我正在尝试使用日期创建文件夹并收到编译错误消息“参数数量错误或属性分配无效”。该代码完美运行了一个月，但不再有效。

Sub Test()

MkDir "\\AD.TEST.COM\nas\Team-AB-TEST\TEST FOLDER\TEST FOLDER \" & Format(Date, "yyyy") & " Email Tracking\" & Format(Date, "mm.dd.yy") & "\Attach\"

End Sub

【问题讨论】：

您的文件夹实际上是否名为“TEST FOLDER”（带空格）？
目录是否已经存在/您是否有足够的权限在其中创建文件夹？ ...这行代码确实没有太多问题，您可以先尝试构建字符串：Dim path as String path = "\\base\child\" & Format(Date, "yyyy") & " Email Tracking\" & Format(Date, "mm.dd.yy") & "\sub-folder\" MkDir path 如果路径已经存在，则 If Len(Dir(path, vbDirectory)) = 0 Then MkDir path End If
您确定错误来自这一行吗？ VBA 编译器没有抱怨，当我运行它时，我得到一个“找不到路径”错误——这正是我的预期。
这段代码编译得很好。请edit 使用minimal reproducible example 重现问题。

标签： excel vba

【解决方案1】：

您的代码正在完美编译。

但是当你在你的代码旁边添加这个时：

Function Format(s As String)
Format = "tralala"
End Function

然后，它不再起作用了。

你能确认你没有在某处定义Format() 函数吗？

【讨论】：