Ordner erstellen, wenn Ordnernamen in einer Zelle in dem Blatt sind

Question

Ich habe die folgende Makro einen Ordner zu erstellen:

Sub Create_Folder1() 
If Dir(ThisWorkbook.Path & "\" & Sheet1.Range("A1"), vbDirectory) = "test" Then 
    MsgBox "Folder already exists!" 
Else 
    MkDir ThisWorkbook.Path & "\" & Sheet1.Range("A1") 
End If 
End Sub 

ich die Ordnernamen in Zelle A1 in der Excel-Tabelle schreiben mag. Wenn ich jedoch diesen Code ausführen, bekomme ich Laufzeitfehler 75.

Haben Sie eine Idee, wo der Fehler in meinem Code ist?

Answer 1

Probieren Sie den folgenden Code (vergessen Sie nicht zuerst ThisWorkbook zu speichern, sonst erhalten Sie eine Fehlermeldung).

Sub Create_Folder1() 

If Dir(ThisWorkbook.Path & "\" & Sheet1.Range("A1"), vbDirectory) = "test" Then 
    MsgBox "Folder already exists!" 
Else 
    MkDir Application.ThisWorkbook.Path & "\" & Sheet1.Range("A1") 
End If 

End Sub