2011/01/24

Excel VBA のフォルダの参照

Excel VBA での「フォルダの参照」のサンプルソース

API を使用せずに
Shell.Application の BrowseForFolder を使用する方法。

単に BrowseForFolder を使用するだけだと
デスクトップ選択時には
  XXX.Items.Item.Path の部分で
Err.Number = 91 のエラーが出る仕様になっている。
なので、その辺を考慮したソースコードを作成した。

ただし、マイ コンピュータ や マイ ネットワーク を選択したときも
よくわからない番号が返ってくる。

おそらく、この部分も考慮が必要なのかもしれないが...
エクスプローラのアドレスにこのへんてこな数字を入れてみると
ちゃんと マイ コンピュータ や マイ ネットワークが見れる。

...なので、
以下のサンプルソースでは デスクトップ選択時のみエラーが出ないように対応しています。


続きを読む