勾选的方式选择多个工作薄返回，在线等

RoyceKEvans

各位請教一下，VBA代碼應該怎麼寫，能夠返回這樣的瀏覽介面，並且支援勾選的方式選擇多個工作薄，然後回傳到程式所在的表格裡面。 在線等，謝謝各位了

peteryhr

Private Function GetSelectedFiles() As Variant
    Dim FileDialogObject As FileDialog, fileArray() As Variant, i%
    Set FileDialogObject = Application.FileDialog(msoFileDialogFilePicker)
    With FileDialogObject '配置对话框
        .AllowMultiSelect = True
        .Filters.Clear
        .Filters.Add "excel工作簿", "*.xlsx; *.xlsm; *.xls", 1
        If .Show = -1 Then ' 如果用户按下了确定按钮
            ReDim fileArray(.SelectedItems.Count - 1) ' 根据选中的文件数量重定义数组大小
            For i = 1 To .SelectedItems.Count
                fileArray(i - 1) = .SelectedItems(i)
            Next
        Else ' 用户按下取消或关闭对话框
            GetSelectedFiles = False
        End If
    End With
    GetSelectedFiles = fileArray
End Function