Question

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

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

我之前要添加一个if语句和mkdir，以便将其保存在同名的文件夹中，并在目录中创建该文件夹（如果尚未存在）。当我用变量名输入这部分上面的代码时，我得到＆＃34;编译错误;预期声明结束＆＃34;。我错过了什么？

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

你错过了＆amp;在财产之前。

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

1 个答案: