Excel VBA - mkdir与变量名称

Question

我有一个宏，它将数据复制到工作簿中，并将工作簿保存为输入工作簿中的变量组合。下面是我使用的代码:

ActiveWorkbook.saveas "D:sm031648DocumentsLighting Audits" & Accnt & " -     " & Property & ".xlsx", FileFormat:= _
    xlOpenXMLWorkbook, CreateBackup:=False

我想在之前添加if语句和mkdir，以便它将其保存在同名的文件夹中，并在目录中创建文件夹，如果一个文件夹还没有存在。当我用变量名在这部分上面输入下面的代码时，我得到"编译错误;预期语句结束"。我错过了什么?

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

Answer 1

你错过了&前财产。

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