用代码打开文件夹的问题

weide_yang

根据D列中的当前单元格的字符用代码打开文件夹的问题

如果activecell是D9,
其中显示的是名叫“try”的文件夹的路径
要求用代码打开这个文件夹

此只是举例，activecell也可能是D列中的其它单元格
其中显示的是名叫其它名字的文件夹的路径

有请老师赐教，谢谢！

liulang0808

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If ActiveCell.Column <> 4 Then Exit Sub
    If Len(ActiveCell) = 0 Then Exit Sub
    If Dir(ActiveCell.Value, vbDirectory) <> "" Then
        With Application.FileDialog(msoFileDialogFolderPicker)
            .InitialFileName = ActiveCell.Value
            .Title = "打开对应文件夹"
            If .Show Then fd = .SelectedItems(1) Else Exit Sub '
        End With
    End If
End Sub

liulang0808

工参考。。。。。

limonet

powershell explorer [D9]

weide_yang

谢谢版主帮助，但提示找不到路径，我在桌面上新建了文件夹：C:\Users\lenovo\Desktop\新建文件夹，也提示找不到路径，是啥原因呢？

weide_yang

limonet 发表于 2024-4-22 13:38
powershell explorer [D9]

老师，这个怎么用，能示范一下吗？

limonet

把thisworkbook.path换成你要的就行。

liulang0808

weide_yang 发表于 2024-4-22 13:51
谢谢版主帮助，但提示找不到路径，我在桌面上新建了文件夹：C:%users\lenovo\Desktop\新建文件夹，也提示找 ...

按照3楼的代码，如果路径不存在会没有提示的，存在才会打开文件夹的

weide_yang

liulang0808 发表于 2024-4-22 14:15
按照3楼的代码，如果路径不存在会没有提示的，存在才会打开文件夹的

谢谢版主的回复，我这边出现的是如附件的提示：

liulang0808

weide_yang 发表于 2024-4-22 14:37
谢谢版主的回复，我这边出现的是如附件的提示：

文件夹不是已经打开了吗？