Excel VBA - 带变量名的 mkdir

Question

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

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

我想在之前添加一个 if 语句和 mkdir，以便将其保存在同名文件夹中，如果目录中没有文件夹，则在该目录中创建该文件夹。当我在这部分上面的代码中输入变量名时，我得到 "Compile Error; Expected end of statement"。我错过了什么？

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

Answer 1

您缺少属性之前的 &。

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

Excel VBA - 带变量名的 mkdir

Excel VBA - mkdir with variable names

syntax

excel

vba

mkdir