excel 2010 vba, path/file 访问错误
excel 2010 vba, path/file access error
下面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
您很可能在末尾有一个 /
阻止您删除文件夹,请参阅更正。
此外,您可以将 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
Excel VBA 对文件的访问权限取决于 Excel 是否以管理员权限启动。找到 EXCEL.EXE 并通过右键单击或不通过 运行-as-administrator 启动它。检查您的 VBA 做了什么。使用管理员权限让它创建一个文本文件。然后尝试在没有非管理员权限的情况下打开该文件。尽管您在哪个文件夹中进行此测试可能很重要。
下面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
您很可能在末尾有一个 /
阻止您删除文件夹,请参阅更正。
此外,您可以将 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
Excel VBA 对文件的访问权限取决于 Excel 是否以管理员权限启动。找到 EXCEL.EXE 并通过右键单击或不通过 运行-as-administrator 启动它。检查您的 VBA 做了什么。使用管理员权限让它创建一个文本文件。然后尝试在没有非管理员权限的情况下打开该文件。尽管您在哪个文件夹中进行此测试可能很重要。