excel 2010 vba, path/file 访问错误

Question

下面excel 2010 vba如果提示的答案为否则te文件夹中的文件，则文件夹被删除。但是，当我运行 vba 时，我得到 path/file access error。特别是 RmDir MyFolder 行被突出显示，但是当我逐步执行代码时，正确的目录出现在变量 MyFolder 中，我可以将新文件写入该目录。我错过了什么？谢谢：）。

此外，如果我手动导航到该目录，我可以将其删除。

iYesNo = MsgBox("Do the patients and barcode match the setup sheet?", vbYesNoCancel)
      Select Case iYesNo
             Case vbYes
             GoTo Line2
             Case vbNo
             MsgBox ("Doesn't match! Please enter again")
             MyFolder = Directory ' delete all txt files in the folder
             MyFile = Dir(MyFolder & "*.*")
             Do Until MyFile = ""
             Kill MyFile
             MyFile = Dir
             Loop

               RmDir MyFolder  ' delete folder
             GoTo Line1
       End Select

Answer 1

您很可能在末尾有一个 / 阻止您删除文件夹，请参阅更正。

此外，您可以将 Dir(...) 更改为仅 select txt 个文件以避免删除其余文件！

这是代码：

iYesNo = MsgBox("Do the patients and barcode match the setup sheet?", vbYesNoCancel)
Select Case iYesNo
    Case vbYes
        GoTo Line2
    Case vbNo
        MsgBox ("Doesn't match! Please enter again")
        MyFolder = Directory ' delete all txt files in the folder
        MyFile = Dir(MyFolder & "*.txt")
        Do Until MyFile = ""
            Kill MyFile
            MyFile = Dir
        Loop

        RmDir Left(MyFolder, Len(MyFolder) - 1) ' delete folder
        GoTo Line1
End Select

Answer 2

Excel VBA 对文件的访问权限取决于 Excel 是否以管理员权限启动。找到 EXCEL.EXE 并通过右键单击或不通过运行-as-administrator 启动它。检查您的 VBA 做了什么。使用管理员权限让它创建一个文本文件。然后尝试在没有非管理员权限的情况下打开该文件。尽管您在哪个文件夹中进行此测试可能很重要。

excel 2010 vba, path/file 访问错误

excel 2010 vba, path/file access error

vba

excel

dir