求助大神帮忙看一下 fileDialog(msoFileDialogFilePicker)

Jack000001

想用fileDialog(msoFileDialogFilePicker) 获取选中的多个文件的文件名，其中一句是把 SelectedItems 赋值给一个数组 ，然后后续操作在数组内循环。

运行时发现，总是报错，查了很多，也不知道怎么处理。

求助大神指点一下，想学习一下fileDialog(msoFileDialogFilePicker) 这个究竟错哪了
贴上报错的地方和错误类型截图：


代码如下：

Sub GetSelectedFileNames()
    Dim fileDialog As fileDialog
    Dim selectedFiles As Variant
    Dim i As Integer
   
    ' 创建文件对话框对象
    Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
   
    ' 允许选择多个文件
    fileDialog.AllowMultiSelect = True
   
    ' 显示文件对话框并检查用户是否点击了“打开”按钮
    If fileDialog.Show = -1 Then
        ' 用户已经选择了文件
        ' 将选中的文件名存储在一个变量中
        selectedFiles = fileDialog.SelectedItems
        
        ' 遍历选中的文件名并显示
        For i = LBound(selectedFiles) To UBound(selectedFiles)
            MsgBox selectedFiles(i)
        Next i
    Else
        ' 用户取消了选择
        MsgBox "未选择任何文件。"
    End If
   
    ' 清除对话框对象
    Set fileDialog = Nothing
End Sub

liulang0808

Sub GetSelectedFileNames()
    Dim fileDialog As fileDialog
    Dim selectedFiles As Variant
   
    ' 创建文件对话框对象
    Set fileDialog = Application.fileDialog(msoFileDialogFilePicker)
   
    ' 允许选择多个文件
    fileDialog.AllowMultiSelect = True
   
    ' 显示文件对话框并检查用户是否点击了“打开”按钮
    If fileDialog.Show = -1 Then
        ' 用户已经选择了文件
        ' 将选中的文件名存储在一个变量中
        Set selectedFiles = fileDialog.SelectedItems
        
        ' 遍历选中的文件名并显示
        For Each i In selectedFiles
            MsgBox i
        Next i
    Else
        ' 用户取消了选择
        MsgBox "未选择任何文件。"
    End If
   
    ' 清除对话框对象
    Set fileDialog = Nothing
End Sub

liulang0808

批量获取文件夹名称.zip (11.37 KB, 下载次数: 0)

2023-5-22 07:12 上传

点击文件名下载附件

tanglf188

micch

selectedFiles = fileDialog.SelectedItems      这是个对象，用set object = ****

Jack000001

liulang0808 发表于 2023-5-22 07:11
Sub GetSelectedFileNames()
    Dim fileDialog As fileDialog
    Dim selectedFiles As Variant

谢谢大神，原来是我偷懒了， .SelectedItems不是数组。

Jack000001

tanglf188 发表于 2023-5-22 09:29

对哦。直接在.SelectedItems.count 这个范围内循环就好了，不用单独给他赋值。

谢谢大神~

Jack000001

micch 发表于 2023-5-22 09:30
selectedFiles = fileDialog.SelectedItems      这是个对象，用set object = ****

谢谢大神！学到了，自己偷懒理解成了数组哈哈哈。