フォルダ名がシート

Question

でセル内にあるとき、私は、フォルダを作成するマクロを次したフォルダを作成します。私は、ExcelシートのセルA1にフォルダ名を書きたい

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 

。しかし、このコードを実行すると、ランタイムエラー75が発生します。

私のコードのどこに間違いがありますか？

Answer 1

最初にThisWorkbookを保存することを忘れないでください。そうしないと、エラーメッセージが表示されます。

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