以前、 VBScript でファイル選択ダイアログを出す方法を知って、 http://nakagami.blog.so-net.ne.jp/2006-07-04 早速使わせてもらっていた。 ・・・が、 OS と Office のバージョンが上がったら動かなくなってしまった。 こりゃやばい、と思って何とか策を探そうとしたら、発見。 http://www.tek-tips.com/faqs.cfm?fid=5310 Set objDlg = CreateObject("UserAccounts.CommonDialog") If objDlg.ShowOpen = True Then strFileName = objDlg.FileName End If これなら動く。よかった。 表示するファイルの種類のフィルターもかけられるみたい。 Windows XP から、コモンダイアログの機能が使え