Excel VBA – 具有variables名称的mkdir

我有一个macros将数据复制到工作簿并将工作簿保存为input工作簿中variables的组合。 这是我用来做到这一点：

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

我想在之前添加一个if语句和mkdir，以便将其保存在相同名称的文件夹中，并在目录中创build该文件夹（如果尚不存在）。 当我在下面的代码中inputvariables名称时，出现“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