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

Excel 存在(从单元格范围A1:A26中选择的字符串),excel,vba,networking,Excel,Vba,Networking,我目前正在处理一个宏,以检查是否正在使用某个驱动器。 我得到的代码工作,但它只是基于一个字母驱动器我提供。 我想让它在A到Z之间循环,直到找到一个不用的 DriveExists("D:\") 正如您所看到的(“D:\”)是我指定它查找的内容。 我想要的是什么 DriveExists("Cells A1:A26") 无法使代码正常工作,请提供帮助 提前谢谢 类似于: Sub Orac() Dim objFSO As Object Dim rng1 As Range Dim rng2 As Ra

我目前正在处理一个宏,以检查是否正在使用某个驱动器。 我得到的代码工作,但它只是基于一个字母驱动器我提供。 我想让它在A到Z之间循环,直到找到一个不用的

DriveExists("D:\")
正如您所看到的(“D:\”)是我指定它查找的内容。 我想要的是什么

DriveExists("Cells A1:A26")
无法使代码正常工作,请提供帮助

提前谢谢

类似于:

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

请参阅:获取下一个可用驱动器以及如何返回已用驱动器列表letters@AlexK. 非常感谢你!!!