vba - 如果路径不存在，则创建新文件夹(否则粘贴到现有文件夹中)

Question

我制作了一个 Excel 工作表，它将数据处理到工作表并将其作为新工作簿保存在某个文件夹 - 子文件夹(命名为文件名的第一部分)中。

该代码工作正常，但如果所需的路径不存在，我想创建一个新文件夹。绝对应该可以使用“如果”功能来实现，但我不知道如何创建新文件夹。

注意:跳过了下面代码中的某些部分，为了简短起见，我只跳过了值得一提的部分。

Sub SaveSheetAs()

Dim sMainFolder as String
Dim sFileName as string
Dim sSubFolder as string

sMainFolder = Z:\Parts Manufacturing\5. Kwaliteit\130 - in proces meten\EindProject\Bron '(Main folder, which isn't variable)

sFileName = 4022 646 68954#1234 '(Part name with Unique number)'variable number, in de real code this number is received by refering to a range("")

sSubFolder = 4022 646 68954 '(variable number, in de real code this number is received by refering to a range("")

ActiveWorkbook.SaveAs Filename:=sMainFolder & "\"& sSubFolder & "\" & sFileName & ".csv", FileFormat:=xlCSV, CreateBackup:=False, Local:=True

end sub

Answer 1

干得好 :

If Dir(sMainFolder & "\"& sSubFolder & "\", 16) <> vbNullString Then
Else
    MkDir (sMainFolder & "\"& sSubFolder & "\")
End If