文件对话框的实例

With Application.FileDialog(msoFileDialogopen)

　　.AllowMultiselect = False

      .Filters.clear

      .Initiatdenanc = strfile

      if .show = true then

      　　.selectitems(1) ' 指定对象取得

      end if

end With

　　msoFileDialogopen : 选择文件

      msoFileDialogFolderPicker ：选择文件夹