shiruiqiang老师好！能否把选择文件夹修改成选择工作簿的功能

njwtg

shiruiqiang老师好！在您的程序中，如何把选择文件夹修改成选择工作簿，谢谢

ykcbf1100

多选还是单选？

liulang0808

With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = ThisWorkbook.Path & "\"
        .Title = "请选择对应文件"
        .AllowMultiSelect = False'如果是多选修改成true
        .Filters.Clear
        .Filters.Add "Excel文件", "*.xls*"
        If .Show Then f = .SelectedItems(1) Else Exit Sub '
    End With

njwtg

For Each f In fso.getfolder(fd).Files  报错在这里，另外不确定单选和多选，有时单有时多，谢谢

shiruiqiang

==================

njwtg

谢谢shiruiqiang老师，完美！