Question

我目前正在处理宏以检查是否正在使用某个驱动器。我得到了代码，但它只是基于我提供的字母驱动器。我想要它做的是我希望它在A到Z之间循环，直到找到一个没有使用过的。

DriveExists("D:\")

正如您所看到的那样（＆＃34; D：\＆＃34;）是我指定要查找的内容。我希望它是什么

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

Drive.exists（要从单元格范围A1：A26中选择的字符串）

1 个答案: