Excel VBA - 带有变量名的 mkdir答案

【问题标题】：Excel VBA - mkdir with variable namesExcel VBA - 带有变量名的 mkdir
【发布时间】：2015-08-10 16:03:39
【问题描述】：

我有一个宏，可以将数据复制到工作簿中，并将工作簿保存为输入工作簿中的变量组合。这是我用来做这件事的：

ActiveWorkbook.saveas "D:\sm031648\Documents\Lighting Audits\" & Accnt & " -     " & Property & ".xlsx", FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False

我想在之前添加一个 if 语句和 mkdir，以便将其保存在同名文件夹中，如果该文件夹不存在，则在该目录中创建该文件夹。当我在这部分上面的代码中输入变量名时，我得到“编译错误；预期语句结束”。我错过了什么？

If Len(Dir("D:\sm031648\Documents\Lighting Audits\" & Accnt & " - " Property, vbDirectory)) = 0 Then
MkDir "D:\sm031648\Documents\Lighting Audits\" & Accnt & " - " Property
End If

【问题讨论】：

标签： excel vba syntax mkdir

【解决方案1】：

您缺少 & before 属性。

If Len(Dir("C:\sm031648\Documents\Lighting Audits\" & Accnt & " - " & Property, vbDirectory)) = 0 Then
    MkDir "C:\sm031648\Documents\Lighting Audits\" & Accnt & " - " & Property
End If

【讨论】：

就是这样！谢谢。