用代码打开文件夹的问题

weide_yang

limonet 发表于 2024-4-22 14:11
把thisworkbook.path换成你要的就行。

老师，我这样换用了，没能成功，请再赐教，谢谢！

Sub limonet()
    Set wshshell = CreateObject("WScript.Shell")
    wshshell.Run "Powershell explorer " & ActiveCell.Text.Path, 0 ''''''''ThisWorkbook.Path, 0
End Sub

weide_yang

版主，您好！我的意思是说，我点击对话框的确定按钮，那个D:\try的文件夹没能处于打开的状态。

tanglf188

weide_yang 发表于 2024-4-22 14:54
版主，您好！我的意思是说，我点击对话框的确定按钮，那个D:\try的文件夹没能处于打开的状态。

这个意思吗？

1. Sub SelectFolder()
   
2.     With Application.FileDialog(msoFileDialogFolderPicker)
   
3.         .Title = "请选择文件夹"
   
4.         .ButtonName = "确定选择"
   
5.         .InitialFileName = ThisWorkbook.Path & ""
   
6.         .Filters.Clear
   
7.         If .Show = -1 Then
   
8.             Shell "explorer.exe /select," & .SelectedItems(1), vbNormalFocus
   
9.         End If
   
10.     End With
    
11. End Sub
    
12. 
    

复制代码

weide_yang

tanglf188老师，您好！我希望的是宏后，出现的是当前单元格显示的那个文件夹的窗口，如图片所示：

tanglf188

weide_yang 发表于 2024-4-22 15:25
tanglf188老师，您好！我希望的是宏后，出现的是当前单元格显示的那个文件夹的窗口，如图片所示：

1.     Set fso = CreateObject("Scripting.FileSystemObject")
   
2.     If fso.FolderExists([D9]) Then
   
3.         Shell "explorer.exe " & [D9], vbNormalFocus
   
4.     Else
   
5.         MsgBox "文件夹不存在：" & [D9]
   
6.     End If
   

复制代码

weide_yang

非常感谢tanglf188老师！就是这个意思，可以解决问题了！谢谢！

liulang0808

这个情况，不知道是否与楼主的需求差多少

weide_yang

版主，您好！主要是在“打开对应文件夹”对话框中，我想看到该文件夹内其它的文件列表，比如其中的工作簿文件，图片文件等等。谢谢您的费心，谢谢！

liulang0808

weide_yang 发表于 2024-4-22 19:30
版主，您好！主要是在“打开对应文件夹”对话框中，我想看到该文件夹内其它的文件列表，比如其中的工作簿文 ...

建议楼主以后发帖一次性把问题描述清楚
With Application.FileDialog(msoFileDialogFolderPicker)
修改成With Application.FileDialog(msoFileDialogFilePicker)

天真无鞋

weide_yang 发表于 2024-4-22 13:57
老师，这个怎么用，能示范一下吗？

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