Ｅｘｃｅｌ ＶＢＡに効く Vitamin E
フォルダを指定してフォルダ参照ダイアログ(SHBrowseForFolder)を開く[97,2000,2002]
WinAPIのSHBrowseForFolderを使って「フォルダ参照ダイアログ」を開きます。もちろんVB、AccessVBAでも使用できます。
WinAPIのSHBrowseForFolderを使って「フォルダ参照ダイアログ」を開きます。フォルダを指定するには次の２つの方法があります。
１．定数を指定する。SDKには１７の定数が指定されています。
２．任意のフォルダを指定する。原因はわかりませんがWinXPでは正常に動作しない場合があります。
Excel97では任意のフォルダを指定できません。これはVBのAddressOf 演算子がサポートされていないためです。
　Source
　SHBrowseForFolder.xlsのダウンロード(SHBrowseForFolder.LZH)

（UPD:02/06/18）