Set dalo = Application.FileDialog(msoFileDialogOpen)
With dalo
.Title = tit
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add f_disc, f_str
If .Show = 0 Then
findpath = "0"
Exit Function
Else
findpath = .SelectedItems(1)
End If
End With
用Application.FileDialog() 对象试试
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024