Public Function od() 'Opendialog
Dim f As FileDialog
Set f = Application.FileDialog(msoFileDialogFilePicker)
'f.Show
If f.Show = True Then
f.Filters.Clear
f.Filters.Add "Excel文件", "*.xls"
od = f.SelectedItems(1)
Else
MsgBox "您中途选择了取消!"
End If
End Function
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。