excel - 接收运行时错误 58 文件已存在但不存在

Question

我继续收到

“运行时错误 58 文件已存在”

尝试运行以下代码时。我已经检查了两次和三次，该文件肯定不存在。

我首先运行一个不同的宏，它可以让我找到我想在其中创建这个新文件夹的文件夹的位置。该位置显示在ActiveWorkbook.Sheets(1).Range("A1"). Master File是我要创建的新文件夹的名称。

Sub CreateFolder

Dim Bname As String
Bname = ActiveWorkbook.Sheets(1).Range("A1").Text & "\Master File"
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateFolder "Bname"

End Sub

我还尝试了以下方法：

Sub CreateFolder

Dim Bname As String
Bname = ActiveWorkbook.Sheets(1).Range("A1").Text & "\Master File"
MkDir "Bname"

End Sub

标签： excelvba

Answer 1

您创建文件夹“Bname”，而不是“..\Master File”。不要在变量周围使用引号。

fso.CreateFolder Bname