フォルダを開くマクロ

エクセルシート上で２つの条件を選択して検索ボタンを押すとネットワーク上のサーバーの中のフォルダが開くVBAは作れないでしょうか？
条件の組合せの第1条件は20通りと第2条件は5通り位の組合せです。
例1：条件１はクラウン(車種)、条件2は写真で検索するとクラウンの写真フォルダが開く。
例2：条件１はクラウン(車種)、条件2は図面で検索するとクラウンの図面フォルダが開く。
すみませんが宜しくお願い致します。

No.1 ベストアンサー 回答者： temtecomai2 回答日時： 2006/03/25 00:21

どこがわからないのでしょうか？

VBA で指定したフォルダを開くには幾つもの方法がありますが、
Shell 関数を使ってみてはどうでしょうか？
"\\Server-A\hoge\AAA" フォルダを開くには
Shell "explorer \\Server-A\hoge\AAA", vbNormalFocus
これを応用して
Dim folderPath As String
folderPath = "\\Server-A\hoge\AAA"
Shell "explorer " & folderPath, vbNormalFocus
とするとか。

検索部分は単純に、条件1をA列、条件2をB列、そのフォルダパスをC列に、全ての組み合わせで用意しておいて、検索時に上から順番に調べていってヒットした行の C列の値をとればいいじゃないでしょうか。

この回答へのお礼

遅くなりましたありがとうございます。
ずばりの回答で助かりました。

お礼日時：2008/05/21 00:01