Excel 接收运行时错误58文件不存在时已存在'；T

我不断收到

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

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

我首先运行另一个宏，该宏将获取要在其中创建新文件夹的文件夹的位置。该位置显示在

ActiveWorkbook.Sheets（1）.Range（“A1”）

中<代码>主文件是我要创建的新文件夹的名称

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

---

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

fso.CreateFolder Bname

---

您需要指定您的程序。您可能正在使用一个32位程序，并在不允许的地方编写代码。因此，它将被虚拟化。在

C:\Users\User\AppData\Local\VirtualStore

下查看。