为什么msofiledialogfolderpicker选定不了文件夹

Learner2022

1. <blockquote>Sub 提取文件信息()

复制代码

我用这个方法来选取文件夹但是每次选了但是代码里显示没选，希望各位大神帮我看看

Learner2022

1. Dim arr(1 To 10000) As String
   
2. Dim f, i, k, F2, f3, x
   
3. Dim arr1(1 To 100000, 1 To 6) As String, q As Integer  '6列放置文件夹的名称，大小，修改日期
   
4. Dim fso As Object, myfile As Object
   
5. Dim dig As Object
   
6. 
   
7. Set dig = Application.FileDialog(msoFileDialogFolderPicker)
   
8. 
   
9. With dig
   
10.     .Title = "请选择需要查找的文件夹"
    
11.    
    
12.     '如果沒选择文件夹路径退出程序，选择了就返回文件地址到arr(1)
    
13.     If .Show = 0 Then
    
14.         Exit Sub
    
15.     ElseIf .Show = -1 Then
    
16.         '如果选择的是驱动盘，如D:\，那就不需要在后面加""
    
17.         If VBA.Right(.SelectedItems(1), 1) = "" Then
    
18.             arr1(1, 1) = .SelectedItems(1)
    
19.         Else
    
20.             arr1(1, 1) = .SelectedItems(1) & ""
    
21.         End If
    
22.     End If
    
23. End With
    

复制代码

taller

Learner2022

taller 发表于 2023-5-12 02:11

一样的，选取了文件夹但是还是show为0

tanglf188

Sub SelectFolder()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请选择文件夹"  '设置对话框标题
        .ButtonName = "确定选择"  '更换确定按钮名称
        .InitialFileName = ""  '设置初始文件夹名:打开对话框时，选定的文件夹名
        .Filters.Clear  '清除文件过滤器
        If .Show = -1 Then 'FileDialog对象的Show方法显示对话框，点击确定返回-1，点击取消返回0
            MsgBox "您选择的文件夹是：" & .SelectedItems(1), vbOKOnly + vbInformation, "提示"
        End If
    End With
End Sub

tanglf188

代码在审核，加上下面的代码看看：
.Filters.Clear

taller

Learner2022 发表于 2023-5-12 08:30
一样的，选取了文件夹但是还是show为0

Win11 + Excel 365测试没有问题

Learner2022

tanglf188 发表于 2023-5-12 09:15
Sub SelectFolder()
    With Application.FileDialog(msoFileDialogFolderPicker)
        .Title = "请 ...

这个获取文件夹的没问题了，excel上面测试ok，就是wps还是不行不知道为什么