|
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 |
|
|
