我目前正在处理宏以检查是否正在使用某个驱动器。 我得到了代码,但它只是基于我提供的字母驱动器。 我想要它做的是我希望它在A到Z之间循环,直到找到一个没有使用过的。
DriveExists("D:\")
正如您所看到的那样(" D:\")是我指定要查找的内容。 我希望它是什么
DriveExists("Cells A1:A26")
无法使代码正常工作,我们将不胜感激!
提前致谢!
答案 0 :(得分:0)
类似的东西:
Sub Orac()
Dim objFSO As Object
Dim rng1 As Range
Dim rng2 As Range
Set objFSO = CreateObject("scripting.filesystemobject")
Set rng1 = Range("A1:A26")
For Each rng2 In rng1.Cells
If objFSO.driveexists(rng2.Value) Then
MsgBox rng2 & " exists", vbExclamation
Exit For
End If
Next
End Sub