开车.存在(要从单元格范围A1:A26中选择的字符串)

Question

我目前正在研究一个宏来检查是否正在使用某个驱动器。我得到的代码工作，但它只是基于一个字母驱动器我提供。我想让它做的是在A到Z之间循环，直到我找到一个没有被使用的

DriveExists("D:")

可以看到("D:")就是我指定它查找的内容。我想要的是

DriveExists("Cells A1:A26")

不能得到的代码工作，将感谢一些帮助!

提前感谢!

Answer 1

类似于

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