FileDialog オブジェクトの使い方Sub Main() 'ダイアログにて選択した各アイテムのパスを引き渡す Dim SelectedItem As Variant Call FilSel(SelectedItem) MsgBox "パス名 : " & SelectedItem End Sub '---------------------------------------------------------------------------------------------------------------------------------------- Sub FilSel(SelectedItem As Variant) 'Microsoft Excel2002 VBAヘルプ「FileDialogFilters コレクション」より転載。 'FileDialog オブジェクトの変数を宣言します。 '[参照] ダイアログ ボックスの FileDialog オブジェクトを作成します。 '選択した各アイテムのパスを保存する 'With...End With ブロックを使用して、FileDialog オブジェクトを参照します。 '[ファイルの種類] ボックスの内容を変更します。 'すべてのファイルを含むフィルタを追加します。 'GIF および JPEG のイメージを含むフィルタを追加し、一覧の最初の項目に指定します。 'Show メソッドを使用して [参照] ダイアログ ボックスを表示し、ユーザーのアクションを取得します。 'FileDialogSelectedItems コレクション内のすべての文字列を調べます。 'vrtSelectedItem は、選択した各アイテムのパスを含む文字列型 (String) の値です。 Next vrtSelectedItem 'オブジェクトの変数に Nothing を設定します。 End Sub |