查找所有目录地址写入问题

66gdf

请教一下老师，遇到这种问题怎么修改呀，感谢！


Sub 查找2()


Dim Path As String
Dim Drive As String
For Each Drive In Split(Environ("SystemDrive") & "\", ";")
    Path = Drive & "\PC\CimaE\Data\AN"
    If Dir(Path, vbDirectory) <> "" Then
        Range("A1").Value = Path
        Exit For
    End If
Next
If Range("A1").Value = "" Then
    MsgBox "无法找到指定的路径！"
End If
End Sub

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

66gdf

蓝桥玄霜 发表于 2023-2-19 21:47
没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

就是一个查找安装路径，前面安装在什么位置不确定，通过安装后的几个文件夹来找齐前面的地址，