Question

我有以下宏来创建文件夹：

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

我想在Excel工作表的单元格A1中写入文件夹名称。但是，当我运行此代码时，我得到运行时错误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

文件夹名称位于工作表中的单元格中时创建文件夹

1 个答案: